conditions de date dans ouverture fichier

Version imprimable

13/03/2008, 16h06
ouioui_cmoi

conditions de date dans ouverture fichier

Bonjour
Je voudrais ouvrir un fichier powerpoint par excel…
J’ai le code :

Code:

Set PptDoc = PptApp.Presentations.Open("P:\kfw " & Format(Worksheets("actu ppt").Range("B7"), "yyyy - mm - dd") & "essai.ppt")

Où range(B7) est une date
Est il possible de faire en sorte que, si le fichier n’existe pas, il cherche à la date en B7 + 1jour,
Et s’il ne trouve pas, à la date B7+2jours, et ainsi de suite, style jusqu’à 5 jours…

Merci de votre réponse
13/03/2008, 16h35
ouskel'n'or

Toujours avec dateAdd -> :f1: Tu auras le détail des paramètres utilisables ;)
13/03/2008, 16h36
ouioui_cmoi

lol
merci, ok, j vais regarder ça ;)
j vous tiens au courant

mais en fait, ce qui me pose surtout probleme, c'est écrire la condition :
"dans le cas ou il ne trouve pas, alors chercher"... (condition négative)
13/03/2008, 16h57
ouskel'n'or

Tout dépend du code utilisé pour lister tes fichiers... Donc... si tu voulais bien... s'il te plait...
Et même s'il ne te plait pas... pour qu'on puisse t'aider ;)

PS - Tu as compris, j'espère, qu'on veut bien t'aider mais qu'il existe plusieurs codes pour lister un répertoire :mouarf:

y'a pas de pb, mais mon code est assez long...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Sub ModifierPresentationExistantekfw()
 
 
 
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
 
'refer
 
Set PptDoc = PptApp.Presentations.Open("P:\kfw " & Format(Worksheets("actu ppt").Range("B7"), "yyyy - mm - dd") & "essai.ppt")
With PptDoc
'    .SaveAs ("P:\kfw\kfw " & Format(Worksheets("actu ppt").Range("B7"), "yyyy - mm - dd") & "essai.ppt")
'    End With
'PptDoc.Close
'Kill "P:\kfw " & Format(Worksheets("actu ppt").Range("B7"), "yyyy - mm - dd") & "essai.ppt"
'Set PptDoc = PptApp.Presentations.Open("P:\kfw\kfw " & Format(Worksheets("actu ppt").Range("B7"), "yyyy - mm - dd") & "essai.ppt")
'With PptDoc
 
 
 
   Worksheets("actu ppt").Activate
    a = 21
    Do While Cells(a, 12).Value <> ""
        a = a + 1
    Loop
    a = a - 1
 
    'tableau1
 
    ActiveSheet.Range("L21:O" & a).Copy
 
  PptDoc.Slides(1).Shapes("kfwTableau1").Delete
 
   .Slides(1).Shapes.PasteSpecial ppPasteEnhancedMetafile
 
 
    With .Slides(1).Shapes(.Slides(1).Shapes.Count)
        .Name = "kfwTableau1"
        .LockAspectRatio = msoFalse
        .Width = 180
        .Height = 190
        .Left = 400
        .Top = 90
    End With
 
'tableau 2
    a = a + 2
    b = a
     Do While Cells(a, 12).Value <> ""
        a = a + 1
    Loop
    a = a - 1
ActiveSheet.Range("L" & b & ":O" & a).Copy
 
   PptDoc.Slides(1).Shapes("kfwTableau2").Delete
 
   .Slides(1).Shapes.PasteSpecial ppPasteEnhancedMetafile
 
 
    With .Slides(1).Shapes(.Slides(1).Shapes.Count)
        .Name = "kfwTableau2"
        .LockAspectRatio = msoFalse
        .Width = 175
        .Height = 150
        .Left = 580
        .Top = 90
 
    End With
 
 
 
    .Save
 
 
 
    '.SaveAs ("P:\kfw " & Format(Now, "yyyy - mm - dd") & "essai.ppt")
'Worksheets("actu ppt").Range("B7") = Format(Now, "yyyy-mm-dd")
End With
'PptDoc.Close
'PptApp.Quit
 
 
End Sub

et le fichier s'appelle kfw 2008 - 03 - 12essai pour le moment...
c'est ça que tu voulais savoir?

