saisie repertoire de travail

cyril_25 · 27 Mai 2008

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 · 27 Mai 2008

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 · 28 Mai 2008

Re : saisie repertoire de travail

Bonsoir,

regarde si ce code t'inspire:

Code:

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 · 12 Juin 2008

Re : saisie repertoire de travail

c'est parfait
merci beaucoup

Cyril

saisie repertoire de travail

cyril_25

XLDnaute Nouveau

jp14

XLDnaute Barbatruc

skoobi

XLDnaute Barbatruc

cyril_25

XLDnaute Nouveau

Discussions similaires