mémorisation date saveas

Version imprimable

12/03/2008, 13h44
ouioui_cmoi

mémorisation date saveas

Bonjour
Je cherche à effectuer une macro qui actualise un powerpoint blabla2008-03-03.ppt une fois par semaine via excel.
Cette macro effectue des modifications, et je veux enregistrer le fichier sous la date du jour :

Code:

.SaveAs ("P:\blabla" & Format(Now, "yyyy-mm-dd") & "essai.ppt")

Jusque là pas de probleme…
Mais je voudrais qu’à la prochaine actualisation, la macro m’ouvre la derniere version de l’actualisation donc, par exemple blabla2008-03-10, et ceci de semaine en semaine …Donc je suppose que, il faut mémoriser la date.
Je ne vois pas trop comment faire…quelqu un aurait il une idee ?
12/03/2008, 13h55
ouskel'n'or
Si nécessaire, regarde à DateAdd, dans l'aide pour comprendre ça ;)
Code:

1 2 3 Sub test() MsgBox DateAdd("ww", -1, Now) End Sub
12/03/2008, 14h01
ouioui_cmoi

très intéressant comme fonction...
Néanmoins, l'actualisation ne s'effectue pas toutes les semaines le même jour...Pour retenir la date de la derniere fois que l'on a lancé la macro, il n'ya aucun moyen?
12/03/2008, 14h02
patbou
bonjour,

je ne sais pas ce que tu veux faire exactement mais tu peux enregistrer la date de la mise a jour du ppt dans une cellule
Code:

1 2 3 .SaveAs ("P:\blabla" & Format(Now, "yyyy-mm-dd") & "essai.ppt") cells(1,1) = Format(Now, "yyyy-mm-dd")
et a l ouverture d xl tu recupère la derniere mise a jour
Code:

1 2 dern_fichier = cells(1,1)
12/03/2008, 14h15
ouioui_cmoi

l'idée me paraît être la bonne, mais apparemment ça ne marche pas...
En fait, je met bien la date actuelle dans le excel sous la forme yyyy-mm-dd
mais, j crois que ça ne marche pas parce que ça a l'air de me le convertir automatiquement sous la forme dd/mm/yyyy.
Du coup, après quand je rappelle cette cellule, et bien ça ne trouve pas le fichier que je veux ouvrir

Un autre solution consisterait à effectuer une boucle sur les fichiers du répertoire et de tester

Code:

If Instr(NomFich, Format(DateAdd("ww", -1, Now), "yyyy-ww"))<> 0 then

Pour tester

Code:

1
2
3
Sub test()
If InStr("Blabla" & "2008-10", Format(DateAdd("ww", -1, Now), "yyyy-ww")) <> 0 Then MsgBox "ok"
End Sub

La boucle en prime

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Tester()
    With Excel.Application.FileSearch
        .NewSearch
        .LookIn = "D:\xls" 'A adapter (!)
        .SearchSubFolders = True
        .Filename = "*.xls"
        If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
                If InStr(.FoundFiles(i), Format(DateAdd("ww", -1, Now), "yyyy-ww")) <> 0 Then _
                    MsgBox "C'est lui !"
            Next i
        End If
    End With
End Sub

12/03/2008, 14h37
ouioui_cmoi

effectivement, ça a l air d'être une bonne méthode :)
et l'autre méthode marche, même si elle me plante encore a cause du SaveAs quand je fais ptDoc.close
mais le fichier est bien reconnu donc merci a tous les 2 pour vos réponses...
n'empêche que, a cause ou grâce? à tous les problèmes que j'ai et à vos réponses, j'apprends plein de choses :)
merci encore
12/03/2008, 14h42
ouskel'n'or

Citation:

elle me plante encore a cause du SaveAs quand je fais ptDoc.close

Où ça ? Mets ton code incluant les deux (saveas et close)
12/03/2008, 14h45
ouioui_cmoi

nan, ben finalement ça marche...c'était juste une faute de frappe (une lettre a été effacée lol)
merci