Discussion :

[seeker1]

bonjour,
J'ai plusieurs dossier qui portent les noms "projet1" , "projet2", .... et un dossier source "nouveau Projet" qui contient plusieurs fichier excel prêt ( CAD que ces fichiers sont en mise en forme type . tout ces dossiers "projet" se trouvent dans un dossier "programme".
Chaque dossier "projet" contient des fichiers excel ( identique a ceux de "nouveau projet").

Mon userform ( nouveau projet ) se trouve dans un fichier d'un tel dossier "projet x " .
Mon userform demande de l'utilisateur d'identifier le nouveau projet à l'aide des textbox ( nom, date de création ,....)

ce que j voudrais c'est de faire une copie du dossier "nouveau projet" et donner un nom à cette copie ("projet COLAS" par exp ) apres un click sur un boutton OK qui se trouve dans mon userform .

des suggestions ???

[SfJ5Rpw8]

bonjour,

et tu en est ou ?

pour t'aider :

commence par créer le repertoire de destination

Comment créer un dossier ?

puis copie les fichiers..

Comment copier un fichier vers un autre répertoire ?

[seeker1]

voila un code qui fonctionne

Code vba :

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
Private Sub CommandButton1_Click()
Dim mypath As String
Dim Name As String
Dim fso As Object
Dim fld As Object
 
mypath = ActiveWorkbook.Path & "\"
Name = TextBox1.Value
 
source = mypath & "Chantier"
dest = mypath & "Chantier " & Name
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(source)
 
fld.Copy dest
 
End Sub