Bienvenue! Identification Créer un nouveau profil

Recherche avancée

FileDialog et Répertoire

12/07/13 06:06
Bonjour à tous et merci d'avance pour votre aide

J'ai récupéré du code qui me permet d'ouvrir la boîte de dialogue pour sélectionner un fichier et récupérer le chemin d'accès et son nom.
Je souhaiterai le modifier (mais mes compétences sont vraiment trop faibles sur le sujet) pour pouvoir sélectionner non pas un fichier mais un répertoire ; que faut il modifier ?

Dim strFichier As String
Dim oFD As FileDialog
'Paramètre la fenêtre Ouvrir
Set oFD = Application.FileDialog(msoFileDialogOpen)
With oFD
'Renseignement du titre
.Title = "Sélectionner le fichier à importer"
'Interdit la multi sélection
.AllowMultiSelect = False
'Permet de personnaliser le bouton.
.ButtonName = "Sélectionner"
'Affiche la fenêtre
If .Show Then
'Récupère le chemin d'accès au fichier
Me.RepertoireDestination = .SelectedItems(1)
DoCmd.RunCommand acCmdSaveRecord
Me.Refresh
End If
End With
SujetAuteurEnvoyé le

FileDialog et Répertoire

Cairis12/07/13 06:06

Re: FileDialog et Répertoire

Hervé Inisan12/07/13 06:14

Re: FileDialog et Répertoire

Cairis12/07/13 06:45

Re: FileDialog et Répertoire

Hervé Inisan12/07/13 11:16

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter