Exploration de fichier dans un répertoire précis

Le
Steph
Bonsoir,

Je cherche à ouvrir une fenêtre d'explorateur de fichier directement dans un
repertoire bien précis se trouvant dans une variable "Chemin".

Voici ci dessous le code me permettant d'ouvrir une fenêtre d'explorateur
mais je ne trouve pas le moyen de préciser le répertoire d'ouverture, j'ai
essayer "Dir Chemin" apparement ca ne fonctionne pas.

Sauriez-vous m'aiguiller ?

-
Sub testrep()
Dim Dlg As FileDialog
Dim i As Integer

Set Dlg = Application.FileDialog(msoFileDialogOpen)
Dlg.Show

End Sub
-

D'avance merci,

Steph
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #4221341
Bonsoir,

Un petit coup de F1 sur instruction
ChDir

--
Salutations
JJ


"Steph" 45e46053$0$2937$
Bonsoir,

Je cherche à ouvrir une fenêtre d'explorateur de fichier directement dans
un repertoire bien précis se trouvant dans une variable "Chemin".

Voici ci dessous le code me permettant d'ouvrir une fenêtre d'explorateur
mais je ne trouve pas le moyen de préciser le répertoire d'ouverture, j'ai
essayer "Dir Chemin" apparement ca ne fonctionne pas.

Sauriez-vous m'aiguiller ?

-------------------------------
Sub testrep()
Dim Dlg As FileDialog
Dim i As Integer

Set Dlg = Application.FileDialog(msoFileDialogOpen)
Dlg.Show

End Sub
-------------------------------

D'avance merci,

Steph



MichDenis
Le #4221221
Si tu veux seulement ouvrir une fenêtre pour un répertoire donné,
tu peux utiliser ceci en utilisant le chemin que tu désires...
cependant, tu ne pourras pas recueillir le ou les fichiers
sélectionnés dans une variable... si besoin... tu fais signe

Application.Dialogs(xlDialogOpen).Show "c:Denis"


"Steph" 45e46053$0$2937$
Bonsoir,

Je cherche à ouvrir une fenêtre d'explorateur de fichier directement dans un
repertoire bien précis se trouvant dans une variable "Chemin".

Voici ci dessous le code me permettant d'ouvrir une fenêtre d'explorateur
mais je ne trouve pas le moyen de préciser le répertoire d'ouverture, j'ai
essayer "Dir Chemin" apparement ca ne fonctionne pas.

Sauriez-vous m'aiguiller ?

-------------------------------
Sub testrep()
Dim Dlg As FileDialog
Dim i As Integer

Set Dlg = Application.FileDialog(msoFileDialogOpen)
Dlg.Show

End Sub
-------------------------------

D'avance merci,

Steph
MichDenis
Le #4221211
M. Jacky, peux-tu me donner un exemple avec Chdir
et la méthode suggérée ?
Set Dlg = Application.FileDialog(msoFileDialogOpen)

Si c'est pour ouvrir sur un répertoire donné, il devrait plutôt utilser :
Set Dlg = Application.FileDialog(msoFileDialogFolderPicker)
Dlg.Show
et dans ce cas même si tu utilises chdir pour modifier le chemin.
ça ne fonctionne pas ...!

C'est pas grave....ça te coûtera seulement une tournée générale
lors de votre prochanine rencontre ce printemps ... tu pourras
partager la dépense avec JPS !!! ;-))


"Jacky" Bonsoir,

Un petit coup de F1 sur instruction
ChDir

--
Salutations
JJ


"Steph" 45e46053$0$2937$
Bonsoir,

Je cherche à ouvrir une fenêtre d'explorateur de fichier directement dans
un repertoire bien précis se trouvant dans une variable "Chemin".

Voici ci dessous le code me permettant d'ouvrir une fenêtre d'explorateur
mais je ne trouve pas le moyen de préciser le répertoire d'ouverture, j'ai
essayer "Dir Chemin" apparement ca ne fonctionne pas.

Sauriez-vous m'aiguiller ?

-------------------------------
Sub testrep()
Dim Dlg As FileDialog
Dim i As Integer

Set Dlg = Application.FileDialog(msoFileDialogOpen)
Dlg.Show

End Sub
-------------------------------

D'avance merci,

Steph



Jacky
Le #4219581
C'est pas grave....ça te coûtera seulement une tournée générale
lors de votre prochanine rencontre ce printemps ... tu pourras
partager la dépense avec JPS !!! ;-))


Je suis d'accord, à condition que tu viennes.

M.Jacky ;-))))))))))))



"MichDenis"
M. Jacky, peux-tu me donner un exemple avec Chdir
et la méthode suggérée ?
Set Dlg = Application.FileDialog(msoFileDialogOpen)

Si c'est pour ouvrir sur un répertoire donné, il devrait plutôt utilser :
Set Dlg = Application.FileDialog(msoFileDialogFolderPicker)
Dlg.Show
et dans ce cas même si tu utilises chdir pour modifier le chemin.
ça ne fonctionne pas ...!

C'est pas grave....ça te coûtera seulement une tournée générale
lors de votre prochanine rencontre ce printemps ... tu pourras
partager la dépense avec JPS !!! ;-))


"Jacky"
Bonsoir,

Un petit coup de F1 sur instruction
ChDir

--
Salutations
JJ


"Steph" 45e46053$0$2937$
Bonsoir,

Je cherche à ouvrir une fenêtre d'explorateur de fichier directement dans
un repertoire bien précis se trouvant dans une variable "Chemin".

Voici ci dessous le code me permettant d'ouvrir une fenêtre d'explorateur
mais je ne trouve pas le moyen de préciser le répertoire d'ouverture,
j'ai
essayer "Dir Chemin" apparement ca ne fonctionne pas.

Sauriez-vous m'aiguiller ?

-------------------------------
Sub testrep()
Dim Dlg As FileDialog
Dim i As Integer

Set Dlg = Application.FileDialog(msoFileDialogOpen)
Dlg.Show

End Sub
-------------------------------

D'avance merci,

Steph









MichDenis
Le #4219501
| Je suis d'accord, à condition que tu viennes.

J'attends que cette riche organisation qu'est le C.O.I.N.
me fasse parvenir mes billets d'avion !

N'est-elle pas subventionné par Microsoft ?

;-))))


"
Steph
Le #4219361
Merci pour vos renseignements ;-)


"MichDenis"
Si tu veux seulement ouvrir une fenêtre pour un répertoire donné,
tu peux utiliser ceci en utilisant le chemin que tu désires...
cependant, tu ne pourras pas recueillir le ou les fichiers
sélectionnés dans une variable... si besoin... tu fais signe

Application.Dialogs(xlDialogOpen).Show "c:Denis"


"Steph" 45e46053$0$2937$
Bonsoir,

Je cherche à ouvrir une fenêtre d'explorateur de fichier directement dans
un
repertoire bien précis se trouvant dans une variable "Chemin".

Voici ci dessous le code me permettant d'ouvrir une fenêtre d'explorateur
mais je ne trouve pas le moyen de préciser le répertoire d'ouverture, j'ai
essayer "Dir Chemin" apparement ca ne fonctionne pas.

Sauriez-vous m'aiguiller ?

-------------------------------
Sub testrep()
Dim Dlg As FileDialog
Dim i As Integer

Set Dlg = Application.FileDialog(msoFileDialogOpen)
Dlg.Show

End Sub
-------------------------------

D'avance merci,

Steph





Publicité
Poster une réponse
Anonyme