Faire une copie dans un fichier archive

Re : Faire une copie dans un fichier archive

bonjour billouu,

essaye quelque chose comme :

Thisworkbook.save
Thisworkbook.savecopyas "C:\Archives\" & left(thisworkbook.name,len(thisworkbook.name)-4) & Format(Date,"YYYY_MM_DD") & ".xls"

Edit : Oups, j'avais mal lu...

fait plutôt :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Thisworkbook.savecopyas "C:\Archives\" & left(thisworkbook.name,len(thisworkbook.name)-4) & Format(Date,"YYYY_MM_DD") & ".xls"
End Sub

Re : Faire une copie dans un fichier archive

Merci j'y suis arrivé grace a toi, voila ce que donne ma macro...(parti concernant en rouge
Mais il me reste un ptt détail à régler puisque lorsque la modification de ma feuille est le changement de couleur d'un cellule (par exemple) cela ne fonctionne pas aurait tu une idée??

Dim modif As Boolean


Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Global").Range("I1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
Sheets("Global").Range("C1").Value = Range("C1") + 1

ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:= _
"T:\Services.............\ nom fichier " & Format(Date, " dd_mm_yyyy") _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End If
End SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub

Encore merci

Billouu

Re : Faire une copie dans un fichier archive

Workbook_SheetChange ne s'applique que lorsque tu changes le contenu d'une cellule, pas sa couleur.

Re : Faire une copie dans un fichier archive

Ok,

Mais ya pas un moyen pour prendre en compte ce changement de couleur???

Merci Toni pour ton aide.

Billouu

Re : Faire une copie dans un fichier archive

Bonjour,

je ne connais pas de moyen pour le changement de couleur... au mieux je peux te proposer SheetSelectionChange qui s'aplique dès que tu change de cellule dans une feuille...