Discussion :

[familledacp]

Bonjour à tous et à toutes

Je cherche à ouvrir un fichier word depuis excel, avec un code qui fonctionne pourtant bien dans d'autres applis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CommandButton1_Click()
Dim Dossier, NomFich As String
Dossier = Workbooks("Plaquette.xls").Worksheets("Plaquette").Range("B4").Value
NomFich = Workbooks("Plaquette.xls").Worksheets("Plaquette").Range("B5").Value
 
Const wdStory = 6
Const wdMove = 0
Set Objword = CreateObject("Word.Application")
 
Objword.Visible = True
Set objdoc = Objword.Documents.Open("e:\Etat réserves non levées.doc")
 
End Sub

Au final, quand je lance le code, j'ai un message d'erreur "Erreur de compilation - variable non définie" pour "Objword"
J'ai pourtant bien coché sur "Microsoft Word 12.0...." dans Outils/Références

Je ne comprends pas ....

Merci de votre aide

Daniel S.

[Invité]

tu es sans doute et c'est bien en option explicite.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub CommandButton1_Click()
Dim Dossier, NomFich As String
Dossier = Workbooks("Plaquette.xls").Worksheets("Plaquette").Range("B4").Value
NomFich = Workbooks("Plaquette.xls").Worksheets("Plaquette").Range("B5").Value
 
Const wdStory = 6
Const wdMove = 0
 
Dim  Objword
Set Objword = CreateObject("Word.Application")
 
Objword.Visible = True
Set objdoc = Objword.Documents.Open("e:\Etat réserves non levées.doc")
 
End Sub

[Kimy_Ire]

Salut familledacp,

Pour moi Set WordApp = CreateObject("Word.Application") sont des Dim WordApp As Word.Application.

Et les Set WordDoc = WordApp.Documents.Open(WordChem) sont des Dim WordDoc As Word.Document.

As-tu essayé de déclarer ton "objdoc" ?

Je te propose d'étudier ça.

Cordialement,
Kimy

EDIT : C'est ce à que je pensais rdurupt !

[Invité]

non en Variant c'est mieux ça te permets d'utiliser la bonne version suivant les PC et ne pas déclarer les références!

[Kimy_Ire]

Il y a plusieurs version en fonction des PC ???

Je ne savais pas !

[Invité]

mois j'ai une disparité de version pour les PC de ma boite 2003 sous xp, 2007 xp et win7, 2013 64Bit. une application n'est pas obligé de tourner sur le même PC.

dans mes module j'utilise le moins possible le références je les distribue fréquemment.
les référence sont lier à la version sur la machine de développement et à un emplacement bien précis: programme file pour les machine 32, Programme file (x86) ou Programme sur 64. le chemin la version sont embarqué dans le fichier Excel.

[Marc-L]

Michael, si la référence est activée donc déclaration par Dim en liaison anticipée (Early Binding)
sinon déclaration tardive (Late Binding) via Set …

Les fiches VBA - Comprendre : Early ou Late Binding …

Développement en liaison anticipée mais livraison en liaison tardive …

[Kimy_Ire]

Marc-L,

Bien lu et compris la différence entre Early et Late Binding.
Comme expliqué dans le lien que tu m'as donné (et évident), le early binding permet d’allouer l'espace mémoire idéal à la variable déclarée (+ auto-complétion) et donc d'accélérer le code.

Ce que j'ai un peu plus de mal à comprendre, c'est l'intérêt du Late Binding.

rdurupt parle de l'emplacement des références. Si celles-ci sont déclarées dans les Références - VBAProjects il ne devrait pas y avoir de soucis, si ?

[Marc-L]

Ce que j'ai un peu plus de mal à comprendre, c'est l'intérêt du Late Binding.

En fait tout dépend de la bibliothèque utilisée, de la mobilité de l'applicatif et de l'utilisateur final …

Pour une bibliothèque sans numéro de version comme par exemple Microsoft Scripting Runtime,
peu de risque d'utiliser une déclaration anticipée.

Mais si je développe depuis un ordinateur sous Office 2003 et dans le projet est référencé Outlook ou
Word, bibliothèque en v11, lors de l'utilisation sur un autre ordinateur équipée d'une version Office supérieure,
bibliothèque en v12, la déclaration anticipée coince car pointant toujours sur la v11 inexistante sur cet ordinateur …

La déclaration tardive permet de s'affranchir des versions, incontournable pour un applicatif exécuté
sur différentes versions d'Office dont les utilisateurs n'y connaissent rien en VBA …

Le plus de la déclaration anticipée n'est pas tant au niveau de sa célérité
- franchement avec les ordinateurs récents je ne sens pas de différence -
mais un confort lors du développement avec l'auto-complétion du code par exemple …

[Kimy_Ire]

Ok. Merci pour cet éclairage.

Juste un dernier point pour être sur de bien comprendre :
le cas que tu explicites par rapport au projet référencé initialement en V11 pose soucis dans le cas où c'est le même fichier qui exécute la macro dans une version d'Excel différente (2003 vers 2007 ou plus) ?

[familledacp]

Re bonjour

Merci pour ces réponses ultra-rapides

J'ai résolu le problème en supprimant "option explicit" et cela fonctionne .... Mais rdurupt semble laisser comprendre que ce n'est pas la bonne solution

A bientot

Daniel

[Invité]

oui ce n'est pas bon pour des raisons d’écriture de code.

Code :

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

1
2
MyValeur ="TOTO" 'tu affect une valeur à MyValeur
if MiValeur <>"TOTO" then 'tu test en faisant une faute d’orthographe

l'option explicite t'oblige à déclarer tes variable si tu te trompe dans l'écriture de ta variable Excel te le dit!