VBA, module de déclaration

Je suggère ceci:
Dans le module de déclaration:

Option Explicit
Public Function Fichier1() As Workbook
Fichier1 = Workbooks("Suivi du temps")
End Function
Public Function Fichier2() As Workbook
Fichier2 = Workbooks("Aléas")
End Function

Et dans un autre module:

Option Explicit
Sub test()
    Dim un_fichier As Workbook, autre_fichier as Workbook
    Set un_fichier = Fichier1()
    Set autre_fichier = Fichier2()
End Sub

Qu'en penses-tu?

Bonjour tom,

Au début de Module1, mets tes déclarations de variables publiques
avant ta première Sub :

Option Explicit

Public Fichier1 As Workbook
Public Fichier2 As Workbook
Public Fichier3 As Workbook
Public Fichier4 As Workbook
'

Sub Essai()
  MsgBox Fichier1.Name & vbLf & Fichier2.Name & vbLf _
    & Fichier3.Name & vbLf & Fichier4.Name
End Sub

Dans Module1, tu peux mettre uniquement tes déclarations
de variables publiques, et mettre ta 1ère Sub dans Module2.

----------------------------------

Dans ThisWorkbook, mets ce code VBA :

Option Explicit


Private Sub Workbook_Open()
  Set Fichier1 = Workbooks("Suivi du temps")
  Set Fichier2 = Workbooks("Aléas")
  Set Fichier3 = Workbooks("Reste a faire")
  Set Fichier4 = Workbooks("Emp")
End Sub

Attention :

Ce code sera exécuté uniquement à l'ouverture du classeur ;
les variables publiques seront alors correctement initialisées.

N'oublie jamais que si ton programme plante, alors cette
brusque interruption fera que le contenu des variables en
mémoire sera perdu : tes variables publiques ne seront plus
valables ! Il faudra fermer le classeur puis le ré-ouvrir pour
que tes variables publiques soient de nouveau correctes.

----------------------------------

Si ton problème est réglé, merci de l'indiquer,
pour que le sujet puisse être passé en résolu.

Cordialement.  :)
 

Bonjour,

comment je procède en général. Dans un module Standard :

Option Explicit

Public initOk As Boolean
Public Fichier1 As Workbook
Public Fichier2 As Workbook
Public Fichier3 As Workbook
Public Fichier4 As Workbook

Sub init()
    Set Fichier1 = Workbooks("Suivi du temps")
    Set Fichier2 = Workbooks("Aléas")
    Set Fichier3 = Workbooks("Reste a faire")
    Set Fichier4 = Workbooks("Emp")
    initOk = True
End Sub

' dans les sub principaux et éventuellement workbook_Open() :
Sub machin_truc()
    If Not initOk Then init
    ' etc
End Sub 

Avantage :
si plantage lors de la mise au point (ou plus tard) les variables se ré-initialiseront car initOk sera repassé aussi à False.

Note à Albkan : Workbook_Open() doit être un des rares événements qui peuvent se lancer par F5, donc sans fermer le fichier.
eric
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Bonjour,

Merci pour vos retour très intéressant, je vais tester cela,

j'utilise également le code suivant pour vérifier si le fichier est déjà ouvert, sinon l'ouvrir.

On Error Resume Next

je peux mettre ce type de code dans le module de déclaration et en spécifiant 1 chemin d’accès a un workbook de façon a ne pas le répéter dans les différents modules et de pouvoir changer le chemin d’accès facilement si besoin.. ?

Bonjour,

Merci pour les infos, dans un module de déclaration j'ai procédé comme ci dessous,

En plaçant le FichierSOk dans les autres modules qui peuvent appeler les workbook déclaré ci dessous,

Cependant il y a une erreur :

Erreur de compilation :
Nom ambigu détecté

le nom de la constante doit être différent de la variable workbook ?
Merci pour vos conseils

Option Explicit
'Affectation constante
Public Const Fichier2 As String = "X:\
Public Const Fichier3 As String = "X:\
Public Const Fichier4 As String = "X:\
Public Const Fichier5 As String = "X:\
Public Const Fichier6 As String = "X:\

Public FichierSOk As Boolean
Public Fichieranalyse As Workbook
Public Fichier2 As Workbook
Public Fichier3 As Workbook
Public Fichier4 As Workbook
Public Fichier5 As Workbook
Public Fichier6 As Workbook

Sub FichierSOk()
Set Fichieranalyse = Workbooks("Fichier analyse")
Set Fichier1 = Workbooks("Suivi du temps")
Set Fichier2 = Workbooks("Aléas")
Set Fichier3 = Workbooks("Reste a faire")
Set Fichier4 = Workbooks("Emp")
FichierSOk = True

End Sub