Problème librairie Office 2007 et Office 2016
Enshuk
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
J'ai conçu une macro sous Windows 10 qui fonctionne avec la librairie : "Microsoft Word 16.0 object library" mon souci étant que cette version n'est pas la même sur les PC qui tourne avec W7 et Office 2007, donc la macro ne peut pas fonctionner.
Je me demande donc s'il y a un moyen de contourner ses 3 lignes de codes ou de les écrire différemment.
Merci d'avance pour votre aide,
J'ai conçu une macro sous Windows 10 qui fonctionne avec la librairie : "Microsoft Word 16.0 object library" mon souci étant que cette version n'est pas la même sur les PC qui tourne avec W7 et Office 2007, donc la macro ne peut pas fonctionner.
Je me demande donc s'il y a un moyen de contourner ses 3 lignes de codes ou de les écrire différemment.
Dim wrdApp As Word.Application Dim cnvWrdPrf As FileConverter objWord.Selection.Collapse Direction:=wdCollapseStart
Merci d'avance pour votre aide,
Configuration: Windows / Chrome 78.0.3904.97
2 réponses
-
Bonjour,
Pour que le programme fonctionne, il faut demander à l'utilisateur de cocher la référence à la library sur sa machine
https://docs.microsoft.com/fr-fr/office/vba/language/how-to/check-or-add-an-object-library-reference
Tous les tuto te disent cela!
Voir:
Définition de la référence VBA Word 9.0
http://www.info-3000.com/vbvba/automation.php
-
Merci pour ta réponse.
Oui mais justement vu qu'ils n'ont pas la même version d'Office,
Pour eux la librairie est inexistante.
C'est pour cela que j'essaye de trouver une autre solution.-
Pour eux la librairie est inexistante.
oui mais ils ont une autre library avec laquelle ton programme fonctionnera!
Sinon essaye ceci:
Dim MonBeauWord As Object Set MonBeauWord = CreateObject("Word.Application") ' Création d'un nouveau document : MonBeauWord.Documents.Add ' Ecriture d'un petit texte dans ce nouveau document : MonBeauWord.Selection.TypeText "Test de fonctionnement" ' Sauvegarde de ce document ainsi créé : MonBeauWord.ActiveDocument.SaveAs "C:\Users\LePivert\Documents\Simple test.doc" 'adapter le chemin ' Fermeture de ce document : MonBeauWord.ActiveDocument.Close Set MonBeauWord = Nothing
@+ Le Pivert
-
