ouverture fenêtre windows

Bonjour

Pour le bon fonctionnement de mon programme, je voudrais que quand l'utilisateur clique sur un bouton, une fenêtre windows avec l'arborescence de l'ordi s'ouvre pour que l'utilisateur puisse sélectionner le fichier qui contient les données à traiter. Le chemin du fichier sélectionné serait stocké dans une variable pour être ensuite réutilisé dans une procédure.
Je n'arrive pas à trouver comment faire, vous pouvez m'aider svp ?
merci

bonjour

As tu consulté la FAQ ?

Comment choisir un fichier sur le PC et récupérer son nom (utilisation de GetOpenFilename) ?


Et si tu disposes d'OfficeXP (ou ultérieur)

Comment utiliser la boîte de dialogue FileDialog ?
(msoFileDialogFilePicker)



bonne journée
michel

merci
j'avais mal cherché
bonne journée

bonjour

j'ai encore un pb : j'ai essayé d'adapter la procédure mais je n'arrive pas à rentrer le chemin du fichier dans une variable.

voilà ce que j'ai écrit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Function ChoixFichier(nom As String) As Variant 'La variable est de type Variant car elle peut prendre les valeurs: 'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération. 'String: pour renvoyer le nom du fichier sélectionné. Dim Fichier As Variant   'Affiche la boîte de dialogue "Ouvrir" Fichier = Application.GetOpenFilename("fichiers csv(*.csv),*.csv", 2, nom) 'affiche seulement les fichiers csv   'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur 'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture. If Fichier = False Then Exit Function   ChoixFichier = Fichier   'Affiche le chemin et le nom du fichier sélectionné. MsgBox Fichier   End Function

---

le pb c'est qu'à chaque fois que j'appelle le résulat de cette fonction en paramètre d'une autre procédure, la fenêtre "ouvrir" apparaît alors que je voudrais juste récupérer le chemin d'accès


merci de votre aide

bonsoir à tous


Tu devrais déclarer ta variable Fichier en haut de ton module

Code:

---

1 2 3 4 5 6 7 8

Public Fichier As Variant 'ou 'Dim Fichier as Variant Sub test() ChoixFichier "monTitre" Workbooks.OpenText Filename:=Fichier End Sub

---

et supprimer la ligne

Code:

---

'Dim Fichier As Variant

---

dans ta fonction

Tu devrais jeter un œil ici particulièrement le chapitre V


En espérant que cela t'aidera
cordialement

Bonsoir

Tout d'abord merci de votre aide. Vous avez raison, je pense que j'ai mal déclaré mes variables, par contre votre solution n'est pas tout à fait adaptée à ce que je cherche à faire.
En effet je souhaiterais stocker plusieurs chemins d'accès : l'utilisateur appelle plusieurs fois la fonction pour chercher plusieurs dossiers différents, c'est pour cela que ma fonction a un paramètre, le chemin d'accès à stocker dépend de ce paramètre.

Pour l'instant j'ai adapté mon code pour que la fenêtre ouvrir ne s'ouvre pas plusieurs fois de suite mais pour la suite je suis bloquée.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() 'bouton satellites Dim nb_lignes1 As Integer Dim nb_col1 As Integer 'Call ChoixFichier("satellite") 'Call Lecture_fichier(ChoixFichier("satellite"), 1) nb_lignes1 = Lecture_fichier(ChoixFichier("satellite"), 1) nb_col1 = 30 + 2 Call enregistrement_donnees(1, "satellites", nb_lignes1, nb_col1, 3) End Sub

---

Si vous avez des conseils ...
merci

Je suis bête, suffit de faire un tableau et de bien le déclarer en public.
Je vais essayer.

bonne soirée