Création liste dossier n-2

tototiti2008

XLDnaute Barbatruc

• 12 Décembre 2008

• #2

Re : Création liste dossier n-2

bonjour cbtitalia,

quelle est ta version d'Excel ?

 

Vote positif 0 Vote négatif

C

cbtitalia

Guest

• 12 Décembre 2008

• #3

Re : Création liste dossier n-2

tototiti2008 à dit:

bonjour cbtitalia,

quelle est ta version d'Excel ?

Cliquez pour agrandir...

Je possède la version d'excel 2000.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Décembre 2008

• #4

Re : Création liste dossier n-2

Re,

Bon, le code est assez court mais je dois avouer que j'ai un peu sué...

Edit : mais bon, plutôt fier du résultat 🙂

 

Pièces jointes

• ScanDossiers.xls

  30.5 KB · Affichages: 91
• ScanDossiers.xls

  30.5 KB · Affichages: 88
• ScanDossiers.xls

  30.5 KB · Affichages: 85

Dernière édition: 12 Décembre 2008

Vote positif 0 Vote négatif

C

cbtitalia

Guest

• 19 Juin 2009

• #5

Re : Création liste dossier n-2

Bonjour,

Existe il un moyen de mettre en dur le chemin ?

Que faut il faire pour que le filedialog fonctionne en excel2000 ?

Merci pour votre aide.

St@n

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 19 Juin 2009

• #6

Re : Création liste dossier n-2

Bonjour cbtitalia,

Pour remplacer le filedialog par un chemin en dur :

remplace

Code:

    Set FD = Application.FileDialog(msoFileDialogFolderPicker)
    FD.AllowMultiSelect = False
    Rep = FD.Show
    If Rep <> 0 Then ScanDossiers (FD.SelectedItems(1))

par

Code:

ScanDossiers("C:\")

Sinon, il y a bien GetOpenFileName pour les fichiers (à la place de FileDialog), mais pour les dossiers je ne connais pas...

 

Vote positif 0 Vote négatif