Macro Ouverture de fichier

Version imprimable

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:

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.

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

Code:

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:

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

21/01/2010, 12h27
Didier Gonard

Bonjour,

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

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

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

cordialement,

Didier
21/01/2010, 12h49
jojo86

A quoi correspond ta variable w?