Problème librairie Office 2007 et Office 2016

Enshuk -  
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. 

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

Réponse 1 / 2
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
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
Réponse 2 / 2
Enshuk
 
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 8437 Statut Contributeur 729
 
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