Bonjour à tous,
Voilà mon problème. J'ai un répertoire A dans lequel j'ai un fichier "test.txt". Je souhaite couper-coller ce fichier dans un répertoire "B" mais sans avoir besoin de modifier son nom. Le tout en VBA.
J'ai vu différents codes sur le net pour le faire mais à chaque fois, on doit spécifier le nom du fichier lors du "collage" et moi je veux éviter ça car je n'ai pas de moyens de récupérer le nom du fichier.
Voilà le code que j'ai utiliser jusqu'ici :
Mais dans le cas du code, il renomme le fichier avec le nom de la variable date_jour alors que date_jour est un répertoire et je veux que le fichier soit copié dans ce répertoire avec le même nom qu'il avait.
Merci d'avance de votre aide
Voilà mon problème. J'ai un répertoire A dans lequel j'ai un fichier "test.txt". Je souhaite couper-coller ce fichier dans un répertoire "B" mais sans avoir besoin de modifier son nom. Le tout en VBA.
J'ai vu différents codes sur le net pour le faire mais à chaque fois, on doit spécifier le nom du fichier lors du "collage" et moi je veux éviter ça car je n'ai pas de moyens de récupérer le nom du fichier.
Voilà le code que j'ai utiliser jusqu'ici :
Code:
Dim myFso As Object
Set myFso = CreateObject("Scripting.FileSystemObject")
repertoire_archive = Sheets("Menu").Range("C30").Value 'récupération chemin répertoire archive
Sheets("Liste Fichiers").Select
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row 'pour chaque fichier (on a aussi le chemin avec)
chemin_nom_fichier = Range("A" & i).Value
myFso.MoveFile Range("A" & i).Value, repertoire_archive & "\" & date_jour
Next i
Mais dans le cas du code, il renomme le fichier avec le nom de la variable date_jour alors que date_jour est un répertoire et je veux que le fichier soit copié dans ce répertoire avec le même nom qu'il avait.
Merci d'avance de votre aide
Dernière édition: