Copier renommer et sauvegarde fichier

bonjour à tous je souhaiterai avec l'aide du module vba renommer plusieur fichier :

En effet chaque debut de semaine je doit crée un part un plusieur fichier avec la date d'utilisation. j'ai deja crée un module qui me crée les nom de fichier maintenant je doit juste avoir la fonction qui va chercher le fichier dans un dossier et qui le renomme sans effacer le model et le classe dans un autre fichier.

d'avance merci a tous pour votre aide

bonjour

une solution consiste a utilisé l'objet systeme copyfile...

exemple :

oFSO.CopyFile("D:\Essai\monfichier.txt","D:\Essai2\ monfichier.txt ",True)

il au prealable declarer l'objet oFSO

Dim oFSO As Scripting.FileSystemObject
Set oFSO = New Scripting.FileSystemObject

donc le tout devient :

sub copie()
Dim oFSO As Scripting.FileSystemObject
Set oFSO = New Scripting.FileSystemObject
oFSO.CopyFile("D:\Essai\monfichier.txt","D:\Essai2\ monfichier.txt ",True)
end sub

il suffit d'adapter le chemin+nom du fichier source et le chemin+nom du fichier destination

marche avec tout type de fichier et pas seulement des fichiers txt comme dans l'exemple

fred

un grand merci

j'ai oublier que je cherchai cette methode pour excel car cela bloque

message d'erreur compile error

expected:=

Private Sub CommandButton1_Click()
Dim oFSO As Scripting.FileSystemObject
Set oFSO = New Scripting.FileSystemObject
oFSO.CopyFile("C:\Users\launase\Desktop\model\1- BORDEREAUX LUNDI 1.xls","C:\Users\launase\Desktop\model\1- BORDEREAUX LUNDI 1.xls",True)

Sauf erreur de ma part... le nom de fichier de départ est identique a celui de destination...

fred

effectivement mais la nouvelle adresse ne change pas le probleme

Dim oFSO As Scripting.FileSystemObject
Dim txtb1 As String

Set oFSO = New Scripting.FileSystemObject

'textbox1
txtb1 = UserForm3.textbox1.Text
oFSO.CopyFile("C:\Users\launase\Desktop\model\1- BORDEREAUX LUNDI 1.xls","C:\Users\launase\Desktop\model\nouveau" & txtb1,True)

End Sub

autant pour moi... il faut enlever les parentheses...

exemple = :

oFSO.CopyFile "C:\Users\fred\Desktop\devisC10.xlsx", "C:\Users\fred\Desktop\copie.xlsx", True

Et ne pas oublier de mettre la référence : microsoft scripting runtime

fred

que voulez vous dire par la "microsoft scripting runtime"

j'ai un message d'erreur compile error user_defined type not defined

    Private Sub CommandButton1_Click()
Dim oFSO As Scripting.FileSystemObject
Dim txtb1 As String

Set oFSO = New Scripting.FileSystemObject

'textbox1
txtb1 = UserForm3.TextBox1.Text & ".xls"
oFSO.CopyFile "C:\Users\launase\Desktop\model\1- BORDEREAUX LUNDI 1.xls", "C:\Users\launase\Desktop\model\nouveau\" & txtb1, True

End Sub 

merci pour tous cela fonctionne tres bien

Bonjour

dans ce cas :

merci

Fred