Bonjour,

Je recherche une macro qui ouvrirait un fichier et qui vérifirait si ce fichier n'est pas déjà ouvert.

J'ai fait ceci, mais parfois il ne detecte pas la fenetre...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub OuvrirFichier(NomFichier As String)
Dim classeur As String
Dim Annee As String
Dim i As Integer
Application.ScreenUpdating = False
For i = Workbooks.Count To 1 Step -1
    If Workbooks(i).Name = NomFichier Then
        Workbooks(LTrim(NomFichier)).Activate
    Else
        Workbooks.Open ActiveWorkbook.Path + "\" + NomFichier
    End If
Next i
End Sub
Merci à vous.