Discussion :

[ouioui_cmoi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Toujours avec dateAdd -> Tu auras le détail des paramètres utilisables

[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)

[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

[ouioui_cmoi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Pas du tout !
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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