Discussion :

[willou-78]

Bonjour,

Je souhaiterais, lors d'un clic sur un bouton, faire la copie d'un fichier puis le renommer automatiquement.

je ne connais pas bien le VB. Merci

[Jean-Philippe André]

Hello,

outre le forum, de nombreuses ressources sont disponibles, notamment une

un peu de lecture pour te donner des pistes :
http://access.developpez.com/faq/?page=Fichier#FicTxt

http://warin.developpez.com/access/fichiers/#LI-D-3-a

tout y est

[willou-78]

Bonjour,
Je suis tombé sur ces liens en faisant une recherche mais je ne sais pas intégrer sa dans mon clique

[Jean-Philippe André]

Le clic est un evenement,

meme si cela depasse le cadre de la question, je t'encourage a lire l'article de Loufab
http://loufab.developpez.com/tutorie...ss/evenements/

Mon objectif reste que tu trouves les pistes par toi même, je ne te donnerai pas la solution

[Orion34080]

Bonjour,
Tu peux toujours tenter quelque chose de ce genre :

Dans l'événement "on click" de ton bouton tu adaptes le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim F, Filesys
Set filesys = CreateObject("Scripting.FilesystemObject")
Set F = filesys.GetFile("CheminEtNomDuFichierASauver")
F.Copy ("CheminEtNouveauNomDuFichierDeBackup")

Ca devrait copier le fichier initial sous un nouveau nom... enfin, sauf erreur de ma part.

L'évenement "sur click" se trouve en cliquant sur le bouton que tu veux actionner avec le bouton droit de la souris et en choisissant "propriétés" puis en cherchant dans l'onglet "événement".
Michel

[willou-78]

Bonjour,
avec 6 ans de retard, merci de votre aide.

finalement, je ne me souvient plus de la raison mais voici une partie de mon code, qui a fonctionné

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
Private Sub Commande7_Click()
DoCmd.RunCommand acCmdSaveRecord
 
If Dir(ServeurSauveCopie, vbDirectory) = "" Then
  MsgBox "Pendant le processus de sauvegarde, l'application n'est plus active, un message vous avertira de la fin de sauvegarde et de la disponibilité de l'application "
  MkDir ServeurSauveCopie
 
If Dir(CheminModule1Destination) = "" Then
    FileCopy CheminModule1, CheminModule1Destination
    Else
        MsgBox "Le fichier ''Module 01.mde'' existe, il ne sera pas remplacé, veuillez le supprimer manuellement si vous voulez le remplacer "
        End If
 
End If
End Sub