vba date avec variable

Le
j-pascal
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #17843441
Bonsoir
As-tu essayé:
........&MaVariable) ?

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"j-pascal"
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
Le #17843971
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"
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
Le #17845571
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"
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"
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
Le #17846921
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"
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"
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
Le #17847031
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"
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"
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
Le #17854491
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"
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"
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"
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
















Publicité
Poster une réponse
Anonyme