Macro ouvrir fichier d'un dossier Résolu/Fermé

Question

Bonjour, 

Sur mon bureau j'ai un dossier. Dans ce dossier j'ai un fichier excel appelé "fichier_calcul" et un sous dossier appelé "données_brutes".

j'aimerai une macro qui s'effectue à partir de "fichier_calcul" et qui me permet d'ouvrir des fichiers du sous-dossier "données_brutes". 
Le but étant d'avoir un chemin d'accès pour les données brutes à partir de l'emplacement du fichier de calcul.

J'ai entendu parler de la fonction dir mais je ne connais pas du tout et les explications que j'ai trouvé ne m'ont pas trop aidé...

Merci d'avance pour votre aide

ThauTheme · Answer

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 :

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

Macro ouvrir fichier d'un dossier

1 réponse

Discussions similaires