OVH Cloud OVH Cloud

bouton parcourir

2 réponses
Avatar
ced
salut,
existe-t-il un moyen simple de cr=E9er un=20
bouton "parcourir" qui ouvre une fenetre du=20
style "enregistrer sous..." ou "ouvrir" ?

2 réponses

Avatar
Hervé
Salut ced,
Clique sur ; Affichage|barres d'outils|Boîte à Outils contrôles|Bouton de
commande, et pose le sur ta feuille où bon te semble.
Double clic sur le bouton, te voilà dans le VBE. Entre les 2 lignes, colle
celles-ci :

Dim chemin
chemin = Application.GetOpenFilename
If chemin <> False Then MsgBox chemin

Clic sur le bouton "Désactiver le mode création" de la barre d'outils,
fermer la barre et teste.
Modifie les propriété dans le VBA si tu veux le personaliser. Il est bien
entendu que tu dois adapter le code pour utiliser ce que te renvoi la boîte.

Hervé.

"ced" a écrit dans le message news:
0ab301c351f1$a6e883d0$
salut,
existe-t-il un moyen simple de créer un
bouton "parcourir" qui ouvre une fenetre du
style "enregistrer sous..." ou "ouvrir" ?
Avatar
ced
merci, c'est exactement ce que je cherchait


-----Message d'origine-----
Salut ced,
Clique sur ; Affichage|barres d'outils|Boîte à Outils
contrôles|Bouton de

commande, et pose le sur ta feuille où bon te semble.
Double clic sur le bouton, te voilà dans le VBE. Entre
les 2 lignes, colle

celles-ci :

Dim chemin
chemin = Application.GetOpenFilename
If chemin <> False Then MsgBox chemin

Clic sur le bouton "Désactiver le mode création" de la
barre d'outils,

fermer la barre et teste.
Modifie les propriété dans le VBA si tu veux le
personaliser. Il est bien

entendu que tu dois adapter le code pour utiliser ce que
te renvoi la boîte.


Hervé.

"ced" a écrit dans le message
news:

0ab301c351f1$a6e883d0$
salut,
existe-t-il un moyen simple de créer un
bouton "parcourir" qui ouvre une fenetre du
style "enregistrer sous..." ou "ouvrir" ?


.