Print et date

Le
Fredo(67)
Bonjour,

J'utilise le "Print" pour éditer/mettre à jour des pages html depuis ex=
cel

Hors une de mes cellule est une date
et je voudrais que sur ma page html la date apparaisse comme ceci "Ven 03/1=
0/2014"

Comment devrais-je modifier la partie de code ci-joint pour que cela soit p=
ris en compte.

Print #1, Chr$(13) & "<tr bgcolor='#999999'><td>" & Sheets(Nom_Feuil).Ran=
ge("A5") & "<br>" & Sheets(Nom_Feuil).Range("b5") & "</td><td>."

sachant que la date se situe dans la cellule B5.


j'ai essayé plusieures syntaxes, mais toutes me renvoient des erreurs.
Merci pour votre aide
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
isabelle
Le #26295852
bonjour Fredo,

as-tu essayé de remplacer
& Sheets(Nom_Feuil).Range("b5") &
par
& Texte(Sheets(Nom_Feuil).Range("b5");"jjj jj/mm/aaaa") &

isabelle

Le 2014-07-24 10:15, Fredo(67) a écrit :
Bonjour,

J'utilise le "Print" pour éditer/mettre à jour des pages html depuis excel

Hors une de mes cellule est une date
et je voudrais que sur ma page html la date apparaisse comme ceci "Ven 03/10/2014"

Comment devrais-je modifier la partie de code ci-joint pour que cela soit pris en compte.

Print #1, Chr$(13) & "
sachant que la date se situe dans la cellule B5.


j'ai essayé plusieures syntaxes, mais toutes me renvoient des erreurs....
Merci pour votre aide

MichD
Le #26295842
Bonjour,

Pour mettre la date dans une variable D si tu es en VBA,
Dim D As String
D = format(Sheets(Nom_Feuil).Range("A5") ,"ddd dd/mm/yyyy")

Print #1, Chr$(13) & "<tr bgcolor='#999999'><td>" & D & "<br>" & D & "</td><td>...."
Fredo(67)
Le #26296502
Salut

MichD : je ne peux utiliser ta fonction en raison du fait que je ne peux pa s utiliser de variable

Isabelle : j'ai inséré ton code (en l'adaptant) dans ma macro, mais ç a plante...
Il me note Sub ou fonction non définie
(tout d'abord, j'ai du remplacer le point virgule par une virgule)
ensuite, j'ai essayé avec "texte", "text"... mais même résultat...
MichD
Le #26296582
Tu as essayé comme ceci :

Print #1, Chr$(13) & "<tr bgcolor='#999999'><td>" & format(Sheets(Nom_Feuil).Range("A5")
,"ddd dd/mm/yyyy") & "<br>" & format(Sheets(Nom_Feuil).Range("A5") ,"ddd dd/mm/yyyy") &
"</td><td>...."
Fredo(67)
Le #26296712
Yeeehaaaah

bravo MichD cela fonctionne parfaitement
Publicité
Poster une réponse
Anonyme