enregistrer sous

[guevain]

bonjour a tous ,

apres avoir parcouru le forum et d'autres sites , je reste dans l'impasse .

je m'explique , j'ai une macro qui appel un fichier , qui copie/colle les infos de l'onglet 1 et qui fait diverses taches.

a la fin de cette macro je referme le fichier appeler par :

Windows("fichier appeler.xlsm").Activate
ActiveWindow.Close

je souhaiterai enregistrer ce fichier dans un dossier en y ajoutant la semaine (au la date).

j'ai essayer avec

ActiveWorkbook.SaveAs Filename:= "C:\bureau\historique\fichier de transfert.xlsm & semaine,FileFormat

a la place de 'ActiveWindow.Close' , mais cela ne fonctionne pas .

si quelqu'un a une solution , je suis preneur , ou bien meme un bout de code que j'essaierai d'adapter.

cordialement

 

[Pierrot93]

Re : enregistrer sous

Bonjour,

essaye^peut être ainsi :

ActiveWorkbook.SaveAs Filename:= "C:\bureau\historique\fichier de transfert" & Format(Date, "ddmmyyyy")

bon après midi
@+

 

[guevain]

Re : enregistrer sous

bonjour Pierrot 93

parfait le code marche a merveille , il me reste plus qu'a l'inclure dans la dite macro .

est il possible de changer le format de date : Format(Date, "ddmmyyyy") par un truc qui me donnerai la semaine en cours .

Format(semaine,"S42")

par avance merci et encore merci pour le code

 

[Pierrot93]

Re : enregistrer sous

Re,

essaye ceci pour la semaine... bien que pour certaines années... le résultat soit erroné...

Format(DatePart("ww", Date, vbMonday, vbFirstFourDays), 0)

 

[guevain]

Re : enregistrer sous

merci pierrot 93

j'essaie ca demain matin au boulot et te retiens au courant .

qu'entends tu par le resultat peut etre errone , j'ai lu different truc ,mais par exemple cette année le 31 decembre tombe un lundi ,
il faudrait donc qu'en 2013 , je change le code par : Format(DatePart("ww", Date, vbMonday, vbFirstthreeDays), 0) ???????

en attendant si ca marche , ca me laisse 2 mois pour creuser le truc

 

[Pierrot93]

Re : enregistrer sous

Bonjour,

mais par exemple cette année le 31 decembre tombe un lundi ,
il faudrait donc qu'en 2013

semble correct chez moi, code ci-dessous renvoie 1, comme mon éphéméride du reste...

Option Explicit
Sub test()
Dim MaDate As Date
MaDate = #12/31/2012#
MsgBox Format(DatePart("ww", MaDate, vbMonday, vbFirstFourDays), 0)
End Sub

bonne journée
@+

 

[guevain]

Re : enregistrer sous

bonjour

tout fonctionne parfaitement

MERCI