Discussion :

[jojo86]

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.

[melouille56]

Salut
voilà ce que moi je me suis créé, si ca peut t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function OuvrirFichier(PathChemin As String)
 
Dim ouvert As Boolean
Dim NomFichier As String
 
'Vérifie si le fichier choisi est déjà ouvert
ouvert = False
NomFichier = ExtractFileName(PathChemin)
For Each w In Workbooks
    If w.Name = NomFichier Then
        w.Activate
        ouvert = True
        Exit For
    End If
Next w
 
'Ouvre le fichier s'il n'est pas déjà ouvert
If ouvert = False Then Workbooks.Open PathChemin
 
End Function

plus la fonction pour extraire le nom du fichier à partir de son chemin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Function ExtractFileName(ByVal sFullPath As String) As String
 
    If InStr(sFullPath, "\") = 0 Or Right(sFullPath, 1) = "\" Then
        ExtractFileName = ""
        Exit Function
    End If
    ExtractFileName = Mid(sFullPath, InStrRev(sFullPath, "\") + 1)
 
End Function

Tu dis

[Didier Gonard]

Bonjour,

Jojo,86, as-tu regardé ou cherché un minimum sur le forum

5-6 posts avant le tien ce matin...

http://www.developpez.net/forums/d86...r-deja-ouvert/

cordialement,

Didier

[jojo86]

A quoi correspond ta variable w?