Bonjour,

J'ai ce bout de code qui fonctionne avec excel 2019 mais qui pose problème avec excel 2016 sur un autre appareil. Effectivement, l'initialisation de "dso" ne fonctionne pas sur excel 2016. Si quelqu'un connait une solution ça serait génial.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
        Dim dso As OleDocumentProperties
 
On Error Resume Next
        'Set dso = CreateObject("DSOFile.OleDocumentProperties")
        Set dso = New DSOFile.OleDocumentProperties
On Error GoTo 0
 
        If dso Is Nothing Then
            MsgBox "Ne s'initialise pas", VbOkOnly, ""
            Exit Sub
        End If