Creer une macro qui m'ouvrira un dossier

[creolia]

Bonjour à tous je suis à la recherche d'une macro qui associer à un bouton ou un lien me permetrais ouvrir un dossier mon but etant que chaque utilisateur puisse choisir sont fichier excel à ouvrir.

j'ai tenter une macro avec l'enregistreur mais cela fonctionne pas.

Sub Macro1()
    ChDir "C:\Users\infirmerie\Documents\Archive Nathalie"
    Workbooks.Open Filename:= _
        "C:\Users\infirmerie\Documents\"
End Sub

il y a t'il une autre possibilité svp merci d'avance

 

[Balot57]

Re : Creer une macro qui m'ouvrira un dossier

Bonjour,
Essaie ce code, peut-être répond-il à ta question.

sub OuvrirFichier()
dim CheminFichier as string
CheminFichier = Application.GetOpenFilename("Fichier à ouvrir (*.xls), *.xls", , "Sélectionnez le fichier à ouvrir", , False)
Workbooks.Open Filename:=CheminFichier
end sub

 

[MichD]

Re : Creer une macro qui m'ouvrira un dossier

Bonjour,

Tu peux utiliser cette ligne de code + le chemin où tu veux que la fenêtre s'ouvre par défaut

Application.Dialogs(xlDialogOpen).Show ("C:\MonChemin\")