Calendrier de Alain Cros

Le
JLuc
Bonjour le groupe,
J'ai un petit soucis avec une application vba.
J'ai téléchargé et copier un calendrier d'Alain Cros dans mon
application et quand je lance celle ci, j'ai une erreur de compilation
pour la commande Format :

date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay),
"dd/mm/yyyy")

D'ou cela provient il ?
Merci d'avance pour vos réponses
JLuc
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
michdenis
Le #20535341
Bonjour JLuc,

| date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay),
| "dd/mm/yyyy")

Les points devant WYear, wMonth et Wday doivent faire référence
à un objet... est-ce que cette objet existe ?





"JLuc" a écrit dans le message de groupe de discussion :
#
Bonjour le groupe,
J'ai un petit soucis avec une application vba.
J'ai téléchargé et copier un calendrier d'Alain Cros dans mon
application et quand je lance celle ci, j'ai une erreur de compilation
pour la commande Format :

date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay),
"dd/mm/yyyy")

D'ou cela provient il ?
Merci d'avance pour vos réponses
JLuc
JLuc
Le #20535331
Oui, voila la procédure complete :

Private Sub CommandButton1_Click()
Const MCM_FIRST& = &H1000&, MCM_GETCURSEL& = (MCM_FIRST + 1&)
Dim LeTime As SYSTEMTIME
'Récuperer la date sélectionnée
SendMessage mWnd, MCM_GETCURSEL, 0&, LeTime
With LeTime
date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay),
"dd/mm/yyyy")
End With
Unload Me
End Sub

J'ai juste modifier pour mettre dans une variable, son code affichais
la date dans une msgbox

michdenis a formulé ce mercredi :
Bonjour JLuc,

date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay),
"dd/mm/yyyy")



Les points devant WYear, wMonth et Wday doivent faire référence
à un objet... est-ce que cette objet existe ?





"JLuc" a écrit dans le message de groupe de discussion :
#
Bonjour le groupe,
J'ai un petit soucis avec une application vba.
J'ai téléchargé et copier un calendrier d'Alain Cros dans mon
application et quand je lance celle ci, j'ai une erreur de compilation
pour la commande Format :

date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay),
"dd/mm/yyyy")

D'ou cela provient il ?
Merci d'avance pour vos réponses
JLuc


JLuc
Le #20535321
Précision : sur mon pc, ça marche bien.
C'est sur un portable avec aussi excel 2003 que ça plante

michdenis a utilisé son clavier pour écrire :
Bonjour JLuc,

date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay),
"dd/mm/yyyy")



Les points devant WYear, wMonth et Wday doivent faire référence
à un objet... est-ce que cette objet existe ?





"JLuc" a écrit dans le message de groupe de discussion :
#
Bonjour le groupe,
J'ai un petit soucis avec une application vba.
J'ai téléchargé et copier un calendrier d'Alain Cros dans mon
application et quand je lance celle ci, j'ai une erreur de compilation
pour la commande Format :

date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay),
"dd/mm/yyyy")

D'ou cela provient il ?
Merci d'avance pour vos réponses
JLuc


isabelle
Le #20535431
bonjour JLuc,

as-tu mit la declaration :

Private Declare Function SendMessage& Lib "user32" _
Alias "SendMessageA" _
(ByVal Hwnd&, ByVal wMsg&, ByVal wParam&, ByRef lParam As Any)

isabelle

JLuc a écrit :
Précision : sur mon pc, ça marche bien.
C'est sur un portable avec aussi excel 2003 que ça plante

michdenis a utilisé son clavier pour écrire :
Bonjour JLuc,

date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay),
"dd/mm/yyyy")



Les points devant WYear, wMonth et Wday doivent faire référence
à un objet... est-ce que cette objet existe ?





"JLuc" a écrit dans le message de groupe de discussion :
#
Bonjour le groupe,
J'ai un petit soucis avec une application vba.
J'ai téléchargé et copier un calendrier d'Alain Cros dans mon
application et quand je lance celle ci, j'ai une erreur de compilation
pour la commande Format :

date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay),
"dd/mm/yyyy")

D'ou cela provient il ?
Merci d'avance pour vos réponses
JLuc






JLuc
Le #20535401
En fait, j'ai fais un copier coller du formulaire de Alain de son
classeur dans le mien et j'ai changer la msgbox par une variable.
Alors oui, il y a tout.
Surtout que ça marche sur mon pc !
J'ai enregistré le classeur en modèle, car je voudrais le distribuer

Après mûre réflexion, isabelle a écrit :
bonjour JLuc,

as-tu mit la declaration :

Private Declare Function SendMessage& Lib "user32" _
Alias "SendMessageA" _
(ByVal Hwnd&, ByVal wMsg&, ByVal wParam&, ByRef lParam As Any)

isabelle

JLuc a écrit :
Précision : sur mon pc, ça marche bien.
C'est sur un portable avec aussi excel 2003 que ça plante

michdenis a utilisé son clavier pour écrire :
Bonjour JLuc,

date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay),
"dd/mm/yyyy")



Les points devant WYear, wMonth et Wday doivent faire référence
à un objet... est-ce que cette objet existe ?





"JLuc" a écrit dans le message de groupe de discussion :
#
Bonjour le groupe,
J'ai un petit soucis avec une application vba.
J'ai téléchargé et copier un calendrier d'Alain Cros dans mon
application et quand je lance celle ci, j'ai une erreur de compilation
pour la commande Format :

date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay),
"dd/mm/yyyy")

D'ou cela provient il ?
Merci d'avance pour vos réponses
JLuc






JLuc
Le #20535641
En cherchant, je m'aperçois que sur le portable, j'ai :
MANQUANT : Microsoft Windows Common Controls-2.6.0 (SP6)
Comment le rajouter à l'ouverture du formulaire ?
michdenis
Le #20535921
Tu ne le rajoute pas, tu fais simplement le décocher !


"JLuc" a écrit dans le message de groupe de discussion :
ulm$
En cherchant, je m'aperçois que sur le portable, j'ai :
MANQUANT : Microsoft Windows Common Controls-2.6.0 (SP6)
Comment le rajouter à l'ouverture du formulaire ?
Milan
Le #20538961
Alain Cros ??
Ki C celui là ?

"JLuc" a écrit dans le message de news:
%
Bonjour le groupe,
J'ai un petit soucis avec une application vba.
J'ai téléchargé et copier un calendrier d'Alain Cros dans mon application
et quand je lance celle ci, j'ai une erreur de compilation pour la
commande Format :

date_calendar = Format(DateSerial(.wYear, .wMonth, .wDay), "dd/mm/yyyy")

D'ou cela provient il ?
Merci d'avance pour vos réponses
JLuc




Publicité
Poster une réponse
Anonyme