lancer macro powerpoint par excel

[ouioui_cmoi]

Bonjour, je voudrais appeler une macro ppt par excel.
Je savais le faire si j connaissais le nom du répertoire à la main; mais je vais vous coller mon code :

Public Sub ModifierPresentationExistantedb()
 
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
 
With Application.FileSearch
        .NewSearch
        .LookIn = "G:\"
        .Filename = "DB*.ppt"
        .Execute
        
       Nombre_Fichier = .FoundFiles.Count
       
       For Each Fichier In .FoundFiles
       
      
        If Fichier = "G:\DB " & Format(Now, "yyyy - mm - dd") & "1.ppt" Then
        Fichier1 = Fichier
        ElseIf Fichier = "G:\DB " & Format(DateAdd("d", -1, Now), "yyyy - mm - dd") & "1.ppt" Then
        Fichier1 = Fichier
        ElseIf Fichier = "G:\DB " & Format(DateAdd("d", -2, Now), "yyyy - mm - dd") & "1.ppt" Then
        Fichier1 = Fichier
        ElseIf Fichier = "G:\DB " & Format(DateAdd("d", -3, Now), "yyyy - mm - dd") & "1.ppt" Then
        Fichier1 = Fichier
              End If
       Next
       If Fichier1 = "" Then
       MsgBox ("Fichier DB non trouvé")
       GoTo fin
       End If
       
End With
 
Set PptDoc = PptApp.Presentations.Open(Fichier1)
With PptDoc
 
 
PptDoc.Application.Run "Fichier1!SuppressionObjet"
end with
end sub
 
 

Voila , je sais que si je connais l'adresse il faut mettre:

PptDoc.Application.Run "'G:\DB 2008 - 04 - 091.ppt'!SuppressionObjet"
 

Mais avrec ma variable fichier1, je n'arrive pas à lancer ma macro ppt...
Si quelqu'un pouvait me dire comment faire...
merci d avance

[Philippe JOCHMANS]

Bonjour

Je n'ai pas regardé tout ton code, mais ici

 
PptDoc.Application.Run "Fichier1!SuppressionObjet"

Fichier1 étant une variable, il faut que tu la sortes de la chaine, essayes déjà cela pour voir

PptDoc.Application.Run  Fichier1 & "!SuppressionObjet"
 

Starec

[ouioui_cmoi]

ouep ca marche
merci beaucoup