user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

On pourrait utiliser un InputBox mais la saisie complète d'un dossier avec son chemin est assez laborieuse et risque de générer des erreurs.

Donc, on va plutôt utiliser une méthode qui va permettre à l'utilisateur de choisir le dossier via une fenêtre Windows. Il s'agit d'afficher la boîte de dialogue Picker.

 

Sub choix_dossier()
Dim x As Long

With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    If .SelectedItems.Count > 0 Then
    dossier = .SelectedItems(1)
    MsgBox dossier
    End If
End With
End Sub
 

Statistiques

Aujourd'hui502
Hier1323
Cette semaine15292
Ce mois59954
Total depuis 200414832931

11
visiteurs actuellement en ligne

26 mars 2023