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