Problème avec OleDocumentProperties

**poseidonsr** · 20/10/2022, 16h47

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

**jurassic pork** · 20/10/2022, 17h17

hello,
tes versions d'Excel sont en 32 bits ou 64 bits ?
Ami calmant, J.P

**poseidonsr** · 20/10/2022, 17h34

Hello,

Les deux versions sont en 64 bits. J'ai installé cette dll : https://www.codeproject.com/Tips/1118708/Bit-Application-Cannot-Use-DSOfile"]

**jurassic pork** · 20/10/2022, 17h43

vois-tu dans l'éditeur VBA de ton Excel 2019 et de ton Excel 2016 dans les références, la référence à cette DLL ?

**poseidonsr** · 20/10/2022, 17h52

Oui la référence existe et est cochée. Le code ne me renvoie pas d'erreur, la variable dso vaut nothing sur Excel 2016.

**jurassic pork** · 20/10/2022, 18h15

tu peux jeter un oeil

ici

et quel type de propriétés veux-tu traiter ?

**poseidonsr** · 20/10/2022, 22h32

Merci pour tes réponses je regarde ça maintenant et je te tiens au courant.
Des propriétés personnalisées. J'ai créé l'une de ces propriétés car l'utilisateur va pouvoir charger un classeur existant. Je teste si cette propriété existe et si elle a la bonne valeur pour m'assurer que c'est un classeur valide pour mon programme.

**poseidonsr** · 20/10/2022, 23h35

Alors toutes les DLL sont installées comme il faut. C'est vraiment bizzard.

**poseidonsr** · 20/10/2022, 23h45

Par contre je t'ai dit une bêtise. Mes windows sont en 64 bits sur les deux ordinateurs mais excel 2019 est la version 64, excel 2016 (ou mon programme ne fonctionne pas) est en 32. J'ai maintenant un nouveau problème. J'ai supprimé toutes les références à DSO de mon projet sur la version 2016 en 32. J'ai supprimé les DLL en 64. Ma référence apparait toujours dans la liste malgré le fichier qui n'existe plus. (Et crée une erreur de chargement de DLL si je remet une référence à DSO) et du coups je n'arrive pas à utiliser la DLL 32. Tu aurais une idée stp ?

**jurassic pork** · 21/10/2022, 08h38

Hello,

Envoyé par poseidonsr

Des propriétés personnalisées. J'ai créé l'une de ces propriétés car l'utilisateur va pouvoir charger un classeur existant. Je teste si cette propriété existe et si elle a la bonne valeur pour m'assurer que c'est un classeur valide pour mon programme.

Pour lire ce genre de propriétés dans Excel tu n'as pas besoin d'utiliser les OleDocumentProperties, il existe une collection qui permet de lire les propriétés personnalisées d'un classeur, il s'agit de CustomDocumentProperties

Exemple d'utilisation :

Code :

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

1
2
3
4
5
6
Sub LirePropriétésPerso()
For Each property In ActiveWorkbook.CustomDocumentProperties
   Debug.Print property.Name + " : " + property.Value
Next
Debug.Print ActiveWorkbook.CustomDocumentProperties("PropriétéPerso").Value
End Sub

PropriétéPerso : valeurPerso
valeurPerso

Ami calmant, J.P

**poseidonsr** · 21/10/2022, 10h39

Oui je n'ai pas été assez précis dans la réponse à ta question. J'utilise aussi dso pour lire ces propriétés de classeurs fermés pour créer une liste où l'utilisateur pourra sélectionner le classeur à partir duquel il pourra prendre les données. En fait, je crée un classeur où je pourrais noter des mesures que j'ai pris sur un chantier. Le but est de pouvoir partager facilement ces données entre collègues. Du coups, j'ai créé (pas Access sur pc d'entreprise) un modèle de classeur excel qui sert de bdd ou j'inscris ces données. Ensuite, je peux les exporter sur le serveur de l'entreprise et c'est la que mes listes entrent en jeu. Alors la question est est-ce que dso permet réellement de lire les propriétés d'un classeur fermé ou est-ce qu'en réalité il ouvre le classeur et ça revient au même si je le fais moi même et que j'utilise la fonction dont tu m'as parlé ?

**jurassic pork** · 21/10/2022, 10h48

N'importe comment pour lire le contenu du fichier il est obligé de l'ouvrir. Bien sur c'est moins lourd qu'avec excel mais c'est quand même une ouverture de fichier.

**poseidonsr** · 21/10/2022, 10h51

Super merci beaucoup. Je pense que pour ce genre de programme je peux me permettre que ce soit un peu plus lent. Du coups je pense que je vais ouvrir mes classeurs et tester la propriété directement sans dso.
Merci beaucoup pour ton aide.