Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Version de Microsoft Word Object Library

Version de Microsoft Word Object Library

15 réponses
Avatar
Roland Miller
Bonjour,

J'ai un souci. Je dois utiliser la r=C3=A9f=C3=A9rence Microsoft Word Objec=
t Library. J'ai Office 2016 et alors la r=C3=A9f=C3=A9rence coch=C3=A9e est=
Microsoft Word 16.0 Object Library.

Pour l'activer je suis aller dans VBA, Outils, R=C3=A9f=C3=A9rences.

Mais si l'usager a la version 2010 par exemple =E2=80=A6 =C3=A7a plante =C3=
=A0 l'ouverture car il alors Microsoft Word 14.0 Object Library =E2=80=A6 =
qui n'est pas coch=C3=A9.

Y aurait-il un moyen d'=C3=A9viter cette erreur ou de manuellement l'active=
r =E2=80=A6 sans =E2=80=A6 aller dans VBA?

Merci =C3=A0 l'avance.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Roland Miller
Hum …
Peut-être que je fais une erreur?
Dans mon fichier … je vais dans le projet VBA et je vais dans Outil s, Référence et je coche manuellement la case Microsoft Word 16.0 Object Library.
Ce qui se produisait … est que sur certains ordis je crois avec Exc el 2013 … à l'ouverture ça plantait avec une erreur de co mpilation.
J'ai alors ajouté le code ci-dessous dans le Workbook_Open.
Mais … sur ces mêmes ordis ça plante encore. Devrais-je a ucunement avoir la case de cochée au départ? Ou?
Merci à l'avance.
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromGuid _
GUID:="{00020905-0000-0000-C000-000000000046}", Major:=8, Minor: =7
Avatar
Roland Miller
Bonjour,
Je dois faire quelque chose de pas OK.
Que sur des ordis avec Excel 2010 et 2013 ça ne fonctionne pas. Dans l e Workbooks.open il y a le code ci-dessous. Autrement que de manuellement a ller la cocher … je n'y arrive pas. Mais avec Excel 2016 … aucun problèmes???
ThisWorkbook.VBProject.References.AddFromGuid _
GUID:="{00020905-0000-0000-C000-000000000046}", Major:=8, Minor: =7
Avatar
Péhemme
Bonsoir,
En attente de Denis qui saura répondre avec précision à ta question ;
j'ai sur mon ordi W7 - Office 2010 :
pour Word 2010, description :
Microsoft Office 14.0 Object Library
le Guid est :
{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}
Major : 2
Minor : 5
Ceci est sans aucune garantie de ma part.
Bonne soirée
Michel
"Roland Miller" a écrit dans le message de groupe de discussion :
Bonjour,
Je dois faire quelque chose de pas OK.
Que sur des ordis avec Excel 2010 et 2013 ça ne fonctionne pas. Dans le
Workbooks.open il y a le code ci-dessous. Autrement que de manuellement
aller la cocher … je n'y arrive pas. Mais avec Excel 2016 … aucun
problèmes???
ThisWorkbook.VBProject.References.AddFromGuid _
GUID:="{00020905-0000-0000-C000-000000000046}", Major:=8, Minor:=7
Avatar
MichD
Le 21/03/20 à 16:17, Roland Miller a écrit :
Bonjour,
Je dois faire quelque chose de pas OK.
Que sur des ordis avec Excel 2010 et 2013 ça ne fonctionne pas. Dans le Workbooks.open il y a le code ci-dessous. Autrement que de manuellement aller la cocher … je n'y arrive pas. Mais avec Excel 2016 … aucun problèmes???
ThisWorkbook.VBProject.References.AddFromGuid _
GUID:="{00020905-0000-0000-C000-000000000046}", Major:=8, Minor:=7

Bonjour,
A ) Est-ce que l'application est installée sur cet ordinateur? Si elle
est absente, on ne peut pas charger la référence?
B ) Afin de vérifier les propriétés de la référence Word sur
l'ordinateur ayant Excel 2010 ou 2013,
1 - ajoute manuellement la référence Word dans un projetVBA d'un
fichier Excel
2 - Exécute la procédure suivante :AfficherLesGuids_Propriétés
3 - Vérifie si les propriétés de la référence Word correspond bien à
ceci : GUID:="{00020905-0000-0000-C000-000000000046}", Major:=8, Minor:=7
Dans le cas où tu obtiens des propriétés différentes, modifie la ligne
de code dans la procédure Workbook_Open de ce message.
'------------------------------
Sub AfficherLesGuids_Propriétés()
Dim X As Integer, Sh As Worksheet
Dim NbRef As Integer
Set Sh = Worksheets.Add(After:=Sheets(Sheets.Count))
On Error Resume Next
With Sh
.Name = "GUIDS"
.Cells(1, 1) = "Nom de la bibliothèque"
'Son appellation dans la fenêtre Reférences
.Cells(1, 2) = "Description"
.Cells(1, 3) = "Guid"
.Cells(1, 4) = "Major"
.Cells(1, 5) = "Minor"
.Cells(1, 6) = "Chemin complet"
With .Range("A1:F1")
.Font.Bold = True
.Font.Size = 12
End With
With Sh.Parent.VBProject.References
NbRef = .Count
X = 2
For a = 1 To NbRef
Sh.Cells(X, 1) = .Item(a).Name
Sh.Cells(X, 2) = .Item(a).Description
Sh.Cells(X, 3) = .Item(a).GUID
Sh.Cells(X, 4) = .Item(a).Major
Sh.Cells(X, 5) = .Item(a).Minor
Sh.Cells(X, 6) = .Item(a).fullpath
X = X + 1
Next
End With
.Range("A1").CurrentRegion.EntireColumn.AutoFit
End With
End Sub
'------------------------------
Modifie la procédure du ThisWorkbook comme ceci en adaptant les
propriétés pour chacune des versions 14. 15. 16
'------------------------------
Private Sub Workbook_Open()
Dim Refs As Object, Ref As Object
On Error Resume Next
With ThisWorkbook
Set Refs = .VBProject.References
For Each Ref In Refs
If Ref.IsBroken Then
Refs.Remove Ref.Name
End If
Next
Select case Val(Application.Version)
Case 14 'Excel 2010
.VBProject.References.AddFromGuid _
"{00020905-0000-0000-C000-000000000046}", 8, 4
Case 15 'Excel 2013
.VBProject.References.AddFromGuid _
"{00020905-0000-0000-C000-000000000046}", 8, 4
Case 16 'Excel 2016
.VBProject.References.AddFromGuid _
"{00020905-0000-0000-C000-000000000046}", 8, 4
End Select
End With
End Sub
'------------------------------
Par curiosité, est-ce que toues les installations ont été installées de
la même manière? Sur le lecteur "C" de l'ordinateur?
MichD
Avatar
Roland Miller
Bonjour,
J'ai pu tester avec un Windows 10 et Office 2013 (15.0)
La seule différence est que cette fois-ci c'est Minor:=6
Donc selon ce que j'ai expérimenté.
2016 = Minor:=7
2013 = Minor:=6
2010 = Minor:=5
Je ne sais si par exemple c'est un autre windows ça sera différen t ou si … suite à une MAJ de Office … ça change e tc. Bref je pourrai voir avec le temps.
Encore Merci.
1 2