XL 2010 Visualisation/masquage de fichiers avec Application.GetOpenFilename

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Philippe LAMACHE

XLDnaute Junior
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour