Bonjour,

j'ai dans mes macros une séquence qui permet de mettre des "Top" dans un fichier servant de paramètre sur le serveur consulté ensuite en lecture par les macros utilisateurs sur différents PC. voici cette séquence:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
  If Len(Dir(fichTopMaj)) > 0 Then        ' on voit le fichier TopMaj sur le serveur
                 Verification = OpenTopMaj(fichTopMaj)
                     If Verification = False Then     ' il existe, voir s'il est fermé ou en cours d'utilisation
                         Workbooks.Open fichTopMaj
                         Set Top = Sheets("Top")
                         Top.Range("B2:B30") = 1  ' infos paramètre
                         Workbooks(EStopMaj).Close True
                     Else
                     End If
            Else
            End If
Pour le cas (assez improbable mais qui peut se produire) où le fichier est en utilisation juste au moment du traitement, j'imagine mettre un timer qui relance l'opération au bout de 2 secondes par exemple (maxi 3 boucles par exemple)

J'ai trouvé sur le forum ce code pour 2 secondes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Application.Wait Time + TimeSerial(0, 0, 2)
J'aimerai votre avis d'expert sur cette méthode (imaginée par votre serviteur) ou me donner d'autres pistes

merci