XL 2016 Déplacer, renommer

[FS69]

Bonjour,

J'ai un fichier Excel pour lequel j'enregistre le fichier dans un dossier avec un nom spécifique dans un répertoire déterminée avec le code suivant :

Dim Chemin As String, Fichier As String

Chemin = "C:\TEST\@TEST\Entrées\"
'Ajoute la date du jour et l'heure dans le nom du fichier
Fichier = ActiveSheet.Range("B3") & " " & ActiveSheet.Range("D3") & " " & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & " - " & ActiveSheet.Range("B8") & " " & ".xls"
ActiveWorkbook.SaveCopyAs Chemin & Fichier
returnValue = MsgBox(" Fiche envoyée" & strSearchString & " ** ", vbOKOnly, "Message")
TextBox1 = ""

End Sub


J'ai ensuite une 2e macro qui permet de déplacer ce fichier dans un autre dossier:

Dim Nomfichier$, DestinationFile$
Nomfichier = ThisWorkbook.FullName
DestinationFile = "C:\TEST\@TEST\sorties\"
ThisWorkbook.SaveAs (DestinationFile & ThisWorkbook.Name)
Kill Nomfichier
End Sub

Je souhaiterais que lors de cette opération le nom du fichier initial soit conservé mais en y ajoutant un mot "TEST" devant le nom du fichier.

Je n'arrive pas à le faire, pourriez vous m'aider? (je vous précise que je débute en vba et que tout ce que j'ai fait l'a été en ré-adaptant des codes trouvés sur internet)

Par avance merci

 

[Eric C]

Bonsoir le forum
Bonsoir FS69

Essaie avec ceci :

ThisWorkbook.SaveAs (DestinationFile & "TEST" & ThisWorkbook.Name)

Bonne nuit à toutes & à tous

 

[FS69]

Bonsoir le forum
Bonsoir FS69

Essaie avec ceci :

ThisWorkbook.SaveAs (DestinationFile & "TEST" & ThisWorkbook.Name)

Bonne nuit à toutes & à tous
Regarde la pièce jointe 1048631

Bonjour,

Merci pour votre solution qui répond à mon besoin.

Je vous souhaites une bonne journée.

 

[patricktoulon]

Bonjour
heu ... @Eric C
je cite

e souhaiterais que lors de cette opération le nom du fichier initial soit conservé mais en y ajoutant un mot "TEST" devant le nom du fichier.

en re sauvant avec "TEST" tu obtient donc un 3eme!!!!!!! fichier!!!!!
il te faut donc killer l'original
sinon name as newname ca vous dit rien

 

[FS69]

Bonjour
heu ... @Eric C
je cite


en re sauvant avec "TEST" tu obtient donc un 3eme!!!!!!! fichier!!!!!
il te faut donc killer l'original
sinon name as newname ca vous dit rien

Bonjour,

Merci pour votre réponse, j'ai bien utilisé la fonction kill pour mon code, la solution proposée par @Eric C m'a permis de résoudre mon problème.

 

[patricktoulon]

re

oldnom=thisworkbook.fullname
ThisWorkbook.SaveAs (DestinationFile & "TEST" & ThisWorkbook.Name)
kill oldnom

la oui on a toujours 2 fichier