Discussion :

[mout33]

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 :

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

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

[Invité]

Bonjour,

A tester :

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

[mout33]

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

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

[Philippe Tulliez]

Bonjour,

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

[mout33]

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à

[Invité]

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.

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.