Macro ouvrir un fichier
Fermé
mila
-
26 mai 2011 à 14:15
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 26 mai 2011 à 14:29
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 26 mai 2011 à 14:29
A voir également:
- Macro ouvrir un fichier
- Ouvrir fichier rar - Guide
- Comment ouvrir un fichier apk ? - Guide
- Ouvrir un fichier .dat - Guide
- Ouvrir fichier .bin - Guide
- Comment ouvrir un fichier docx ? - Guide
1 réponse
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
153
26 mai 2011 à 14:29
26 mai 2011 à 14:29
Bonjour,
essaie ca :
Sub ListeFichier()
Dim objFSO, objDossier, objFichier, objResultat
Dim Repertoire, NomFichierTxt
Repertoire = "Y:\Contrôle de gestion\comptes\comptes_clients\2010"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder("F:\Nouveau dossier\perso\secrete arlette")
For Each objFichier In objDossier.Files
If Right(Left(objFichier, Len(objFichier) - Len(objFichier)), 1) = "" & nom & " - PB" & N - 1 & "" Then
Workbooks.Open Filename:=objFichier
End If
Next
Set objDossier = Nothing
Set objFSO = Nothing
End Sub
Je l'ai trouvé sur internet et l'ai un peu adapté à ton cas.
Définis ton répertoire, ca va rechercher tous les fichiers de ton répertoire et celui qui correspond à tes critères (que j'ai pris sur ta macro de base), ca l'ouvre.
essaie ca :
Sub ListeFichier()
Dim objFSO, objDossier, objFichier, objResultat
Dim Repertoire, NomFichierTxt
Repertoire = "Y:\Contrôle de gestion\comptes\comptes_clients\2010"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder("F:\Nouveau dossier\perso\secrete arlette")
For Each objFichier In objDossier.Files
If Right(Left(objFichier, Len(objFichier) - Len(objFichier)), 1) = "" & nom & " - PB" & N - 1 & "" Then
Workbooks.Open Filename:=objFichier
End If
Next
Set objDossier = Nothing
Set objFSO = Nothing
End Sub
Je l'ai trouvé sur internet et l'ai un peu adapté à ton cas.
Définis ton répertoire, ca va rechercher tous les fichiers de ton répertoire et celui qui correspond à tes critères (que j'ai pris sur ta macro de base), ca l'ouvre.