Discussion :

[captaine93]

Bonjour !
Je souhaite créer une feuille excel contenant 2 listes de choix comme suit:
A1
B1 liste de choix contenant le contenu du dossier c:\data
C1
D1 liste de choix contenant les dates dispo pour ce patient (c:\data\liste de choix precedente)


Ensuite je voudrais copier certains fichiers du dossier sélectionné grâce aux 2 listes de choix dans le dossier "C:\nico\analyse\en cours"
je sais comment copier ces fichiers avec le code qui suit mais comment récupérer le path (donné par les listes de choix)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim FSO As New FileSystemObject
FSO.CopyFile "c:\path listes de choix\*.m", "C:\nico\analyse\en cours"

ex path : c:\data\patient\01-10-05

Merci à ceux qui pourront m'aider

[dadavyvy]

Je n'sais pas si j'ai tout compris :
L'utilisateur a choisi dans B1 le dossier "patient"
Ensuite, pour "patient", il a donc des dates dans la liste de choix de D1 (je suppose que c'est automatique, par macro ou par des formules Excel)
Finalement, il choisit dans D1 la date : "01-10-05"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
chemin = "C:\data\" & [B1] & "\" & [D1] & "\"

Est-ce réellement ce que tu cherches?

[captaine93]

merci de ta réponse...
Pour le chemin, c est exactement ca!
Cependant, je cherche a créer une liste déroulante dans une case qui répertorie les dossiers contenus dans c:\data\ puis dans une autre case la liste des dates présentes dans le répertoire c:\data\nom du patient sélectionné par la 1ere liste
Et ça, je ne sais pas du tout le faire...si une âme charitable voulait bien m'aiguiller, je l'en remercie d'avance

[ouskel'n'or]

J'ai ça, ça date de 1998, on peut sans doute simplifier mais ainsi, ça fonctionne depuis 8 ans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ListRepertoires()
Dim NomFich, Chemin
'Chemin = ton chemin (*** PAS OUBLIER ***)
    ListRep.Clear
    NomFich = Dir(chemin, vbDirectory)
    Do While NomFich <> ""
        ' Ignore les répertoires "."
         If NomFich <> "." And NomFich <> ".." And NomFich <> "" Then
            ' vérifie si Nomfich est un répertoire.
            If (GetAttr(chemin & NomFich) And vbDirectory) = vbDirectory then
                ' Insère NomFich si c'est un répertoire
                ListRep.AddItem NomFich 
            End If 
        End If
        NomFich = Dir
    Loop
End Sub

Tu dis

NB - Je pense qu'une simple recherche sur le forum VBA t'aurait donné la réponse.. Simplement... faut y penser

[captaine93]

merci de m aiguiller ousk' !
Cependant, je ne suis vraiment pas bon en programmation...alors j ai pleins de questions a te poser...
voici ce que j ai adapté mais cela ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub ListRepertoires()
Dim NomFich As String
Dim Chemin As String
Dim listRep As String
 
Chemin = "c:\data\"
listRep.Clear
 NomFich = Dir(Chemin, vbDirectory)
Do While NomFich <> ""
' Ignore les répertoires "."
 If NomFich <> "." And NomFich <> ".." And NomFich <> "" Then
' vérifie si Nomfich est un répertoire.
If (GetAttr(Chemin & NomFich) And vbDirectory) = vbDirectory Then
 ' Insère NomFich si c'est un répertoire
 listRep.AddItem NomFich
End If
 End If
 NomFich = Dir
 Loop
End Sub

La définition des variables est etlle correcte ?
Ca bloque à "listRep.Clear", pourquoi ?
au cas où ce code fonctionnerait pour mon problème, où sont collées les données ? (je souhaite avoir en B1 la liste de choix contenant le contenu du dossier c:\data et en D1 une liste de choix contenant les dossiers pour ce patient (c:\data\liste de choix precedente))

Merci beaucoup

[SfJ5Rpw8]

où as tu mis le code ...? , il le faut dans le code relatif à ta feuille.. listRep n'est pas une variable à déclarée mais le nom de la listbox dans ta feuille excel..