Macro ouvrir fichier d'un dossier
Résolu/Fermé
A voir également:
- Vba ouvrir tous les fichiers d'un dossier
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Comment ouvrir un fichier docx ? - Guide
- Ouvrir un fichier rar - Guide
- Mettre un mot de passe sur un dossier - Guide
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
17 août 2015 à 23:25
17 août 2015 à 23:25
Bonsoir TEX, bonsoir le forum,
En pièce jointe un petit exemple pour illustrer avec un bouton Données Brutes dans l'onglet Feuil1 qui lance l'UserForm1 (boîte de dialogue) Ouvrir. La liste des fichiers Excel contenus dans le sous-dossier données_brute est affichée dans la ListBox1. Un Clic sur un des fichiers de la liste pour ouvrir celui-ci et fermer l'UserForm.
Le code de l'UserForm :
le fichier
En pièce jointe un petit exemple pour illustrer avec un bouton Données Brutes dans l'onglet Feuil1 qui lance l'UserForm1 (boîte de dialogue) Ouvrir. La liste des fichiers Excel contenus dans le sous-dossier données_brute est affichée dans la ListBox1. Un Clic sur un des fichiers de la liste pour ouvrir celui-ci et fermer l'UserForm.
Le code de l'UserForm :
Private CA As String 'déclare la variable CA (Chemin d'Accès)
Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim F As String 'déclare la variable F (Fichier)
CA = ThisWorkbook.Path & "\données_brutes" 'définit le chemin d'accès CA (sous-dossier "donnéees_brutes" du dossier de ce fichier)
F = Dir(CA & "\*.xls") 'définit la fichier F (premier fichier Excel ayant CA comme chemin d'accès)
Do While Not F = "" 'boucle tant que F n'est pas vide
Me.ListBox1.AddItem F 'ajoute le fichier F à la ListBox1
F = Dir 'redéfinit le fichier F (prochain fichier Excel ayant CA comme chemin d'accès)
Loop 'boucle
End Sub
Private Sub ListBox1_Click() 'au clic dans la Listbox1
Workbooks.Open (CA & "\" & Me.ListBox1.Value) 'ouvre le fichier sélectionné
Unload Me 'vide et ferme l'UserForm
End Sub
le fichier
18 août 2015 à 15:02
Encore merci