probleme de format de fichier apres une sauvegarde

comment sont générées les variables anN, moiS, jouR ?
voici ma méthode

jddj = Day(Now()): mddj = Month(Now()): addj = Year(Now())
nbchj = Len(jddj): If nbchj = 1 Then jddj = "0" & jddj
nbchm = Len(mddj): If nbchm = 1 Then mddj = "0" & mddj
aammjj = addj & mddj & jddj

Cordialement
Denis

"sleg" a écrit :

Bonjour,

voila j'utilise cette ligne de commande
ActiveWorkbook.SaveCopyAs ("\rmfrdeff601PORTAILGPIProjetGPI
Cellule EvènementsContrôle de Backlogbacklog" & anN & moiS & jouR &
".xls")

et par exemple ce jour le 01/08/2008 le ficheir devrait se nommer
20080801.xls et la j'ai 2008011.xls pourriez vous m'aider a resoudre
ce probleme

merci d'avance
et bonne journée.

Salut Sleg

Pour la date du jour je mettrais :

Format(Date, "yyyymmdd")

ce qui donne dans ta ligne de code :


ActiveWorkbook.SaveCopyAs ("\rmfrdeff601PORTAILGPIProjetGPI
Cellule EvènementsContrôle de Backlogbacklog" & Format(Date, "yyyymmdd") &
".xls")

Qu'en penses tu ????

Bonjour,

Peut-être:

NomFich = Year(Now()) & Format(Month(Now), "00") & Format(Day(Now), "00") &
".xls"
ActiveWorkbook.SaveCopyAs ("\rmfrdeff601PORTAILGPIProjetGPI Cellule
EvènementsContrôle de Backlogbacklog" & NomFich)

--
Salutations
JJ


"sleg" <bastientot@gmail.com> a écrit dans le message de news:
8b645946-9371-4174-9fd6-13bfc11d03fa@l64g2000hse.googlegroups.com...
Bonjour,

voila j'utilise cette ligne de commande
ActiveWorkbook.SaveCopyAs ("\rmfrdeff601PORTAILGPIProjetGPI
Cellule EvènementsContrôle de Backlogbacklog" & anN & moiS & jouR &
".xls")

et par exemple ce jour le 01/08/2008 le ficheir devrait se nommer
20080801.xls et la j'ai 2008011.xls pourriez vous m'aider a resoudre
ce probleme

merci d'avance
et bonne journée.

Bonsour® sleg au "losange" avec ferveur ;o))) vous nous disiez :

voila j'utilise cette ligne de commande
ActiveWorkbook.SaveCopyAs ("\rmfrdeff601PORTAILGPIProjetGPI
Cellule EvènementsContrôle de Backlogbacklog" & anN & moiS & jouR &
".xls")
et par exemple ce jour le 01/08/2008 le ficheir devrait se nommer
20080801.xls

NomFich = format(date,"yyyymmdd") &
".xls"
ActiveWorkbook.SaveCopyAs ("\rmfrdeff601PORTAILGPIProjetGPI Cellule
EvènementsContrôle de Backlogbacklog" & NomFich)

;o)))
fallait faire appel à l'équipe Dev de Dominique B. à Georges Besse
Un ancien du plateau ...
;o)))


--
--
@+
;o)))

Grand merci pour ta solution

et bonne journée

et merci a toutes & tous de votre aide.



On 1 août, 11:47, FFO <F...@discussions.microsoft.com> wrote:

Salut Sleg

Pour la date du jour je mettrais :

Format(Date, "yyyymmdd")

ce qui donne dans ta ligne de code :

ActiveWorkbook.SaveCopyAs ("\rmfrdeff601PORTAILGPIProjetGPI
Cellule EvènementsContrôle de Backlogbacklog" & Format(Date, "yyyy mmdd") &
".xls")

Qu'en penses tu ????