Bonjour,
J'ai cette macro qui s'excute en automatique et qui marche bien.
Mais lorsqu'elle s'excute on est obligé d'intervenir en cliquany sur oui
pour la confirmation de l'enregqitrement.
Y a til une possibilité pour ne pas avoir à le faire et rendre cette macro
totalement autonome.
Merci de votre aide
--------------------------------------------------------------------------
Sub Sauve()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=Nom & "-" & strDate & ".xls"
ThisWorkbook.Close
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Hugues.Silvain
Bonjour, J'ai cette macro qui s'excute en automatique et qui marche bien. Mais lorsqu'elle s'excute on est obligé d'intervenir en cliquany sur oui pour la confirmation de l'enregqitrement. Y a til une possibilité pour ne pas avoir à le faire et rendre cette macro totalement autonome. Merci de votre aide
-------------------------------------------------------------------------- Sub Sauve() Dim strDate As String Count = Len(ActiveWorkbook.Name) Nom = Left(ActiveWorkbook.Name, Count - 4) strDate = Format(Date, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=Nom & "-" & strDate & ".xls" ThisWorkbook.Close End Sub
Salut,
ajoute avant Count= ..... : Application.DisplayAlertsúlse et avant End Sub : Application.DisplayAlerts=True
Bonjour,
J'ai cette macro qui s'excute en automatique et qui marche bien.
Mais lorsqu'elle s'excute on est obligé d'intervenir en cliquany sur oui
pour la confirmation de l'enregqitrement.
Y a til une possibilité pour ne pas avoir à le faire et rendre cette macro
totalement autonome.
Merci de votre aide
--------------------------------------------------------------------------
Sub Sauve()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=Nom & "-" & strDate & ".xls"
ThisWorkbook.Close
End Sub
Salut,
ajoute avant Count= ..... : Application.DisplayAlertsúlse
et avant End Sub : Application.DisplayAlerts=True
Bonjour, J'ai cette macro qui s'excute en automatique et qui marche bien. Mais lorsqu'elle s'excute on est obligé d'intervenir en cliquany sur oui pour la confirmation de l'enregqitrement. Y a til une possibilité pour ne pas avoir à le faire et rendre cette macro totalement autonome. Merci de votre aide
-------------------------------------------------------------------------- Sub Sauve() Dim strDate As String Count = Len(ActiveWorkbook.Name) Nom = Left(ActiveWorkbook.Name, Count - 4) strDate = Format(Date, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=Nom & "-" & strDate & ".xls" ThisWorkbook.Close End Sub
Salut,
ajoute avant Count= ..... : Application.DisplayAlertsúlse et avant End Sub : Application.DisplayAlerts=True
jb1
Merci Mais çela n'enregistre pas mon fichier !!!
"Hugues.Silvain" a écrit dans le message de news: %
Bonjour, J'ai cette macro qui s'excute en automatique et qui marche bien. Mais lorsqu'elle s'excute on est obligé d'intervenir en cliquany sur oui pour la confirmation de l'enregqitrement. Y a til une possibilité pour ne pas avoir à le faire et rendre cette macro totalement autonome. Merci de votre aide
-------------------------------------------------------------------------- Sub Sauve() Dim strDate As String Count = Len(ActiveWorkbook.Name) Nom = Left(ActiveWorkbook.Name, Count - 4) strDate = Format(Date, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=Nom & "-" & strDate & ".xls" ThisWorkbook.Close End Sub Salut,
ajoute avant Count= ..... : Application.DisplayAlertsúlse et avant End Sub : Application.DisplayAlerts=True
Merci
Mais çela n'enregistre pas mon fichier !!!
"Hugues.Silvain" <Hugues.Silvain@ema.fr> a écrit dans le message de news:
%23VyHeEjjGHA.4660@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai cette macro qui s'excute en automatique et qui marche bien.
Mais lorsqu'elle s'excute on est obligé d'intervenir en cliquany sur oui
pour la confirmation de l'enregqitrement.
Y a til une possibilité pour ne pas avoir à le faire et rendre cette
macro totalement autonome.
Merci de votre aide
--------------------------------------------------------------------------
Sub Sauve()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=Nom & "-" & strDate & ".xls"
ThisWorkbook.Close
End Sub
Salut,
ajoute avant Count= ..... : Application.DisplayAlertsúlse
et avant End Sub : Application.DisplayAlerts=True
"Hugues.Silvain" a écrit dans le message de news: %
Bonjour, J'ai cette macro qui s'excute en automatique et qui marche bien. Mais lorsqu'elle s'excute on est obligé d'intervenir en cliquany sur oui pour la confirmation de l'enregqitrement. Y a til une possibilité pour ne pas avoir à le faire et rendre cette macro totalement autonome. Merci de votre aide
-------------------------------------------------------------------------- Sub Sauve() Dim strDate As String Count = Len(ActiveWorkbook.Name) Nom = Left(ActiveWorkbook.Name, Count - 4) strDate = Format(Date, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=Nom & "-" & strDate & ".xls" ThisWorkbook.Close End Sub Salut,
ajoute avant Count= ..... : Application.DisplayAlertsúlse et avant End Sub : Application.DisplayAlerts=True
bjr, comprends rien !! si vous aviez un fichier merci "Hugues.Silvain" a écrit dans le message de news: %
Merci Mais çela n'enregistre pas mon fichier !!!
Chez moi, cela fonctionne très bien !
bjr,
comprends rien !!
si vous aviez un fichier
merci
"Hugues.Silvain" <Hugues.Silvain@ema.fr> a écrit dans le message de news:
%23254WBtjGHA.1260@TK2MSFTNGP05.phx.gbl...
bjr, comprends rien !! si vous aviez un fichier merci "Hugues.Silvain" a écrit dans le message de news: %
Merci Mais çela n'enregistre pas mon fichier !!!
Chez moi, cela fonctionne très bien !
Hugues.Silvain
Le code testé est celui ci :
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
Le fichier se trouve dans le dossier d'enregistrement par défaut (voir les options d'excel)
Le code testé est celui ci :
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
Le fichier se trouve dans le dossier d'enregistrement par défaut (voir
les options d'excel)
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
Le fichier se trouve dans le dossier d'enregistrement par défaut (voir les options d'excel)