'-- Function SheetName() As Date Dim Mois As String, Dat As Date Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date)) Dat = CDate("01/" & Mois & "/" & AnnéeEnCours) '--
@+ ?
JP
Bonsoir As-tu essayé: ........&MaVariable) ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Dans la ligne suivante : '--- Dat = CDate("01/" & Mois & "/" & Year(Date)) '---
comment puis-je remplacer "Year(Date)" par une variable de la forme : 2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le résulat est (sans surprise !) erroné.
Merci pour votre aide.
JP
Jacquouille
RE Le """Mois = ActiveSheet.Name "", cela donne un nom ou un nombre? Si le nom de la feuille est un nombre, cela devrait aller Si le nom de la feuille est un nom, je crains qu'il ne faille lui mettre des "" Dat = CDate("01/" &"""& Mois&""" & "/" & AnnéeEnCours) Bonne chance Tu dis quoi?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir Jacquouille,
Oui, j'avais même commencé par ça.
Pour plus de détails :
'-- Function SheetName() As Date Dim Mois As String, Dat As Date Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date)) Dat = CDate("01/" & Mois & "/" & AnnéeEnCours) '--
@+ ?
JP
Bonsoir As-tu essayé: ........&MaVariable) ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Dans la ligne suivante : '--- Dat = CDate("01/" & Mois & "/" & Year(Date)) '---
comment puis-je remplacer "Year(Date)" par une variable de la forme : 2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le résulat est (sans surprise !) erroné.
Merci pour votre aide.
JP
RE
Le """Mois = ActiveSheet.Name "", cela donne un nom ou un nombre?
Si le nom de la feuille est un nombre, cela devrait aller
Si le nom de la feuille est un nom, je crains qu'il ne faille lui mettre des
""
Dat = CDate("01/" &"""& Mois&""" & "/" & AnnéeEnCours)
Bonne chance
Tu dis quoi?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.74767d8b2bd5c41b.81386@venir.com...
Bonsoir Jacquouille,
Oui, j'avais même commencé par ça.
Pour plus de détails :
'--
Function SheetName() As Date
Dim Mois As String, Dat As Date
Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile
Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date))
Dat = CDate("01/" & Mois & "/" & AnnéeEnCours)
'--
@+ ?
JP
Bonsoir
As-tu essayé:
........&MaVariable) ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.744e7d8b46aae128.81386@venir.com...
Bonsoir,
Dans la ligne suivante :
'---
Dat = CDate("01/" & Mois & "/" & Year(Date))
'---
comment puis-je remplacer "Year(Date)" par une variable de la forme :
2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le
résulat est (sans surprise !) erroné.
RE Le """Mois = ActiveSheet.Name "", cela donne un nom ou un nombre? Si le nom de la feuille est un nombre, cela devrait aller Si le nom de la feuille est un nom, je crains qu'il ne faille lui mettre des "" Dat = CDate("01/" &"""& Mois&""" & "/" & AnnéeEnCours) Bonne chance Tu dis quoi?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir Jacquouille,
Oui, j'avais même commencé par ça.
Pour plus de détails :
'-- Function SheetName() As Date Dim Mois As String, Dat As Date Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date)) Dat = CDate("01/" & Mois & "/" & AnnéeEnCours) '--
@+ ?
JP
Bonsoir As-tu essayé: ........&MaVariable) ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Dans la ligne suivante : '--- Dat = CDate("01/" & Mois & "/" & Year(Date)) '---
comment puis-je remplacer "Year(Date)" par une variable de la forme : 2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le résulat est (sans surprise !) erroné.
Merci pour votre aide.
JP
j-pascal
Re,
J'obtiens le msg suivant : Erreur d'exécution '13' Incompatibilité de type. Pourtant, dans la fenêtre de débogage, j'ai bien l'année qui apparaît en survolant la variable.
JP
RE Le """Mois = ActiveSheet.Name "", cela donne un nom ou un nombre? Si le nom de la feuille est un nombre, cela devrait aller Si le nom de la feuille est un nom, je crains qu'il ne faille lui mettre des "" Dat = CDate("01/" &"""& Mois&""" & "/" & AnnéeEnCours) Bonne chance Tu dis quoi?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir Jacquouille,
Oui, j'avais même commencé par ça.
Pour plus de détails :
'-- Function SheetName() As Date Dim Mois As String, Dat As Date Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date)) Dat = CDate("01/" & Mois & "/" & AnnéeEnCours) '--
@+ ?
JP
Bonsoir As-tu essayé: ........&MaVariable) ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Dans la ligne suivante : '--- Dat = CDate("01/" & Mois & "/" & Year(Date)) '---
comment puis-je remplacer "Year(Date)" par une variable de la forme : 2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le résulat est (sans surprise !) erroné.
Merci pour votre aide.
JP
Re,
J'obtiens le msg suivant :
Erreur d'exécution '13'
Incompatibilité de type.
Pourtant, dans la fenêtre de débogage, j'ai bien l'année qui apparaît
en survolant la variable.
JP
RE
Le """Mois = ActiveSheet.Name "", cela donne un nom ou un nombre?
Si le nom de la feuille est un nombre, cela devrait aller
Si le nom de la feuille est un nom, je crains qu'il ne faille lui mettre des
""
Dat = CDate("01/" &"""& Mois&""" & "/" & AnnéeEnCours)
Bonne chance
Tu dis quoi?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.74767d8b2bd5c41b.81386@venir.com...
Bonsoir Jacquouille,
Oui, j'avais même commencé par ça.
Pour plus de détails :
'--
Function SheetName() As Date
Dim Mois As String, Dat As Date
Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile
Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date))
Dat = CDate("01/" & Mois & "/" & AnnéeEnCours)
'--
@+ ?
JP
Bonsoir
As-tu essayé:
........&MaVariable) ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.744e7d8b46aae128.81386@venir.com...
Bonsoir,
Dans la ligne suivante :
'---
Dat = CDate("01/" & Mois & "/" & Year(Date))
'---
comment puis-je remplacer "Year(Date)" par une variable de la forme :
2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le résulat
est (sans surprise !) erroné.
J'obtiens le msg suivant : Erreur d'exécution '13' Incompatibilité de type. Pourtant, dans la fenêtre de débogage, j'ai bien l'année qui apparaît en survolant la variable.
JP
RE Le """Mois = ActiveSheet.Name "", cela donne un nom ou un nombre? Si le nom de la feuille est un nombre, cela devrait aller Si le nom de la feuille est un nom, je crains qu'il ne faille lui mettre des "" Dat = CDate("01/" &"""& Mois&""" & "/" & AnnéeEnCours) Bonne chance Tu dis quoi?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir Jacquouille,
Oui, j'avais même commencé par ça.
Pour plus de détails :
'-- Function SheetName() As Date Dim Mois As String, Dat As Date Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date)) Dat = CDate("01/" & Mois & "/" & AnnéeEnCours) '--
@+ ?
JP
Bonsoir As-tu essayé: ........&MaVariable) ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Dans la ligne suivante : '--- Dat = CDate("01/" & Mois & "/" & Year(Date)) '---
comment puis-je remplacer "Year(Date)" par une variable de la forme : 2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le résulat est (sans surprise !) erroné.
Merci pour votre aide.
JP
j-pascal
Re,
Oups ! Dans """& Mois&""", j'ai enlevé un guillemet et ajouté un espace de chaque côté. Ca marche !
Merci +
Bon week-end,
JP
RE Le """Mois = ActiveSheet.Name "", cela donne un nom ou un nombre? Si le nom de la feuille est un nombre, cela devrait aller Si le nom de la feuille est un nom, je crains qu'il ne faille lui mettre des "" Dat = CDate("01/" &"""& Mois&""" & "/" & AnnéeEnCours) Bonne chance Tu dis quoi?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir Jacquouille,
Oui, j'avais même commencé par ça.
Pour plus de détails :
'-- Function SheetName() As Date Dim Mois As String, Dat As Date Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date)) Dat = CDate("01/" & Mois & "/" & AnnéeEnCours) '--
@+ ?
JP
Bonsoir As-tu essayé: ........&MaVariable) ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Dans la ligne suivante : '--- Dat = CDate("01/" & Mois & "/" & Year(Date)) '---
comment puis-je remplacer "Year(Date)" par une variable de la forme : 2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le résulat est (sans surprise !) erroné.
Merci pour votre aide.
JP
Re,
Oups ! Dans """& Mois&""", j'ai enlevé un guillemet et ajouté un espace
de chaque côté.
Ca marche !
Merci +
Bon week-end,
JP
RE
Le """Mois = ActiveSheet.Name "", cela donne un nom ou un nombre?
Si le nom de la feuille est un nombre, cela devrait aller
Si le nom de la feuille est un nom, je crains qu'il ne faille lui mettre des
""
Dat = CDate("01/" &"""& Mois&""" & "/" & AnnéeEnCours)
Bonne chance
Tu dis quoi?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.74767d8b2bd5c41b.81386@venir.com...
Bonsoir Jacquouille,
Oui, j'avais même commencé par ça.
Pour plus de détails :
'--
Function SheetName() As Date
Dim Mois As String, Dat As Date
Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile
Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date))
Dat = CDate("01/" & Mois & "/" & AnnéeEnCours)
'--
@+ ?
JP
Bonsoir
As-tu essayé:
........&MaVariable) ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.744e7d8b46aae128.81386@venir.com...
Bonsoir,
Dans la ligne suivante :
'---
Dat = CDate("01/" & Mois & "/" & Year(Date))
'---
comment puis-je remplacer "Year(Date)" par une variable de la forme :
2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le résulat
est (sans surprise !) erroné.
Oups ! Dans """& Mois&""", j'ai enlevé un guillemet et ajouté un espace de chaque côté. Ca marche !
Merci +
Bon week-end,
JP
RE Le """Mois = ActiveSheet.Name "", cela donne un nom ou un nombre? Si le nom de la feuille est un nombre, cela devrait aller Si le nom de la feuille est un nom, je crains qu'il ne faille lui mettre des "" Dat = CDate("01/" &"""& Mois&""" & "/" & AnnéeEnCours) Bonne chance Tu dis quoi?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir Jacquouille,
Oui, j'avais même commencé par ça.
Pour plus de détails :
'-- Function SheetName() As Date Dim Mois As String, Dat As Date Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date)) Dat = CDate("01/" & Mois & "/" & AnnéeEnCours) '--
@+ ?
JP
Bonsoir As-tu essayé: ........&MaVariable) ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Dans la ligne suivante : '--- Dat = CDate("01/" & Mois & "/" & Year(Date)) '---
comment puis-je remplacer "Year(Date)" par une variable de la forme : 2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le résulat est (sans surprise !) erroné.
Merci pour votre aide.
JP
Jacquouille
Mon Dieu, quel é. MOIS -)) Bravo et bonne continuation -- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Re,
Oups ! Dans """& Mois&""", j'ai enlevé un guillemet et ajouté un espace de chaque côté. Ca marche !
Merci +
Bon week-end,
JP
RE Le """Mois = ActiveSheet.Name "", cela donne un nom ou un nombre? Si le nom de la feuille est un nombre, cela devrait aller Si le nom de la feuille est un nom, je crains qu'il ne faille lui mettre des "" Dat = CDate("01/" &"""& Mois&""" & "/" & AnnéeEnCours) Bonne chance Tu dis quoi?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir Jacquouille,
Oui, j'avais même commencé par ça.
Pour plus de détails :
'-- Function SheetName() As Date Dim Mois As String, Dat As Date Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date)) Dat = CDate("01/" & Mois & "/" & AnnéeEnCours) '--
@+ ?
JP
Bonsoir As-tu essayé: ........&MaVariable) ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Dans la ligne suivante : '--- Dat = CDate("01/" & Mois & "/" & Year(Date)) '---
comment puis-je remplacer "Year(Date)" par une variable de la forme : 2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le résulat est (sans surprise !) erroné.
Merci pour votre aide.
JP
Mon Dieu, quel é. MOIS -))
Bravo et bonne continuation
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.78057d8b93340d0f.81386@venir.com...
Re,
Oups ! Dans """& Mois&""", j'ai enlevé un guillemet et ajouté un espace de
chaque côté.
Ca marche !
Merci +
Bon week-end,
JP
RE
Le """Mois = ActiveSheet.Name "", cela donne un nom ou un nombre?
Si le nom de la feuille est un nombre, cela devrait aller
Si le nom de la feuille est un nom, je crains qu'il ne faille lui mettre
des ""
Dat = CDate("01/" &"""& Mois&""" & "/" & AnnéeEnCours)
Bonne chance
Tu dis quoi?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.74767d8b2bd5c41b.81386@venir.com...
Bonsoir Jacquouille,
Oui, j'avais même commencé par ça.
Pour plus de détails :
'--
Function SheetName() As Date
Dim Mois As String, Dat As Date
Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile
Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date))
Dat = CDate("01/" & Mois & "/" & AnnéeEnCours)
'--
@+ ?
JP
Bonsoir
As-tu essayé:
........&MaVariable) ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.744e7d8b46aae128.81386@venir.com...
Bonsoir,
Dans la ligne suivante :
'---
Dat = CDate("01/" & Mois & "/" & Year(Date))
'---
comment puis-je remplacer "Year(Date)" par une variable de la forme :
2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le
résulat est (sans surprise !) erroné.
Mon Dieu, quel é. MOIS -)) Bravo et bonne continuation -- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Re,
Oups ! Dans """& Mois&""", j'ai enlevé un guillemet et ajouté un espace de chaque côté. Ca marche !
Merci +
Bon week-end,
JP
RE Le """Mois = ActiveSheet.Name "", cela donne un nom ou un nombre? Si le nom de la feuille est un nombre, cela devrait aller Si le nom de la feuille est un nom, je crains qu'il ne faille lui mettre des "" Dat = CDate("01/" &"""& Mois&""" & "/" & AnnéeEnCours) Bonne chance Tu dis quoi?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir Jacquouille,
Oui, j'avais même commencé par ça.
Pour plus de détails :
'-- Function SheetName() As Date Dim Mois As String, Dat As Date Dim AnnéeEnCours 'as ---
AnnéeEnCours = Sheets("Janvier").[a5]
Application.Volatile Mois = ActiveSheet.Name
'Dat = CDate("01/" & Mois & "/" & Year(Date)) Dat = CDate("01/" & Mois & "/" & AnnéeEnCours) '--
@+ ?
JP
Bonsoir As-tu essayé: ........&MaVariable) ?
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Dans la ligne suivante : '--- Dat = CDate("01/" & Mois & "/" & Year(Date)) '---
comment puis-je remplacer "Year(Date)" par une variable de la forme : 2008 (ou 2009, etc.) ? (supposons que cette variable = "TheDate" (ie)
J'ai fait des essais en remplaçant "Date" par la variable mais le résulat est (sans surprise !) erroné.