Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Répertoire imposé

Répertoire imposé

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
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" a écrit dans le message de news:
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
Avatar
Brat'ac
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