Discussion :

[Johbarr]

Bonjour,

A des fins d'automatisation de rapport, je souhaite ouvrir Excel avec un script en VBScript. J'ai fait un premier script très basique qui ouvre Excel et écrit un texte dans une case. Sur mon PC de développement, aucun souci (j'ai Excel 2016). Je le passe ensuite sur le PC sur lequel je compte automatiser mon système (avec Excel 2010) et là : Erreur : Défaillance irrémédiable, Code : 8000FFFF. J'ai cherché plusieurs solutions sur internet. J'ai donc essayé :

Fichier > Options > Compléments > Dans le menu déroulant, sélectionner « Compléments Excel » et cliquer sur « Atteindre… » > Cocher « Analysis ToolPak » et « Analysis ToolPak – VBA » et décocher le reste

J'ai aussi essayé de tout décocher.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim xlapp, classeur, feuille 
Set xlapp = CreateObject("Excel.Application") 
xlapp.Visible = True 
Set classeur = xlapp.Workbooks.add 
Set feuille = xlapp.ActiveSheet 
feuille.Range("A1") = "Rajout du texte en cellule A1" 
Classeur.Saveas "C:\Users\FR900-u-codesonar\Desktop" 
classeur.Close True 'quitte en sauvant 
xlApp.quit 
Set classeur = Nothing 
Set xlapp = Nothing

Ça ne fonctionne toujours pas. D'après l'invite de commande, le problème vient de la ligne 2. En effet, Excel ne s’exécute même pas. Auriez-vous une idée ?

Merci de votre aide.

Johan

[Jean-Philippe André]

Bonjour,

ton emplacement d'enregistrement n'est pas correct.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Classeur.Saveas "C:\Users\FR900-u-codesonar\Desktop"

Donne un nom a ton classeur, par exemple avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Classeur.Saveas "C:\Users\FR900-u-codesonar\Desktop\toto.xlsx"

[Johbarr]

Merci de ton aide rapide. Je viens de faire la modification mais malheureusement aucune amélioration. J'ai toujours le même problème. As-tu d'autres pistes ?

Merci

Johan

[Marc-L]

Bonjour !

Sur mon PC de développement, aucun souci (j'ai Excel 2016). Je le passe ensuite sur le PC sur lequel je compte automatiser mon système (avec Excel 2010) et là : Erreur

Si c'est exactement le même classeur donc sans aucune modification de donnée ni de code,
alors cela ne concerne pas ce forum !
Voir peut-être dans le forum dédié au VBS sinon c'est un problème système …

Évidemment en cas de modification la présentation initiale a juste servi à nous embrouiller en nous éloignant du problème réel !

___________________________________________________________________________________________________________
Je suis Paris, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Johbarr]

Je n'utilise pas de classeur au départ : j'en créé un. C'est cependant le même script que j'utilise.

Pour ce qui est de ma présentation initiale, elle n'a pas "servi à [vous] embrouiller", ni à vous éloigner du problème réel mais, au contraire, à vous expliquer clairement ma situation et ne pas vous jeter mon problème sans détail. M'y suis-je mal pris ?

Merci

Johan

[Marc-L]

Tester déjà le code d'enregistrement directement en VBA depuis l'ordinateur en question …

[Johbarr]

Le problème ne vient pas de la sauvegarde mais au niveau de l'ouverture de l'application. Excel ne se lance même pas.

Merci de votre aide.

Johan

[Marc-L]

C'est l'information primordiale devant être indiquée dès la présentation initiale ‼
Le reste nous ayant bien embrouillé …

Là ce serait simple :  Excel n'est pas installé ou plus référencé dans la base de registres !
Donc réparation ou installation …

[joe.levrai]

Bonjour,

de mon coté, j'ai pour habitude de laisser le vbs ouvrir un classeur Excel contenant, lui, la macro qui fera le job

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set AppExcel = CreateObject("Excel.Application")
With AppExcel
    .Visible = True
    Set Wb = .Workbooks.open("Lechemindemonfichier.xlsm")
    .Run "NomDeLaMacro"   ' ici c'est la macro qui fera le job de créer et enregistrer le nouveau classeur
    .Quit    ' la macro "NomdeLaMacro" s'est déjà chargée de fermer les classeurs
End With

regarde déjà si ainsi, tu arrives à chopper une instance Excel

si ce n'est pas le cas ... regarde si à la main tu arrives à ouvrir Excel
Et si tu n'y arrives pas, il est là le problème, pas dans ton script