valeur par défaut du calendrier à l'ouverture du fichier
2 réponses
C15
Bonjour à tous et toutes,
Je reviens sur un post datant de 15 jours environ pour lequel j'ai toujours
des soucis malgré une réponse donnée.
Dans un fichier j'ai inséré un contrôle calendrier (Calendar1).
Je voudrais qu'à l'ouverture de ce fichier le calendrier affiche la date du
jour.
J'ai créé la macro suivante :
Sub Auto_Open()
'
' Auto_Open Macro
' Macro enregistrée le 11/03/2005 par Moi
'
Range("A3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Calendar1.Value = Date
End Sub
Excel coince sur la dernière ligne ("Objet requis")
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
Pierre CFI [mvp]
bonjour Worksheets("feuil1").Calendar1.Value = Date (indique la feuille)
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "C15" <Mé a écrit dans le message de news:424a59d3$0$15276$
Bonjour à tous et toutes,
Je reviens sur un post datant de 15 jours environ pour lequel j'ai toujours des soucis malgré une réponse donnée.
Dans un fichier j'ai inséré un contrôle calendrier (Calendar1). Je voudrais qu'à l'ouverture de ce fichier le calendrier affiche la date du jour.
J'ai créé la macro suivante :
Sub Auto_Open() ' ' Auto_Open Macro ' Macro enregistrée le 11/03/2005 par Moi ' Range("A3").Select ActiveCell.FormulaR1C1 = "=TODAY()" Calendar1.Value = Date
End Sub
Excel coince sur la dernière ligne ("Objet requis")
Comment corriger cela ?
Merci de votre aide
A+
C15
bonjour
Worksheets("feuil1").Calendar1.Value = Date
(indique la feuille)
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"C15" <MéfiezVousDesSpams@club-internet.fr> a écrit dans le message de news:424a59d3$0$15276$7a628cd7@news.club-internet.fr...
Bonjour à tous et toutes,
Je reviens sur un post datant de 15 jours environ pour lequel j'ai toujours
des soucis malgré une réponse donnée.
Dans un fichier j'ai inséré un contrôle calendrier (Calendar1).
Je voudrais qu'à l'ouverture de ce fichier le calendrier affiche la date du
jour.
J'ai créé la macro suivante :
Sub Auto_Open()
'
' Auto_Open Macro
' Macro enregistrée le 11/03/2005 par Moi
'
Range("A3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Calendar1.Value = Date
End Sub
Excel coince sur la dernière ligne ("Objet requis")
bonjour Worksheets("feuil1").Calendar1.Value = Date (indique la feuille)
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "C15" <Mé a écrit dans le message de news:424a59d3$0$15276$
Bonjour à tous et toutes,
Je reviens sur un post datant de 15 jours environ pour lequel j'ai toujours des soucis malgré une réponse donnée.
Dans un fichier j'ai inséré un contrôle calendrier (Calendar1). Je voudrais qu'à l'ouverture de ce fichier le calendrier affiche la date du jour.
J'ai créé la macro suivante :
Sub Auto_Open() ' ' Auto_Open Macro ' Macro enregistrée le 11/03/2005 par Moi ' Range("A3").Select ActiveCell.FormulaR1C1 = "=TODAY()" Calendar1.Value = Date
End Sub
Excel coince sur la dernière ligne ("Objet requis")
Comment corriger cela ?
Merci de votre aide
A+
C15
C15
Merci l'arpète ;-))
A+
C15
"Pierre CFI [mvp]" a écrit dans le message de news:
bonjour Worksheets("feuil1").Calendar1.Value = Date (indique la feuille)
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "C15" <Mé a écrit dans le message de news:424a59d3$0$15276$
Bonjour à tous et toutes,
Je reviens sur un post datant de 15 jours environ pour lequel j'ai toujours des soucis malgré une réponse donnée.
Dans un fichier j'ai inséré un contrôle calendrier (Calendar1). Je voudrais qu'à l'ouverture de ce fichier le calendrier affiche la date du jour.
J'ai créé la macro suivante :
Sub Auto_Open() ' ' Auto_Open Macro ' Macro enregistrée le 11/03/2005 par Moi ' Range("A3").Select ActiveCell.FormulaR1C1 = "=TODAY()" Calendar1.Value = Date
End Sub
Excel coince sur la dernière ligne ("Objet requis")
Comment corriger cela ?
Merci de votre aide
A+
C15
Merci l'arpète ;-))
A+
C15
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: OXaQc3PNFHA.204@TK2MSFTNGP15.phx.gbl...
bonjour
Worksheets("feuil1").Calendar1.Value = Date
(indique la feuille)
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"C15" <MéfiezVousDesSpams@club-internet.fr> a écrit dans le message de
news:424a59d3$0$15276$7a628cd7@news.club-internet.fr...
Bonjour à tous et toutes,
Je reviens sur un post datant de 15 jours environ pour lequel j'ai
toujours
des soucis malgré une réponse donnée.
Dans un fichier j'ai inséré un contrôle calendrier (Calendar1).
Je voudrais qu'à l'ouverture de ce fichier le calendrier affiche la date
du
jour.
J'ai créé la macro suivante :
Sub Auto_Open()
'
' Auto_Open Macro
' Macro enregistrée le 11/03/2005 par Moi
'
Range("A3").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Calendar1.Value = Date
End Sub
Excel coince sur la dernière ligne ("Objet requis")
"Pierre CFI [mvp]" a écrit dans le message de news:
bonjour Worksheets("feuil1").Calendar1.Value = Date (indique la feuille)
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "C15" <Mé a écrit dans le message de news:424a59d3$0$15276$
Bonjour à tous et toutes,
Je reviens sur un post datant de 15 jours environ pour lequel j'ai toujours des soucis malgré une réponse donnée.
Dans un fichier j'ai inséré un contrôle calendrier (Calendar1). Je voudrais qu'à l'ouverture de ce fichier le calendrier affiche la date du jour.
J'ai créé la macro suivante :
Sub Auto_Open() ' ' Auto_Open Macro ' Macro enregistrée le 11/03/2005 par Moi ' Range("A3").Select ActiveCell.FormulaR1C1 = "=TODAY()" Calendar1.Value = Date
End Sub
Excel coince sur la dernière ligne ("Objet requis")