saisie repertoire de travail

[cyril_25]

Bonjour,
Je souhaite pouvoir demander à l'utilisateur de saisir un repertoire de travail à l'aide d'une boite de dialogue (le meme genre que getopenfilename, mais qui renvoie un repertoire et non un nom de fichier), et ce afin de travailler sur les fichiers contenus dans ce repertoire via VB.

Merci

Cyril

 

[jp14]

Re : saisie repertoire de travail

Bonsoir

Un exemple à voir sur ce fil

https://www.excel-downloads.com/threads/grand-besoin-daide-questionnaire.95782/

JP

 

[skoobi]

Re : saisie repertoire de travail

Bonsoir,

regarde si ce code t'inspire:

Sub test()
  Dim dossier As FileDialog
  Dim sélection As Variant

  Set dossier = Application.FileDialog(msoFileDialogFolderPicker)
  With dossier
    .AllowMultiSelect = True
  'si ok
    If .Show = -1 Then
      For Each sélection In .SelectedItems
        MsgBox "Dossier sélectionné: " & sélection
      Next
  'si annuler
    Else
    End If
  End With
End Sub

 

[cyril_25]

Re : saisie repertoire de travail

c'est parfait
merci beaucoup

Cyril