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