Voila j'ai reçu ce message de AV mais je ne sais comment faire !
"Si ton calendrier est en "Feuil3" Tu mets ça dans le module de ThisWorkbook :
Private Sub Workbook_Open() Sheets("Feuil3").Select Cells.Find(Date).Select End Sub
Il s'agissait de faire apparaire automatiquement la data du jour dans un calendrier Merci
Philippe.R a écrit dans le message :
Bonsoir Sycora, Et que souhaites tu obtenir ce faisant ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"sycora" a écrit dans le message de news:bm1nm6$jin$
Bonsoir comment faire pour mettre une formule dans "module de ThisWorkbook "
peut-on le faire par copier coller Merci -- Cordialement. Sycora.
Philippe.R
Re, Ton classeur étant ouvert, tu presses simultanément les touches Alt et F11, ce qui ouvre l'editeur VBA Dans la fenêtre située en haut à gauche, tu repères le nom de ton classeur entre les parenthèses d'un VBAProject() ; dans l'arborescence qui suit et que tu as fait apparaître le cas échéant en cliquant sur la petite croix située à côté de ton VBAProject(), tu découvres tout en bas un module dont le nom est ThisWorkbook. Tu double clique dessus et dans la grande fenêtre de droite qui vient de s'ouvrir tu colles le code figurant dans le message d'Alain et que auras au préalable copié. -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"sycora" a écrit dans le message de news:bm1uli$533$
Voila j'ai reçu ce message de AV mais je ne sais comment faire !
"Si ton calendrier est en "Feuil3" Tu mets ça dans le module de ThisWorkbook :
Private Sub Workbook_Open() Sheets("Feuil3").Select Cells.Find(Date).Select End Sub
Il s'agissait de faire apparaire automatiquement la data du jour dans un calendrier Merci
Philippe.R a écrit dans le message :
Bonsoir Sycora, Et que souhaites tu obtenir ce faisant ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"sycora" a écrit dans le message de news:bm1nm6$jin$
Bonsoir comment faire pour mettre une formule dans "module de ThisWorkbook "
peut-on le faire par copier coller Merci -- Cordialement. Sycora.
Re,
Ton classeur étant ouvert, tu presses simultanément les touches Alt et F11, ce qui ouvre l'editeur VBA
Dans la fenêtre située en haut à gauche, tu repères le nom de ton classeur entre les parenthèses d'un
VBAProject() ; dans l'arborescence qui suit et que tu as fait apparaître le cas échéant en cliquant sur
la petite croix située à côté de ton VBAProject(), tu découvres tout en bas un module dont le nom est
ThisWorkbook.
Tu double clique dessus et dans la grande fenêtre de droite qui vient de s'ouvrir tu colles le code
figurant dans le message d'Alain et que auras au préalable copié.
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"sycora" <menard-mi@wanadoo.fr> a écrit dans le message de news:bm1uli$533$1@news-reader2.wanadoo.fr...
Voila j'ai reçu ce message de AV mais je ne sais comment faire !
"Si ton calendrier est en "Feuil3"
Tu mets ça dans le module de ThisWorkbook :
Private Sub Workbook_Open()
Sheets("Feuil3").Select
Cells.Find(Date).Select
End Sub
Il s'agissait de faire apparaire automatiquement la data du jour dans un
calendrier
Merci
Philippe.R <A_S_rauphil@wanadoo.fr> a écrit dans le message :
OvSVEAejDHA.1408@TK2MSFTNGP11.phx.gbl...
Bonsoir Sycora,
Et que souhaites tu obtenir ce faisant ?
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"sycora" <menard-mi@wanadoo.fr> a écrit dans le message de
news:bm1nm6$jin$1@news-reader3.wanadoo.fr...
Bonsoir comment faire pour mettre une formule dans "module de
ThisWorkbook "
peut-on le faire par
copier coller
Merci
--
Cordialement. Sycora.
Re, Ton classeur étant ouvert, tu presses simultanément les touches Alt et F11, ce qui ouvre l'editeur VBA Dans la fenêtre située en haut à gauche, tu repères le nom de ton classeur entre les parenthèses d'un VBAProject() ; dans l'arborescence qui suit et que tu as fait apparaître le cas échéant en cliquant sur la petite croix située à côté de ton VBAProject(), tu découvres tout en bas un module dont le nom est ThisWorkbook. Tu double clique dessus et dans la grande fenêtre de droite qui vient de s'ouvrir tu colles le code figurant dans le message d'Alain et que auras au préalable copié. -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"sycora" a écrit dans le message de news:bm1uli$533$
Voila j'ai reçu ce message de AV mais je ne sais comment faire !
"Si ton calendrier est en "Feuil3" Tu mets ça dans le module de ThisWorkbook :
Private Sub Workbook_Open() Sheets("Feuil3").Select Cells.Find(Date).Select End Sub
Il s'agissait de faire apparaire automatiquement la data du jour dans un calendrier Merci
Philippe.R a écrit dans le message :
Bonsoir Sycora, Et que souhaites tu obtenir ce faisant ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"sycora" a écrit dans le message de news:bm1nm6$jin$
Bonsoir comment faire pour mettre une formule dans "module de ThisWorkbook "
peut-on le faire par copier coller Merci -- Cordialement. Sycora.
manu l.
Bonsoir Sycora,
S'il s'agit d'une formule comme celle qu'on mettrait dans une cellule Excel, non.
Voici l'équivalent de :
=aujourdhui()
en A1,
Public Sub today() Cells(1, 1).Formula = "=today()" End Sub
ou mieux :
Public Sub today() Cells(1, 1).Value = Date End Sub
dans ThisWorkbook
Mais, il faudrait peut-être préciser la question...
Meilleures salutations.
-- manu l.
"sycora" a écrit dans le message de news:bm1nm6$jin$
Bonsoir comment faire pour mettre une formule dans "module de ThisWorkbook "
peut-on le faire par copier coller Merci -- Cordialement. Sycora.
Bonsoir Sycora,
S'il s'agit d'une formule comme celle qu'on mettrait dans une cellule Excel,
non.
Voici l'équivalent de :
=aujourdhui()
en A1,
Public Sub today()
Cells(1, 1).Formula = "=today()"
End Sub
ou mieux :
Public Sub today()
Cells(1, 1).Value = Date
End Sub
dans ThisWorkbook
Mais, il faudrait peut-être préciser la question...
Meilleures salutations.
--
manu l.
"sycora" <menard-mi@wanadoo.fr> a écrit dans le message de
news:bm1nm6$jin$1@news-reader3.wanadoo.fr...
Bonsoir comment faire pour mettre une formule dans "module de ThisWorkbook
"
peut-on le faire par
copier coller
Merci
--
Cordialement. Sycora.