Problème librairie Office 2007 et Office 2016

Fermé
Enshuk - 12 mars 2020 à 11:17
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 12 mars 2020 à 11:56
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.

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
A voir également:

2 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 12 mars 2020 à 11:35
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

0
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.
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 12 mars 2020 à 11:59
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
0