[WD-2010] Problème de lenteur a l'ouverture dû à des liaisons externes

[jemilie]

Bonjour,

C'est mon premier post donc j'éspère ne pas être trop vague.
Je vous lis déjà depuis un moment et je me suis servi de beaucoup de vos échanges pour apprendre et développer certains de mes outils de travails mais voilà que depuis quelques temps déjà je bloque sur un problème (depuis le passage à Office 2010).

J'ai un rapport modèle WORD qui a l'ouverture déclenche des boîtes de dialogues (via VBA) dont certaines me permettent de récupérer différents tableaux crées à partir de différents Excels dont les noms sont complétement aléatoires (copier coller wdPasteBitmap avec liaison). L'ensemble des codes fonctionne correctement. Mon soucis est que lorsque je réouvre le Word créé, j'ai l'impression qu'il cherche automatiquement à mettre à jour les laisons excels et du coup si les excels sont fermés j'ai une lenteur à l'ouverture proportionnelle au nombre de tableaux liés. (bien plus long que l'exécution de la macro initiale)

J'ai essayé par du code de sauter cette étape :
du genre :

Code :

1
2
3
Sub AutoOpen()
ActiveDocument.Fields.Locked = True
End Sub

Mais rien ne marche

Si quelqu'un a la solution, merci d'avance

[Heureux-oli]

Salut,

Te liaisons doivent-elles impérativement être dynamiques ?

Auquel cas, on peut toujours faire un Unlink sur les champs.

[jemilie]

Qu'entends tu par dynamique?
Si tu veux dire par là, liaisons existantes j'ai déjà contourné le problème dans un premier temps en collant mes tableaux excels sans liaisons mais cela reste temporaire j'aimerais pouvoir remettre ces liaisons qui fonctionnait trés bien sous 2003.

Pour la petite histoire, sous 2003 j'utilisais wdpasteoleobject pas de soucis puis au passage sous 2010, le temps d'execution était beaucoup plus lent et en fonction du nombre de tableau la macro buggé, je suis donc passé à un collage métafichier mais là même problème. Dans les deux cas lenteur à l'ouverture du Word en fonction du nombre de tableaux liés.

J'ai remanié et reremanié mes codes pour trouver une solution et j'en suis arrivé au collage wdPasteBitmap avec liaison pour lequel le temps d'execution est trés bon, il me reste donc ce problème de lenteur à l'ouverture.
Si en appliquant unlink, je casse les liaisons, j'aurais l'impression de revenir à la case départ

[jemilie]

Mon rmodèle est articulé grossièrement de cette manière.

A l'ouverture du fichier
1er formulaire dans lequel l'utilisateur va renseigner plusieurs textbox (reférence, adresse etc...)
A la fin de ce 1er formulaire, j'enregistre déjà :

Code :

1
2
3
4
5
6
7
ChangeFileOpenDirectory ThisDocument.Path
ActiveDocument.SaveAs2 filename:=refrapport + ".docm", FileFormat:= _
        wdFormatXMLDocumentMacroEnabled, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False, CompatibilityMode:=0
ActiveDocument.Fields.Update

Puis un 2nd formulaire dans lequel l'utilisateur va rechercher les tableurs excels à associer ainsi que les tableaux à insérer, l'insertion se fait de cette manière :

Code :

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
 
If UserForm2.CheckBox69 = False Then GoTo suite
If UserForm2.CheckBox69 = True Then
If UserForm2.TextBox2 = "" Then
MsgBox "Veuillez selectionner le fichier excel : excel1", vbExclamation
Exit Sub
End If
End If
 
ActiveDocument.Activate
Wordorigine = ActiveDocument.Name
 
cherche (nomclasseur2)
If ouvert = 0 Then
ChDir nomclasseur2
Workbooks.Open (UserForm2.TextBox2.Value)
End If
 
If UserForm2.CheckBox1 = True Then
If ActiveDocument.Bookmarks.Exists("tableau1") = True Then
resultat = 1
Selection.GoTo What:=wdGoToBookmark, Name:="tableau1"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Windows(UserForm2.TextBox2).Activate
Range("tableau1").Copy
Windows(Wordorigine).Activate
Selection.PasteSpecial Link:=True, DataType:=wdPasteBitmap, Placement:=wdInLine, DisplayAsIcon:=False
Vide_PP

....

Si ca peut aiguiller

[Heureux-oli]

Salut,

Une idée en passant.

Peut-être en ajoutant les feuille Excel de cette manière ?

Code :

1
2
3
    Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.12", FileName _
        :="C:\Users\Olivier-Portable\Documents\Excel\Adresses IP.xlsx", _
        LinkToFile:=True, DisplayAsIcon:=False

Ou encore, mais pas simple, utiliser un champ database pour ajouter le sdonnées, du moins si elles sont dans une feuille.

[jemilie]

Salut,

Merci de ton aide mais près quelques essais, cela ne résouds pas le problème.
(Je ne me suis pas encore lancé dans l'utilisation de champ database, ca m'a l'air trop pour mes petites compétances ...)

Je ne suis pas sur que le problème vienne forcément du code.
Pourquoi Word cherche à ouvrir les sources liées pendant son ouverture???
N'y a t'il pas moyen de le configurer tout simplement.

[Heureux-oli]

Salut,

J'ai pas d'idée, n'ayant pas de problème similaire.

Te fichiers Excel de quel format sont-ils ?

[jemilie]

Salut,

Mes fichiers Excels sont aux formats .xlsm