Bonjour,
J'ai l'habitude de r=C3=A9cup=C3=A9rer le nom d'un fichier avec ce code :
fileToOpen =3D Application.GetOpenFilename
Serait-il possible de r=C3=A9cup=C3=A9rer le nom d'un r=C3=A9pertoire de la=
m=C3=AAme fa=C3=A7on ?
Merci
Caroual
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
DanielCo
Bonjour, Utilise ChDrive et Chdir avant la commande GetOpenFileName : ChDrive "C" ChDrive "C:temp" Cordialement. Daniel
Bonjour, J'ai l'habitude de récupérer le nom d'un fichier avec ce code : fileToOpen = Application.GetOpenFilename Serait-il possible de récupérer le nom d'un répertoire de la même façon ? Merci Caroual
Bonjour,
Utilise ChDrive et Chdir avant la commande GetOpenFileName :
ChDrive "C"
ChDrive "C:temp"
Cordialement.
Daniel
Bonjour,
J'ai l'habitude de récupérer le nom d'un fichier avec ce code :
fileToOpen = Application.GetOpenFilename
Serait-il possible de récupérer le nom d'un répertoire de la même
façon ? Merci
Caroual
Bonjour, Utilise ChDrive et Chdir avant la commande GetOpenFileName : ChDrive "C" ChDrive "C:temp" Cordialement. Daniel
Bonjour, J'ai l'habitude de récupérer le nom d'un fichier avec ce code : fileToOpen = Application.GetOpenFilename Serait-il possible de récupérer le nom d'un répertoire de la même façon ? Merci Caroual
MichD
Bonjour,
Il y a quelque chose comme ceci, exécute la procédure Test.
Application.FileDialog(msoFileDialogFolderPicker) n'existe pas sur les versions antérieures à Excel 2003 (de mémoire)
'--------------------------------------- Sub test() Dim Répertoire As String
'Tu peux indiquer un répertoire par défaut 'où sur lequel la fenêtre s'ouvrira. À adapter... 'Répertoire = "c:UsersMichDdocuments"
MsgBox BrowseFile(Répertoire) & ""
End Sub '--------------------------------------- Function BrowseFile(Optional Chemin As String) As String With Application.FileDialog(msoFileDialogFolderPicker) 'Définit un titre pour la boîte de dialogue .Title = "Choisir le répertoire" 'Empêcher la multi-sélection .AllowMultiSelect = False 'Répertoire par défaut suivi du type de fichier par défaut .InitialFileName = Chemin 'Affiche la boîte de dialogue .Show 'Si un fichier a été sélectionné If .SelectedItems.Count = 1 Then BrowseFile = .SelectedItems(1) Else If BrowseFile <> "" Then BrowseFile = Left(Chemin, Len(Chemin) - 1) End If End If End With End Function '---------------------------------------
Bonjour,
Il y a quelque chose comme ceci, exécute la procédure Test.
Application.FileDialog(msoFileDialogFolderPicker) n'existe pas sur les
versions antérieures à Excel 2003 (de mémoire)
'---------------------------------------
Sub test()
Dim Répertoire As String
'Tu peux indiquer un répertoire par défaut
'où sur lequel la fenêtre s'ouvrira. À adapter...
'Répertoire = "c:UsersMichDdocuments"
MsgBox BrowseFile(Répertoire) & ""
End Sub
'---------------------------------------
Function BrowseFile(Optional Chemin As String) As String
With Application.FileDialog(msoFileDialogFolderPicker)
'Définit un titre pour la boîte de dialogue
.Title = "Choisir le répertoire"
'Empêcher la multi-sélection
.AllowMultiSelect = False
'Répertoire par défaut suivi du type de fichier par défaut
.InitialFileName = Chemin
'Affiche la boîte de dialogue
.Show
'Si un fichier a été sélectionné
If .SelectedItems.Count = 1 Then
BrowseFile = .SelectedItems(1)
Else
If BrowseFile <> "" Then
BrowseFile = Left(Chemin, Len(Chemin) - 1)
End If
End If
End With
End Function
'---------------------------------------
Il y a quelque chose comme ceci, exécute la procédure Test.
Application.FileDialog(msoFileDialogFolderPicker) n'existe pas sur les versions antérieures à Excel 2003 (de mémoire)
'--------------------------------------- Sub test() Dim Répertoire As String
'Tu peux indiquer un répertoire par défaut 'où sur lequel la fenêtre s'ouvrira. À adapter... 'Répertoire = "c:UsersMichDdocuments"
MsgBox BrowseFile(Répertoire) & ""
End Sub '--------------------------------------- Function BrowseFile(Optional Chemin As String) As String With Application.FileDialog(msoFileDialogFolderPicker) 'Définit un titre pour la boîte de dialogue .Title = "Choisir le répertoire" 'Empêcher la multi-sélection .AllowMultiSelect = False 'Répertoire par défaut suivi du type de fichier par défaut .InitialFileName = Chemin 'Affiche la boîte de dialogue .Show 'Si un fichier a été sélectionné If .SelectedItems.Count = 1 Then BrowseFile = .SelectedItems(1) Else If BrowseFile <> "" Then BrowseFile = Left(Chemin, Len(Chemin) - 1) End If End If End With End Function '---------------------------------------