Discussion :

[pezihale_84]

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.

[Lou Pitchoun]

Salut,

Tu as dans la FAQ un code pour compacter une base de donnée. On y fait une copie de la db, puis une suppression du fichier.
Inspire toi...

[pezihale_84]

Saurais-ta par hasard, quel nom porte la rebrique de la qui est censé m'aider ?

[Lou Pitchoun]

Fonction recherche de la FAQ : compacter

[pezihale_84]

Merci beaucoup, j'ai reussi a adapter ce code pour pouvoir faire ce que je veut.