VBA Copie d un dossier avec nom variable fonction d une cellule

Version imprimable

Bonjour je suis face à un problème que je n'arrive pas à solutionner.

J'ai un Dossier dans le quel j'ai 6 fichiers : Redevance , semaine 1 , semaine 2, semaine 3 ,etc.....

La macro suivante me permet de copier le dossier et sont contenu pour créer un nouveau moi mais je souhaiterai que le nom du nouveau dossier créer soit un nom que je saisie dans une cellule en l'occurrence M19.
Code:

1 2 3 4 5 6 7 Sub CopieDossier() Dim GestionFichier As New Scripting.FileSystemObject GestionFichier.CopyFolder "C:\Users\TRIAN\Desktop\Prod. original", "C:\Users\TRIAN\Desktop\2020\NOM VARIABLE??" Set GestionFichier = Nothing End Sub
Je voudrai même aller plus loin, en utilisant l'emplacement du dossier qui serrai variable exemple si je l'envoi à un collègue et que la macro parte a ce moment la de l emplacement du dossier et plus du chemin fixe de Mon Pc

Merci de votre aide

Bonne soirée à tous

Citation:

Envoyé par mout33

Bonjour,

A tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub TestCopieDossier2()
 
         CopieDossier2 ActiveWorkbook.Path & "\Copie répertoire source", ActiveSheet.Range("M19") ' Répertoire source à adapter
 
End Sub
 
Sub CopieDossier2(ByVal RepSource As String, ByVal RepCible As String)
 
Dim GestionFichier As Object
 
    Set GestionFichier = CreateObject("Scripting.FileSystemObject")
    With GestionFichier
         If .FolderExists(RepSource) = True Then .CopyFolder RepSource, RepCible
    End With
    Set GestionFichier = Nothing
 
End Sub

10/10/2020, 18h30
mout33

Merci Eric

Bonjour Eric Merci pour ton code mais rien ne ce passe quand je le lance :roll::roll::roll:

je suis pas sur d'être claire dans ma premier explication.

Dossier "Feuilles de Prod.Original" dans celui ci ce trouve les fichier à copier mais qui en fonction de l'ordinateur ou il ce trouve le chemin n'est pas toujours le même . Du coup la manip est elle réalisable déjà à ce stade ci ??

les documents du dossier doivent ce copier dans ce dossier ci mais dans un nouveau dossier qui porterai le texte qui ce trouve dans la cellule M19 voir même ci possible jouer ca avec 2 cellule (exmple M19=Octobre et M18= 2020)

J espère que les précisions aiderons car je bloque :calim2::calim2::calim2::aie::aie::aie:
10/10/2020, 19h12
Philippe Tulliez

Bonjour,

Citation:

Dossier "Feuilles de Prod.Original" dans celui ci ce trouve les fichier à copier mais qui en fonction de l'ordinateur ou il ce trouve le chemin n'est pas toujours le même . Du coup la manip est elle réalisable déjà à ce stade ci ??

Dans ce cas précis, j'utiliserais un fichier INI ou même un simple fichier Txt par ordinateur qui indiquerait le chemin où se trouve le fichier
10/10/2020, 20h25
mout33

Citation:

Envoyé par Philippe Tulliez

Bonjour,

Dans ce cas précis, j'utiliserais un fichier INI ou même un simple fichier Txt par ordinateur qui indiquerait le chemin où se trouve le fichier

Philipe si tu peu développer car je ne connais pas ce type de fichier .

Merci pour ta piste déjà ;)
11/10/2020, 05h00
Invité

Citation:

Envoyé par mout33

Citation:

Dossier "Feuilles de Prod.Original" dans celui ci ce trouve les fichier à copier mais qui en fonction de l'ordinateur ou il ce trouve le chemin n'est pas toujours le même . Du coup la manip est elle réalisable déjà à ce stade ci ??

Il faut simplement que le fichier Excel contenant le code soit en amont du répertoire source, le chemin du fichier est donné par ActiveWorkBook.Path. De ce fait, on a juste à indiquer le répertoire en aval.

Citation:

les documents du dossier doivent ce copier dans ce dossier ci mais dans un nouveau dossier qui porterai le texte qui ce trouve dans la cellule M19 voir même ci possible jouer ca avec 2 cellule (exmple M19=Octobre et M18= 2020)

Il ne faut pas que le dossier cible soit inclus dans le dossier source. L'exemple que vous avez pris dans votre premier message est correct.