macro saveas filename

[JM]

Bonjour à tt le forum
j'ai un ptit pb à résoudre:
l'utilisateur en cliquant sur un bouton, doit provoquer l'enregistrement du fichier courant

L'enregistrement doit être sous la forme: "Saisie en date du JJMMAA.xls"
dans mon essai ci-dessous, j'ai mis en cellule A30 le texte "Saisie en date du "
La cellule D3 contient une date saisie par l'utilisateur

Dim e As String * 18 'entête du nom de fichier
Dim d As String * 6 'date
e = Range("a30") ' Heures du
d = Range("D3")
ActiveWorkbook.SaveAs Filename:="C:\Heures\" & (e) & (d)

mais qq chose ne va pas et je ne sais pas quoi, qq'un pourrait m'aider ?
merci

 

[Abel]

Bonjour JM, re tous,

Grégory a fait à peu près le même type de demande (recherche "macro enregistrer sous" sur le forum.
C'était le 23/02/04.
J'avais transmis un bout de macro répondant à son problème.

Abel.

(J'avais signé Alex alors qu'il y a déjà un pseudo Alex, auprès de qui je m'excuse pour l'usurpation. J'étais tout neuf sur ce forum et je n'avais pas vérifié les pseudos.)

 

[JM]

Un amical bonjour à tt le forum
j'ai un ptit pb à résoudre:
l'utilisateur en cliquant sur un bouton, doit provoquer l'enregistrement du fichier courant

L'enregistrement doit être sous la forme: "Saisie en date du JJMMAA.xls"
dans mon essai ci-dessous, j'ai mis en cellule A30 le texte "Saisie en date du "
La cellule D3 contient une date saisie par l'utilisateur

Dim e As String * 18 'entête du nom de fichier
Dim d As String * 6 'date
e = Range("a30") ' Heures du
d = Range("D3")
ActiveWorkbook.SaveAs Filename:="C:\Heures\" & (e) & (d)

mais qq chose ne va pas : la date saisie en D3 est le résultat d'une fonction:
SI(B3=VRAI;AUJOURDHUI();"")
en fait, tout va bien si je saisis la date "à la main" dans D3, mais si elle résulte d'une fonction, VBA "bugge" !
quelqu'un aurait-il une idée ?
merci les EXCELents ! (enfin souvent rapides !)
JM