Boucler sur tous les PPT ouverts

Hello le forum,

Savez-vous comment on boucle sur les PPT ouverts ???

j'ai essayé plusieurs façons mais ça ne fonctionne pas ...

ERREUR 438 avec ces 2 façons :

With Application
    For Each w In .Presentations
        w.Close
    Next w
    .Quit
End With

With Application.Presentations
For i = .Count To 1 Step -1
    .Item(i).Close
Next
End With

Merci.

R@g

bonjour,

une proposition

Sub aargh()
    Dim t()
    np=Application.Presentations.Count
    redim t(1 to np)
    For i = 1 To np
        t(i) = Presentations(i).Name
    Next i
    For i = 1 To np
        If t(i) <> ActivePresentation.Name Then
            Presentations(t(i)).Close
        End If
    Next i
End Sub

Hello,

J'ai une erreur 438 sur cette ligne

np = Application.Presentations.Count

BOnjour,

ta macro se trouve bien dans un document powerpoint ?

Ah non autant pour moi je n'ai pas précisé

Elle est dans excel et j'ouvre des présentations ppt.

Merci.