en fait, le truc, c'est que on a un fichier powerpoint qui s'actualise par excel, et qui sera modifi", un deux, trois quatre ou cinq jours plus tard, (lancé le lundi ou mardi et modifié jusque à la fin de la semaine, avec nom du fichier renommé avec date de dernière modification.
Et, je dois récupérer cette date avec ma macro excel

Pas du tout ! :mouarf:
Là, tu ne "visites" pas un répertoire, tu peux te tromper de nom de fichier, ça n'en chercheras pas un autre :(
Je voyais une boucle sur les fichiers du répertoire et si le fichier n'est pas trouvé, alors on modifie le nom et on fait une nouvelle recherche.
Je viens de retrouver ici le code que je t'avais mis, c'est une solution.
Mais pour tester simplement l'existence d'un fichier dans un répertoire, tu as plus simple en utilisant Dir
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Do while Result = "" Result = Dir(Repertoire & NomFichier) If result = "" then if not msgbox ("cépaça ! Modifie ton nom de fichier" & vbrc & "Continuer la recherche ?",vbyesno) = vbyes then exit sub ' ou do else 'Modification du nom du fichier 'et la boucle continue endif else msgbox "céça !" Endif loop
écrit au fil de la plume, te reste plus qu'à tester si je n'ai pas glissé une erreur ;)

13/03/2008, 17h34
ouioui_cmoi

ok, je vais regarder ça d'un peu plus près...comme vous avez pu le remarquer, je suis quasi-débutant en vba, mais je dois m débrouiller lol
donc je laisse la question ouverte, jusqu'à ce que j'ai bien compris le code et que je l'ai testé

d'ailleurs j'ai une question
c'est possible de rechercher dans le dossier, les fichiers comprenant par exemple "kfw",sachant que les fichiers sont du genre kfw 2008 - 03 - 12.xls?

Salut,

j'ai ca :
Code:

1 2 3 4 5 6 7 8 9 10 11 With Application.FileSearch .NewSearch .LookIn = "c:\fichier Excel\" .Filename = "*.xls" .Execute Nombre_Fichier = .FoundFiles.Count For Each Fichier In .FoundFiles 'Traitement / recherche dans les dossiers trouvés Next End With
"*.xls" va chercher tous les fichiers Excel du répertoire.

"kfw*" va chercher tous les fichiers qui commencent par kfw du répertoire

"*kfw*" va chercher tous les fichiers qui contiennent kfw

"kfw*.*" va chercher tous les fichiers qui commencent par kfw et qui ont n'importe quel extension

"kfw*.xls" va chercher tous les fichiers Excel qui commencent par kfw

"kfw 2008*.xls" va chercher tous les fichiers Excel qui commencent par kfw 2008

etc etc :p

++

13/03/2008, 18h03
ouioui_cmoi

oh merci
c genial comme fonction! lol
13/03/2008, 18h22
ouskel'n'or

Citation:

Envoyé par ouioui_cmoi

oh merci
c genial comme fonction! lol

Tu te fous de qui ? C'est celle que je t'avais mise là :evilred: et que je t'ai citée ici
13/03/2008, 18h43
ouioui_cmoi

tout d'abord, j'ai vu que la fonction est la même lol
je vous remerciai tous les 2!!!
c juste pour l'histoire des "*" pour faire des recherches plus générales ...

Citation:

"*.xls" va chercher tous les fichiers Excel du répertoire.

"kfw*" va chercher tous les fichiers qui commencent par kfw du répertoire

"*kfw*" va chercher tous les fichiers qui contiennent kfw

"kfw*.*" va chercher tous les fichiers qui commencent par kfw et qui ont n'importe quel extension

"kfw*.xls" va chercher tous les fichiers Excel qui commencent par kfw

"kfw 2008*.xls" va chercher tous les fichiers Excel qui commencent par kfw 2008

etc etc :p

++

Je ne savais pas que ça existai...
Desolé si je t'ai induit quelque vexation que ce soit
et merci encore pour tes codes!!!

Au fait ça marche du tonnerre cette fonction j apprend trop de chose chaque jour!lol
14/03/2008, 00h35
ouskel'n'or

Je ne suis pas vexé quand on ne lit pas ce que je mets, je suis furieux ! :evilred:
Mais rassure toi, je n'ai encore jamais mordu personne :mouarf: