Lancement macro VBA à partir d'une tache planifiée.

**shakapouet** · 30/01/2014, 14h03

Bonjour,

J'ai développé un outil sous excel que je lance à partir d'un lanceur en cliquant sur un bouton. J'ai voulus appliquer une tache planifiée pour que l'outil se lance tous les jours. J'ai donc créé un fichier bat qui ouvre mon fichier excel et lance à l'ouverture Bouton17_Clic.

Le problème j'ai un message d'erreur Visual basic quand je le lance par une tache planifiée avec aucune erreur spécifiée.

Sauriez-vous d'ou peut venir le problème ?

Cordialement

**nibledispo** · 31/01/2014, 03h29

Bonjour,

Quand tu clic manuellement sur le bouton, le code s'exécute sans problème ?
Quel est le message d'erreur ? Est un message erreur VBA ou batch ?

Et si tu montrais ton fichier bat et le code attaché à ton bouton ?

Cordialement,

**Docmarti** · 31/01/2014, 11h33

Bonjour shakapouet; nibledispo

1) Sauve le classeur joint dans le répertoire C:\temp\
2) Crée avec Bloc-Notes un fichier VBscript contenant le code suivant
que tu sauves dans le répertoire C:\temp\ sous le nom MonClasseur1.vbs

3) Crée une tâche planifiée où tu entres les valeurs suivantes
- Exécuter: Cscript "C:\temp\MonClasseur1.vbs"
- Démarrer dans: "C:\temp"
4) Pour tester si le fichier vbs fonctionne, tu peux ouvrir une Invite de Commande où tu tapes C:\temp\MonClasseur1.vbs

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
Dim Xl 'Application
Dim wk 'WorkBook
set Xl = createobject("Excel.application") 'Ouvre une nouvelle application (obligatoire)
Xl.Visible = True
Xl.enableevents = false          'Si False, Userform1.Show ne fonctionnera pas
 
set Wk = Xl.workbooks.open("C:\temp\MonClasseur1.xls") 
'Si le classeur se trouve dans le répertoire C:\temp\
'Créez une tâche planifiée et Entrez les valeurs suivantes
'Exécuter: Entrez Cscript "C:\temp\MonClasseur1.vbs"
'Démarrer dans: Entrez "C:\temp"
 
Xl.run "Test_vbscript"            'Appeller la macro Test_vbscript
Xl.enableevents = True
wk.save           'Si un classeur du même nom était déjà ouvert, wk.save ne fonctionnera pas
wk.close          'Fermer le classeur après exécution de la macro
Xl.quit           'Fermer l'application

Cordialement

Docmarti

**shakapouet** · 03/02/2014, 14h51

Bonjour,

Voici le code que j'utilise dans le batch

Code :

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

1
2
start /WAIT EXCEL.EXE "T:\Itmaf\xxxxxxxxx\Lanceur_V6_avec_vide.xlsm"
Exit

et le code VBA qui lance ma macro :

Code :

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

1
2
3
Private Sub Workbook_Open()
    Call Bouton17_Clic
End Sub

C'est un message d'erreur VBA mais qui est vide j'ai juste l'affichage d'une croix rouge au lancement. Par contre si je lance le fichier excel manuellement il exécute bien automatiquement la macro sans problème.

Merci Docmarti je vais tester ta solution.

Cordialement