Répertoire imposé

Le
Brat'ac
Bonjour,

Dans le code suivant comment faire pour imposer un répertoire
particulier ?

Sub essai()
Dim Fichier As Variant
Fichier = Application.GetOpenFilename("Tous les fichiers Excel
(*.*),*.*")
If Fichier = False Then Exit Sub
MsgBox Fichier ' pour essai
End Sub
--
Merci de l'aide
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 #26352846
Bonjour,
Comme ceci peut-être, en adaptant le lecteur et le chemin des répertoires
'------------
Sub essai()
Dim Fichier As Variant
ChDrive "D" ' lecteur
ChDir "D:MesDocsFichiers Excel" 'répertoires
Fichier = Application.GetOpenFilename("Tous les fichiers Excel(*.*),*.*")
If Fichier = False Then Exit Sub
MsgBox Fichier ' pour essai
End Sub
'--------------

--
Salutations
JJ


"Brat'ac"
Bonjour,

Dans le code suivant comment faire pour imposer un répertoire particulier ?
------------------------------------------------------------------------
Sub essai()
Dim Fichier As Variant
Fichier = Application.GetOpenFilename("Tous les fichiers Excel (*.*),*.*")
If Fichier = False Then Exit Sub
MsgBox Fichier ' pour essai
End Sub
-----------------------------------------------------------------------
Merci de l'aide
Brat'ac
Le #26352851
Jacky a couché sur son écran :
Bonjour,
Comme ceci peut-être, en adaptant le lecteur et le chemin des répertoires
'------------
Sub essai()
Dim Fichier As Variant
ChDrive "D" ' lecteur
ChDir "D:MesDocsFichiers Excel" 'répertoires
Fichier = Application.GetOpenFilename("Tous les fichiers Excel(*.*),*.*")
If Fichier = False Then Exit Sub
MsgBox Fichier ' pour essai
End Sub
'--------------

--
Salutations
JJ




Super , Merci
Publicité
Poster une réponse
Anonyme