enregistrement fichier

[tracor]

salut le phorum

j'ai une petite macro qui me permet d'enregistrer automatiquement un fichier en le renommant d'un début et fin de période
je souhaiterai plutot qu'un début et fin obtenir un numéro de semaine

ci joint la macro

Global CheminFichierSource, débutsem, finsem

Sub enregistrement()
cheminfichiersource="c: \bureau\windows\"
débutsem = Format(Date - 7, "dd mm yy")
finsem = Format(Date - 2, "dd mm yy")

Application.StatusBar = "enregistrement"

Range("a1").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=CheminFichierSource + "test" + débutsem + " AU " + finsem, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Application.DisplayAlerts = True
End Sub

merci d'avance de toutes suggestions ou réponses

tracor

 

[Jocelyn]

Bonjour le Forum,
Bonjour tracor,

Voila je suis débutant en excel mais tu peux peut etre essayer de remplacer la ligne :

ActiveWorkbook.SaveAs Filename:=CheminFichierSource + "test" + débutsem + " AU " + finsem, FileFormat:=xlNormal, Password:="",

Par

ActiveWorkbook.SaveAs Filename:=CheminFichierSource + "test semaine N°)" + NO.SEMAINE(AUJOURDHUI();2), FileFormat:=xlNormal, Password:="",

auquel je pense que tu n'as plus besoin des lignes/

débutsem = Format(Date - 7, "dd mm yy")
finsem = Format(Date - 2, "dd mm yy")

Voila je ne sais pas si ca va t'aider mais je l'espere

A+
Jocelyn

 

[tracor]

salut jocelyn

malheureusement cela ne fonctionne pas car vba ne reconnait pas la fonction no.semaine

merci quand même

tracor

 

[Jocelyn]

Re,


Je vais pas pouvoir t'aider beaucoup plus mais essai quand même de remplacer :

NO.SEMAINE(AUJOURDHUI();2)

par :

Weeknum(TODAY(),2)

Voila je ne vois pas autre chose désolé
enfin j'espere que ca va fonctionner

A+
Jocelyn

 

[tracor]

re jocelyn

malheureusement cela ne fonctionne toujours pas
merci encore

les paris sont ouverts pour la solution

merci

tracor

 

[tracor]

salut le phorum

pour faire suite au pari lancé hier
je pense avoir gagné
j'ai la macro qui permet d'enregistrer un document en le renommant
ce n'est pas encore automatisé complétement car il faut toujours indiquer le nouveau nom de fichier
mais c toujours mieux que rien
voici la macro

Sub enregistrement()
Set newbook = ActiveWorkbook
Do
fname = Application.GetSaveAsFilename
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=fname, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Loop Until fname <> False
Application.DisplayAlerts = True
End Sub
si quelqu'un a mieux à proposer
je suis toujours preneur
tracor