XL 2010 Visualisation/masquage de fichiers avec Application.GetOpenFilename

Philippe LAMACHE · 29 Août 2019

Bonjour à tous,
J'utilise la fonction GetOpenFilename pour ouvrir, à chaque fois, 2 fichiers l'un après l'autre dans chaque répertoire.

VB:

Sub Ouvrir_Fichier()
Dim result As String
LectChemin$ = ThisWorkbook.Path
If ActiveLectChemin(LectChemin$) Then
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel, *.xls;*.xlsx")
result = Nom_Fichier
result = Mid(result, 1, Len(result) - 4)
Do While Replace(result, "\", "") <> result
result = Mid(result, 2, Len(result) - 1)
Loop
If Nom_Fichier <> False Then
    Workbooks.Open Filename:=Nom_Fichier
End If
Else
   Exit Sub
End If
End Sub

Je copie mon fichier (contenant les macros) dans le répertoire voulu <= Action manuelle
J'ouvre ledit fichier puis avec les macros :

1) J'ouvre le 1er fichier de la liste
2) Je traite ce que j'ai à traiter
3) Je referme le fichier ouvert
4) Msgbox pour demander le 2ème fichier
5) C'est reparti de 1) à 3)

Ma question est la suivante:
Peut-on n'afficher que le 1er fichier [#1] à la première activation de GetOpenFilename et n'afficher que le 2ème fichier [#5] à la seconde activation de GetOpenFilename ?
Notez que dans les différents répertoires, il n'y a que 2 fichiers, qu'il sont toujours dans le bon ordre, mais qui ont des noms variables d'un répertoire à l'autre.

Par avance, merci.

XL 2010 Visualisation/masquage de fichiers avec Application.GetOpenFilename

Philippe LAMACHE

XLDnaute Junior

Discussions similaires