Renommer et deplacez fichier word en vba
aeromarche
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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 :)
A voir également:
- Renommer et deplacez fichier word en vba
- Fichier bin - Guide
- Renommer fichier en masse - Guide
- Word 2013 - Télécharger - Traitement de texte
- Word et excel gratuit - Guide
- Fichier epub - Guide
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
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