variable commune à plusieurs macro

[Jacques]

Bonjour à tous,

Est-il possible de définir une variable qui serait utilisable dans plusieurs macro (dans l'exemple : chemin) pour éviter de la recopier à chaque fois:

Sub DECO02()
chemin = ActiveWorkbook.Path
Workbooks.Open Filename:= _
chemin & "\données\Docs de référence\DECO02.xls"
'
End Sub
Sub DECO03()
chemin = ActiveWorkbook.Path
Workbooks.Open Filename:= _
chemin & "\données\Docs de référence\DECO03.xls"
'
End Sub

Merci de votre aide.

Joyeux Noël à tous.

Jacques

 

[CBernardT]

Bonsoir Jacques,

Pour déclarer une variable commune à plusieurs macro, il faut la déclarer en dehors d'une quelconque macro.
soit dans ton cas :

Dim Chemin as String
Sub DECO02()
chemin = ActiveWorkbook.Path
Workbooks.Open Filename:= _
chemin & "\données\Docs de référence\DECO02.xls"
'
End Sub
Sub DECO03()
chemin = ActiveWorkbook.Path
Workbooks.Open Filename:= _
chemin & "\données\Docs de référence\DECO03.xls"
'
End Sub

Cordialement

CBernardT

 

[Jacques]

Salut CBernardT,

Juste une précision, je suis quand même obligé d'écrire à chaque fois la ligne :
chemin = ActiveWorkbook.Path

ou est ce que je peux la zapper? à savoir que c'est la même à chaque fois sur 90 macros.

Merci

Jacques

 

[CBernardT]

Rebonsoir Jacques,

J'ai peur que cela soit le cas.

Cordialement

CBernardT

 

[Pascal76]

Bonjour

Si tu as vraiment recopier toute ta macro dans ton cas il serait peut-être plus facile de ne créer qu'une seule avec le nom de fichier variable.

Pascal