J'ai cette macro qui marche trèb bien sur excel 2003, mais qui ne marche
qu'une fois avec 2000.
Quand ç a marche plus avec 2000, qui ne se passe pas de sauvegarde, aucun
message d'erreur, on reste sur le fichier !!!
Merci de votre aide
------------------------------------------------------------------------
Sub Sauve()
Dim strDate As String
Application.DisplayAlerts=False
Count = Len(ActiveWorkbook.Name)
Nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=Nom & "-" & strDate & ".xls"
ThisWorkbook.Close
Application.DisplayAlerts=True
End Sub
--------------------------------------------------------------------------
J'ai cette macro qui marche trèb bien sur excel 2003, mais qui ne marche qu'une fois avec 2000. Quand ç a marche plus avec 2000, qui ne se passe pas de sauvegarde, aucun message d'erreur, on reste sur le fichier !!!
Merci de votre aide
------------------------------------------------------------------------ Sub Sauve() Dim strDate As String Application.DisplayAlertsúlse Count = Len(ActiveWorkbook.Name) Nom = Left(ActiveWorkbook.Name, Count - 4) strDate = Format(Date, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=Nom & "-" & strDate & ".xls" ThisWorkbook.Close Application.DisplayAlerts=True End Sub --------------------------------------------------------------------------
J'ai cette macro qui marche trèb bien sur excel 2003, mais qui ne marche
qu'une fois avec 2000.
Quand ç a marche plus avec 2000, qui ne se passe pas de sauvegarde, aucun
message d'erreur, on reste sur le fichier !!!
Merci de votre aide
------------------------------------------------------------------------
Sub Sauve()
Dim strDate As String
Application.DisplayAlertsúlse
Count = Len(ActiveWorkbook.Name)
Nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=Nom & "-" & strDate & ".xls"
ThisWorkbook.Close
Application.DisplayAlerts=True
End Sub
--------------------------------------------------------------------------
J'ai cette macro qui marche trèb bien sur excel 2003, mais qui ne marche qu'une fois avec 2000. Quand ç a marche plus avec 2000, qui ne se passe pas de sauvegarde, aucun message d'erreur, on reste sur le fichier !!!
Merci de votre aide
------------------------------------------------------------------------ Sub Sauve() Dim strDate As String Application.DisplayAlertsúlse Count = Len(ActiveWorkbook.Name) Nom = Left(ActiveWorkbook.Name, Count - 4) strDate = Format(Date, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=Nom & "-" & strDate & ".xls" ThisWorkbook.Close Application.DisplayAlerts=True End Sub --------------------------------------------------------------------------
