Discussion :

[Zarek]

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 :

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

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 :

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

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 :

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

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

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.

[Zarek]

Bonjour à tous,

Hum(...) J'ai résolu mon problème et suis un peu gêné (après coup) de l'avoir exposé !
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 :

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

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 !