Lancement macro sur condition dans un autre fichier

[Frodon]

Bonjour,

J'ai créé 2 fichiers pour l'exemple :

- Test JourSoir
- Données JourSoir

Dans le fichier Test JourSoir, j'ai créé 2 macros :
- Affiche_Bonjour
- Affiche_Bonsoir



Ce que je voudrai réaliser : une 3° macro (dans le fichier Test JourSoir) qui éxécute l'une ou l'autre des 2 macros précédente en fonction d'un contenu d'une cellule (B1) du fichier Données JourSoir

Je vous joins les fichiers pour une meilleure compréhension
Je précise que je suis débutant dans le VBA et la syntaxe des macros.

Merci d'avance

 

[pierrejean]

Re : Lancement macro sur condition dans un autre fichier

bonjour Frodon

teste cette macro:

Sub Run_Jour_ou_Soir()
'
' Run_Jour_ou_Soir Macro
' Macro enregistrée le 13/09/2007 par JR
'
'
donnee = Workbooks("Données JourSoir.xls").Sheets("Jour").Range("B1")
Select Case donnee
Case "Jour"
 Call Affiche_Bonjour
Case "Soir"
 Call Affiche_Bonsoir
Case Else
 Exit Sub
End Select
End Sub

 

[Frodon]

Re : Lancement macro sur condition dans un autre fichier

Merci pierrejean

cela fonctionne.
lefichier données_JourSoir doît être ouvert, est il possible d'éxécuter la macro avec la fichier fermé à l'origine?

 

[pierrejean]

Re : Lancement macro sur condition dans un autre fichier

bonjour

si les 2 fichiers sont dans le même repertoire:

Sub Run_Jour_ou_Soir()
'
' Run_Jour_ou_Soir Macro
' Macro enregistrée le 13/09/2007 par JR
'
'
chemin = ThisWorkbook.Path 
Workbooks.Open Filename:=chemin & "\Données JourSoir.xls"
donnee = Workbooks("Données JourSoir.xls").Sheets("Jour").Range("B1")
Select Case donnee
Case "Jour"
 Call Affiche_Bonjour
Case "Soir"
 Call Affiche_Bonsoir
Case Else
 Exit Sub
End Select
End Sub