VBScript : erreur code 800A03EC

Bonjour,

Voilà. J'ai créé (copié et adapté) le fichier "Toto.vbs" suivant qui lance le module "OpenForm" contenu dans le fichier "Modèle.xlt" mais sans afficher celui-ci sur le bureau :

Voici le fichier "Toto.vbs" :

Code:

---

1 2 3 4 5 6 7 8

Const Wbk= "C:\Documents and Settings\.......\......\Modèle.xlt" Dim oXL, wBook Set oXL = WScript.CreateObject("Excel.Application") Set wBook = oXL.Workbooks.Open(Wbk) oXL.Run "OpenForm" On Error Resume Next Set oXL = Nothing

---

Voici le module "OpenForm" :

Code:

---

1 2 3 4 5 6

Sub OpenForm() If Sheets("JOURNEE").Range("AN298").Value = 1 Then UserForm1.Show End If End Sub

---

Voici le UserForm1 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton1_Click() Unload UserForm1 Dim chemin: [c:\] chemin = "c:\documents and settings\......\........\bureau\" Dim FileExist As String FileExist = chemin & Format(Date, "dd-mm-yy") & ".xls" If Dir(FileExist, vbNormal Or vbReadOnly Or vbHidden Or vbArchive) = "" Then ActiveWorkbook.SaveAs chemin & Format(Date, "dd-mm-yy") & ".xls" Application.WindowState = xlMaximized Sheets("JOURNEE").Range("A1").Select Else MsgBox "La journée est déjà enregistrée dans STOCK sur le Bureau !", vbExclamation, "Hé !" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True End If Workbooks.Application.Visible = True End Sub

---

L'action sur le bouton (unique) "START" du UserForm1 oblige l'utilisateur à enregistrer le fichier, il s'agit alors d'un exemplaire .xls journalier qui s'enregistre et s'ouvre automatiquement (chemin + date du jour + .xls) SI le fichier n'existe pas encore (condition avec FileExist).
SI le fichier existe, un message prévu apparaît pour le signaler MAIS sa fermeture provoque le message d'erreur de VBScript suivant :

titre= Windows Script Host

Citation:

---

Script: c:\documents and settings\.......\.......\Toto.vbs
Ligne: 5
Caract: 1
Erreur: Erreur d'exécution inconnue
Code: 800A03EC
Source: Erreur d'exécution Microsoft VBScript

---

(bouton "OK" = le message se ferme)

Je travaille avec Windows XP Pro.
Quelqu'un aurait-il une idée pour corriger cette erreur ?
Merci d'avance.

Bonjour à tous,

Hum(...) J'ai résolu mon problème et suis un peu gêné (après coup) de l'avoir exposé !:oops:
En fait, dans le fichier "Toto.vbs", une bête erreur de placement d'une partie du code engendrait l'erreur de Script dont il était question dans ma demande :
les lignes 5 et 6 étaient tout simplement à inverser, ce qui donne :

Code:

---

1 2 3 4 5 6 7 8

Const Wbk= "C:\Documents and Settings\.....\......\Modèle.xlt" Dim oXL, wBook Set oXL = WScript.CreateObject("Excel.Application") Set wBook = oXL.Workbooks.Open(Wbk) On Error Resume Next 'iso oXL.Run "OpenForm" oXL.Run "OpenForm" 'iso On Error Resume Next Set oXL = Nothing

---

Et voilà ! Problème résolu !
Ce qui est flagrant est parfois invisible selon la direction des recherches que l'on s'obstine à prendre !!;)

Meilleurs voeux à tous !