Bonjour
Je voudrais ouvrir un fichier powerpoint par excel…
J’ai le code :
Où range(B7) est une date
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")
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
Partager