Macro Ouverture dossier Windows

[mgd]

Bonjour le forum!

Voilà quelque temps que je ne me suis pas connectée... Et après avoir fouillé le forum, j'ai pas réussi à trouver une info très simple... J'ai bien identifié la ligne de commande pour ouvrir un fichier dans un dossier bien précis :

ChDir "C:\"
Workbooks.Open Filename:="C:\ESSAI\PremierElement\Fiche.xls

mais je ne sais pas comment écrire la ligne de code permettant d'ouvrir le dossier PremierElement dans l'explorateur Windows.

D'avance merci de votre précieuse aide si vous avez 2 min pour répondre.
Bonsoir à tous,

Mgd

 

[JCGL]

Re : Macro Ouverture dossier Windows

Bonsoir à tous,

Peux-tu essayer avec :

Workbooks.Open Filename:="C:\ESSAI\PremierElement\Fiche.xls"


A+

Edition : Salut Luc, content aussi de te croiser ;-)

 

[Luki]

Re : Macro Ouverture dossier Windows

Bonsoir Mgd,

Pas sûr d'avoir compris ce que tu veux faire : j'ai compris que tu veux choisir un fichier dans un répertoire donné et l'ouvrir. (Il n'est pas posssible "d'ouvrir un dossier" au sens ou on l'entend pour un fichier.)

Essaie ceci et dis nous...

Sub Choisir_Fichier_à_Ouvrir_Dans_Un_Dossier()
Dim TheFile ' déclaré variant car c'est soit "false" soit du texte
'Change le répertoire courant vers "premierElement"
    ChDir "E:\ESSAI\PremierElement"  [B][COLOR=Red]'chemin à adapter!!![/COLOR][/B]
' affiche la boite de dialogue "Ouvrir" et renvoie le chemin du fichier choisi
    TheFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
'si "annuler", sort de la macro
    If TheFile = False Then Exit Sub
' sinon ouvre le fichier choisi
    Workbooks.Open Filename:=TheFile
End Sub

A+

Tiens, salut JC, on ne s'était pas croisé depuis un moment!