[VBS] Erreur " Indice en dehors de la plage "

Bonjour,

J'utilise un script VBS pour commander ma feuille Excel :

Mois= Month(DateValue(Now))
Jour=Day(DateValue(Now))
Annee=Year(DateValue(Now))
'Formatage de la date et de l'heure
Date_Maintenant = date
Date_Maintenant = day(Date_Maintenant) & month(Date_Maintenant) & year(Date_Maintenant)
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Orsenna\Desktop\PROJET_BP\Test.xlsx")
objExcel.visible = false
objExcel.Application.DisplayAlerts = False
objExcel.Cells(2, 1).Value= 3
objExcel.Cells(2, 2).Value= 4
objExcel.Cells(2, 3).Value= 3
Set objWorksheet = objExcel.Worksheets("Feuil2")
Set objWorksheet2 = objExcel.Worksheets("Test")
objWorksheet.Cells(2,1).Value=60
objWorksheet.Cells(2,1).Value=8
objExcel.ActiveWorkbook.Save
objExcel.ActiveWorkbook.Close
ObjExcel.Application.Quit    

En exécutant le code j'obtiens une erreur ligne 15 : " Set objWorksheet2 = objExcel.Worksheets("Test") " qui affiche : Indice en dehors de la plage.

Auriez-vous des indices afin que je puisse progresser ?

Respectueusement,

Dory

Bonjour,

La feuille "Test" est introuvable...

Vérifier s'il n'y a pas un espace indésirable ou la casse...

objWorksheet2 est-il déclaré ? (par Dim)

A+

C'est la première fois que je rédige un VBS, je situe le contexte afin que vous ayez une idée de mes connaissances.

La feuille " Test" a été crée dans le fichier Excel : "C:\Users\Orsenna\Desktop\PROJET_BP\Test.xlsx"

Objworksheet2 n'est déclaré nul part ailleurs.

Bonsoir,

Avec juste une bribe de code difficile de dire...

Dans cette ligne :

Set objWorksheet2 = objExcel.Worksheets("Test")

Il est question d'une Feuille ("Test") cette feuille existe-t-elle bien ? N'est-elle pas orthographiée un peu différemment, avec un espace invisible avant ou après par exemple, ou sans majuscule...

Joindre le classeur test.xlsx et TOUT le script de lancement (intégral).

A+