Discussion :

[gegadin]

Bonjour

Grâce à vous, j'ai créé une macro permettant à plusieurs utilisateurs ouvrant un fichier Word (en lecture seule) de mettre à jour certain champs avec un même fichier Excel (en lecture seule aussi, mais l'utilisateur peut le "modifier" avec des listes déroulantes).

Ca marche bien 90% des fois. Mais les 10% restants il y a quelques dysfonctionnements.

Voila une partie du code

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub MAJLiaisons()
 
'Procédure à suivre si erreur
 
Dim xlApp As Object
Dim xlWB As Object
 
Set xlApp = CreateObject("Excel.Application")
 
On Error Resume Next
 
Set xlApp = GetObject(, "Excel.Application")
 
 
'Génération d'une erreur si le fichier est fermé
 
Set xlWB = xlApp.Workbooks("Champs automatiques.xls")
 
On Error GoTo 0 'Permet de ne pas tenir compte d'une erreur éventuelle
 
 
'Ouvrir le classeur s'il est fermé
 
If xlWB Is Nothing Then 'Classeur fermé
 
xlApp.AskToUpdateLinks = False 'Désactivation de la mise à jour automatique
 
Set xlWB = xlApp.Workbooks.Open("H:\OBLIGS\Breve\Modeles\Champs automatiques.xls", ReadOnly:=True)
 
xlApp.Visible = True
 
End If
 
ActiveDocument.Fields.Update
 
End sub

Il arrive que quand Excel soit déjà ouvert, il se ferme systématiquement, donc impossible d'ouvrir le fichier...je ne sais pas pourquoi.

Sinon parfois le fichier Excel s'ouvre, mais la fenêtre ne s'active pas. Problème pour l'utilisateur qui a déjà plusieurs autres fenêtres ouvertes, il a l'impression qu'il ne se passe rien.

Autre problème : le fichier Excel ne se lance pas. Word commence à mouliner (la barre de mise à jour se remplit) mais il ne se passe rien.

Des idées ? Parce que je suis un peu perdu là...

[ouskel'n'or]

J'ai testé cette parti qui fonctionne moyennant quelques modifs sur VBA 2003

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
16
17
Sub MAJLiaisons()
 
'Procédure à suivre si erreur
 
Dim xlApp As Object
Dim xlWB As Object
 
Set xlApp = CreateObject("Excel.Application")
 
'Génération d'une erreur si le fichier est fermé ---> NON !
'On Error Resume Next
 
Dim chemin As String
    chemin = "H:\OBLIGS\Breve\Modeles\"
    Set xlWB = xlApp.Workbooks.Open(FileName:=chemin & "Champs automatiques.xls")
 
    'On Error GoTo 0 'Permet de ne pas tenir compte d'une erreur éventuelle

Avec ton code tu n'aurais pas simplement oublié le chemin ?

[gegadin]

Je ne suis pas sur de comprendre...tu veux dire que j'aurais du mettre le chemin lors de cette instruction ?

'Génération d'une erreur si le fichier est fermé

Set xlWB = xlApp.Workbooks("Champs automatiques.xls")

Est-ce que je dois aussi mettre le chemin de l'application Excel ?

L'idée de cette macro est notamment de ne pas ouvrir le fichier Champs automatiques s'il est déjà ouvert.