Lancement macro sur condition dans un autre fichier

Frodon

XLDnaute Nouveau
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
 

Pièces jointes

  • Test JourSoir.xls
    28 KB · Affichages: 68
  • Données JourSoir.xls
    14.5 KB · Affichages: 55

pierrejean

XLDnaute Barbatruc
Re : Lancement macro sur condition dans un autre fichier

bonjour Frodon

teste cette macro:

Code:
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
 

pierrejean

XLDnaute Barbatruc
Re : Lancement macro sur condition dans un autre fichier

bonjour

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

Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 707
Messages
2 081 734
Membres
101 809
dernier inscrit
HADER2024