avec un bouton ouvrir une fenetre

[noon]

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]

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

@ +

 

[2passage]

BOnjour,

si j'ai bien compris le code suivant doit suffir (en remplaçant C:\\ par le chemin que tu souhaites afficher :

Private Sub CommandButton1_Click()
nimporte = Shell('explorer.exe c:\\', vbNormalFocus)
End Sub

A+

 

[noon]

ok merci
je vais etudier ca

 

[PascalXLD]

Bonjour

Peut-être ceci

Sub toto()
ChDir 'C:\\tmp' 'Le dossier que tu veux ouvrir

Application.Dialogs(xlDialogOpen).Show
End Sub

Bon courage

 

[Brigitte]

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]

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 :

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

cqfd 😉
A+

 

[Brigitte]

Merci 2passage,

Je vais essayer ca dès que je peux... Mais ca voudrait dire qu'il faut une macro dans un sens (de G à I par exemple : je parle de mes répertoires) et une autre dans l'autre sens (de I à G) ?

Merci..

 

[PascalXLD]

Re

Pour ce que dit Brigitte il faut peut-être essayer comme ceci

 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]

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.