Macro ouvrir fichier d'un dossier

Résolu
Tex -  
 Tex -
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

1 réponse

Réponse 1 / 1
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
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
1
Tex
 
Merci pour ton aide ThauTheme. J'ai découvert la fonction path entre temps et effectivement ça marche plutôt bien. Je vais essayer d'utiliser ton userform.
Encore merci
0