Bonjour,

Je voudrais savoir comment je dois faire pour pouvoir faire une copie de fichier dans le meme repertoire sachant que c'est pour renommer ce dernier tout de suite apres.
Pour ceux que a peut aider voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
If Me.Extension_logiciel = ".doc" Then
 
'Déclarer deux variables string pour les emplacements
Dim sEmplacementInitial As String, sEmplacementFinal As String
 
 
sEmplacementInitial = "C:\test\essai\"
sEmplacementFinal = "C:\test\essai\"
 
 'Copie du fichier
FileCopy sEmplacementInitial, sEmplacementFinal
 
'Renomme "C:\temp\Erreurs.tmp" en "C:\temp\Erreurs.bak"
Name "c:\test\essai\" & nom_document As "c:\test\essai\" & Texte12
 
 ShellExecute Me.hWnd, vbNullString, "C:\test\essai\" & Texte12, "", vbNullString, 1
Merci d'avance.