Renommer et deplacez fichier word en vba
aeromarche
Messages postés
8
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
voila j ai un macro vba ci-dessus qui permet de enregistre le fichier actif dans un dossier s'apel ( fichier excel )et il a comme nom le contenu des celulle C1 et C200 ( qu'ils contient des date ) ,
et mon probleme je cherche a copie ou bien deplacez un fichier word ferme qui se trouve dans un dossier au bureau et le deplacez un autre qui s appel ( fichier word ) et aura comme nom aussi le contenu des celluls C1 et C200.
macro :
Dim chr1 As String
Dim chr2 As String
chr1 = Cells(1,3)
chr2 = Cells(200,3)
ChDrive "C"
ChDir "C:\Users\Toshiba\Desktop\Fichier Excel"
ActiveWorkbook.SaveAs Filename:="du" & Day(chr1) & "-" & Month(chr1) & "-" & Year(chr1) & " Au " & Day(chr2) & "-" & Month(chr2) & "-" & Year(chr2)
et merci d avance pour votre aide :)
voila j ai un macro vba ci-dessus qui permet de enregistre le fichier actif dans un dossier s'apel ( fichier excel )et il a comme nom le contenu des celulle C1 et C200 ( qu'ils contient des date ) ,
et mon probleme je cherche a copie ou bien deplacez un fichier word ferme qui se trouve dans un dossier au bureau et le deplacez un autre qui s appel ( fichier word ) et aura comme nom aussi le contenu des celluls C1 et C200.
macro :
Dim chr1 As String
Dim chr2 As String
chr1 = Cells(1,3)
chr2 = Cells(200,3)
ChDrive "C"
ChDir "C:\Users\Toshiba\Desktop\Fichier Excel"
ActiveWorkbook.SaveAs Filename:="du" & Day(chr1) & "-" & Month(chr1) & "-" & Year(chr1) & " Au " & Day(chr2) & "-" & Month(chr2) & "-" & Year(chr2)
et merci d avance pour votre aide :)
3 réponses
-
Bonjour,
Dim chr1 As String
Dim chr2 As String
Dim Nom_Fichier As String
chr1 = Cells(1, 3)
chr2 = Cells(200, 3)
ChDrive "C"
ChDir "C:\Users\Toshiba\Desktop\Fichier Excel"
Nom_Fichier = "du" & Day(chr1) & "-" & Month(chr1) & "-" & Year(chr1) & " Au " & Day(chr2) & "-" & Month(chr2) & "-" & Year(chr2)
ActiveWorkbook.SaveAs Filename:=Nom_Fichier
'Copie Fichier Word
Dim SourceFile, DestinationFile
SourceFile = "Disque:\repertoire\fichier.doc" ' Définit le nom du fichier source.
DestinationFile = "Disque:\repertoire\" & Nom_Fichier & ".doc" ' Définit le nom du fichier cible.
' Copie le fichier source dans le fichier cible.
FileCopy SourceFile, DestinationFile
ou
'Deplacement Fichier Word
Dim SourceFile, DestinationFile
SourceFile = "Disque:\repertoire\fichier.doc" ' Définit le nom du fichier source.
DestinationFile = "Disque:\repertoire\" & Nom_Fichier & ".doc" ' Définit le nom du fichier cible.
'Commande Shell
'MOVE | /-Y [lecteur:][chemin]fichier1[,...] destination
Shell ("MOVE /Y " & SourceFile & " " & DestinationFile)
A essayer
Bonne suite -
ui mersi c bien a marche le code pour deplacement mais comment je le rennomer avce le contenu d'un cellule
mersi bcp d'avance -
Bonjour,
Le fichier renome est la variable Nom_Fichier.
Bonne suite
