Ouverture d'Excel en VBS : Défaillance irrémédiable
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:
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