Bonjour,
Je souhaiterais savoir comment faire via une macro pour déplacer un classeur présent dans un dossier vers un autre dossier puis supprimer ce classeur du dossier source. Je souhaite que cette commande s'applique sur le classeur ouvert (j'affecterais la macro à un bouton de commande).
Par exemple, test1 dans dossier Envoi doit aller dans réception avec le même nom de fichier, la macro doit fonctionne aussi si j'ai un fichier s'appelant toto24
Je suis complètement novice en vba et généralement je récupère des macros sur internet que j'essaye d'adapter à mon besoin mais cette fois ci je ne trouve rien ou je n'arrive pas à adapter de macro.
La seule macro que j'ai trouvé qui semble correspondre est celle ci mais je n'arrive pas l'adapter (message d'erreur erreur d'exécution '52' Nom ou numéro de fichier incorrect)
Sub Depl()
'
' Depl Macro
'
DestinationFile = "C:\Users\******\Desktop\Réception\"
nomFichier = Dir("Thisworkbook")
sourceW = "C:\users\******\Desktop\Envoi\"
Do While Len("Thisworkbook") > 0
FileCopy sourceW & nomFichier, DestinationFile & "\" & nomFichier
Kill sourceW & nomFichier
nomFichier = Dir
Loop
End Sub
Je remercie par avance la ou les personnes qui pourront m'aider sur ce sujet
Je souhaiterais savoir comment faire via une macro pour déplacer un classeur présent dans un dossier vers un autre dossier puis supprimer ce classeur du dossier source. Je souhaite que cette commande s'applique sur le classeur ouvert (j'affecterais la macro à un bouton de commande).
Par exemple, test1 dans dossier Envoi doit aller dans réception avec le même nom de fichier, la macro doit fonctionne aussi si j'ai un fichier s'appelant toto24
Je suis complètement novice en vba et généralement je récupère des macros sur internet que j'essaye d'adapter à mon besoin mais cette fois ci je ne trouve rien ou je n'arrive pas à adapter de macro.
La seule macro que j'ai trouvé qui semble correspondre est celle ci mais je n'arrive pas l'adapter (message d'erreur erreur d'exécution '52' Nom ou numéro de fichier incorrect)
Sub Depl()
'
' Depl Macro
'
DestinationFile = "C:\Users\******\Desktop\Réception\"
nomFichier = Dir("Thisworkbook")
sourceW = "C:\users\******\Desktop\Envoi\"
Do While Len("Thisworkbook") > 0
FileCopy sourceW & nomFichier, DestinationFile & "\" & nomFichier
Kill sourceW & nomFichier
nomFichier = Dir
Loop
End Sub
Je remercie par avance la ou les personnes qui pourront m'aider sur ce sujet