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..

[captaine93]

effectivement, le code n était pas au bon endroit...alors j suis allé voir les cours VB pour créer des listbox (chose que je ne savais pas faire) mais je bloque des les premieres intructions :
Fichier, nouveau projet...
Parle-t-on du logiciel excel ? car je n ai pas ca dans le menu fichier de excel ni de microsoft visual basic!
Je m 'excuse d avoir posé des questions en anticipation de choses que je ne connaissais pas

[SfJ5Rpw8]

tes list box tu les veux ou dans un Userform (une boîte de dialogue) où sur une feuille excel...?

[captaine93]

sur une feuille excel
merci

[SfJ5Rpw8]

ben pour rajouter le contrôle "Zone de liste déroulante" dans la boîte à outils controle ... une fois insérer un tu clique avec le bouton droit de la souris sur le contrôle ... puis tu choisi propriétés et tu change sa propriété name en ListRep ...

ensuite tu rajoute par exemple un bouton sur ta feuille pour déclencher ta macro (toujours de la boîte à outils contrôle ...) un double clic sur le bouton devrai te permettre de passer dans la partie du code qui lui est associé et tu y place ton code :

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
21
22
23
 
Private Sub CommandButton1_Click()
 
Dim NomFich As String
Dim Chemin As String
 
 
Chemin = "c:\tmp\"
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

[captaine93]

Merci à vous deux d avoir éclairé ma lanterne !
Cependant, j aurais encore quelques questions à vous poser mais je dois d'abord beaucoup lire les cours VB avant de vous les poser...
Encore merci