avec un bouton ouvrir une fenetre

noon

XLDnaute Junior
bonjour a toute et tous

voila mon probleme
dans une feuille excel je souhaite ajouter un bouton
qui en cliquant dessus m ouvre un dossier (qui contient des documents excel)
mais voila quand je fais cette macro en auto je suis obliger d aller
jusqu a la ouverture d un des documents excel qui se trouve dans se dossier ce que je ne veux pas je veux simplement que la macro s arrete a l ouverture du dossier et apres moi je choisis quelle document je veux ouvrir

voila comme souvent ca doit pas etre super clair
pour ceux qui on compris mon charabia merci
 

tontoncarton

XLDnaute Occasionnel
bonjour ,

voila l'exemple d'excel pour ouvrir un fichier texte tu n'as qu'as changé les .txt par le style de fichier que tu veux

fileToOpen = Application _
.GetOpenFilename('Text Files (*.txt), *.txt')
If fileToOpen <> False Then
MsgBox 'Open ' & fileToOpen
End If

@ +
 

Brigitte

XLDnaute Barbatruc
Bonjour à tous,

Et bien moi qui me réjouissais de ce code. Une fois appliqué à un bouton, il marche plus.

J'avais dit bravo trop tôt. En fait, dans word, j'ai réussi à faire des boutons de macro qui ouvrent tel ou tel répertoire évitant les longs cheminement.

Mais dans excel, je butte depuis longtemps.

Là je viens de coller la macro de Pascal dans mon classeur de macros perso (perso.xls) excel, et elle semblait marcher quand je fais 'exécuter'.

Tout s'est gâté (comme avec les miennes) lorsque j'ai mis un bouton dans la barre d'outils. Lorsque je clique sur le bouton, ca me change pas de répertoire et ca me propose celui en cours, à moins que j'ai oublié qqchse dans la recette...

Tant pis

Bonne journée.. quand même.

Message édité par: Brigitte, à: 26/08/2005 12:19
 

2passage

XLDnaute Impliqué
bonjour,

ca ne serait pas un soucis de chdrive ? si tu fais un chdir 'c:machin' mais que le dernier fichier vient de D il faut faire un chdrive pour revenir sur c
illustration avec une copie de fenetre debug :

Code:
debug.print curdir
e:\\test
chdir 'c:\\'
debug.print curdir
e:\\test
chdrive 'c:'
debug.print curdir
c:\\

cqfd ;)
A+
 

PascalXLD

XLDnaute Barbatruc
Modérateur
Re

Pour ce que dit Brigitte il faut peut-être essayer comme ceci
Code:
 Sub toto()
 ChDrive 'C' 'Le lecteur que tu désires
ChDir 'C:\\tmp' 'Le dossier que tu veux ouvrir

Application.Dialogs(xlDialogOpen).Show
End Sub

Bon courage
 

Brigitte

XLDnaute Barbatruc
Bonjour à tous,


Je prends enfin le temps d'installer vos idées sur mon pc... CA MARCHE, c'est trop fort. Cette fois c'est sûr, il manquait le petit CHDRIVE... vous aviez raison. Mais comme j'avais fait la macro avec l'enregistreur de macros, ca me donnait que le ChDir...

Merci à tous les deux, Pascal et 2Passage.

Les deux boutons figurent sur ma barre d'outils et me gagnent un temps précieux. J'avais réussi dans word mais dans excel, ca ne marchait pas (bizarre ca, non ?).

Bises pour la peine.
 

Discussions similaires

Réponses
7
Affichages
436

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal