Re : Problème d'enregistrement par macro
Re,
Encore plus chiant a présent, je me demande s il est possible d'enregistrer non pas 1 mais 2 fichiers. Dont 1 qui devra conserver le meme nom qu a l origine et ou seule la Feuil3 devra etre enregistrée la feuil1 et 2 restant inchangee.
Partant d un fichier nommé FICHE DE LIAISON NOUVELLE.xls
Je cherche donc a enregistrer deux fichiers sur le bureau :
1/Fiche de Liaison du jj.mm.aaaa.xls
2/FICHE DE LIAISON NOUVELLE.xls qui va ecraser le precedent mais en sauvegardant uniquement les modif de la feuil3
Mon code etait le suivant :
********************
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim nomfichier
chemin = "C:\Documents and Settings\Administrateur\Bureau\"
nomfichier1 = "Fiche de Liaison du " & Format(Feuil1.[D2], "dd.mm.yyyy") & ".xls"
nomfichier2 = "FICHE DE LIAISON NOUVELLE" & ".xls"
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier2
.SaveAs Filename:=chemin & nomfichier1
End With
End Sub
Autant vous dire que je suis loin du compte et toujours avec le bug du Excel doit fermer.
Pouvez vous m aider ?
Cordialement
Anthony