Discussion :

[cladoo]

Bonjour,

Je souhaite réaliser une opération simple, qui fontionne mais jusqu'àun certain point.. Voilà le principe:

J'ai deux colonnes 'Début' et 'Fin'
Dans chacune de ces colonnes des adresses de blocs sont inscrites, de manière à constituer des ranges, exemple:

Début Fin
A1 B6
A8 B13

etc...

Mon algo copie donc la plage indiquée sur chaque ligne depuis un onglet Excel vers Word. Voici le bout incriminé:

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
Set wordapp = CreateObject("Word.Application")
    Set wordDoc = wordapp.Documents.Open("S:\DataManagement\Programmes\Base_TUCR\Documents_Word\Dsheet.doc")
   
    wordapp.Visible = True  
    wordapp.ScreenUpdating = False

    Sheets("Data_Sheet").Activate
   For Each cell In Sheets("Data_Sheet").Range("Q5:Q100")
    
     If cell.Value = "Oui" Then
        
         ActiveSheet.Range(cell.Offset(0, 1) & ":" & cell.Offset(0, 2)).Select
         Selection.Copy
         wordapp.Selection.PasteExcelTable False, False, False
        wordapp.Selection.TypeParagraph
    End If
   Next

Donc ça fonctionne, sur genre... 30 lignes puis après plantage (Erreur 4198), sur la ligne wordapp.Selection.PasteExcel.

Je tiens à préciser qu'en faisant varier la plage, ce n'est pas toujours la même ligne qui plante, donc a priori ce n'est pas une erreur de saisie d'adresse (mauvaise syntaxe).
Je penche personnellement pour un problème de mémoire ou un truc du genre...

Je suis sous XP Sp2, Excel 2003 et Word 2003 et la référence 'VBA Microsoft Word 11 Object library' est cochée dans mes références...

Des idées?

Merci d'avance!

[SilkyRoad]

bonsoir


Refait un essai en remplaçant

Code :

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

1
2
3
         ActiveSheet.Range(cell.Offset(0, 1) & ":" & cell.Offset(0, 2)).Select
         Selection.Copy
         wordapp.Selection.PasteExcelTable False, False, False

par

Code :

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

1
2
ActiveSheet.Range(cell.Offset(0, 1) & ":" & cell.Offset(0, 2)).Copy
wordDoc.Range.PasteExcelTable False, False, False

bonne soirée
michel

[cladoo]

Bonjour et merci de ta réponse rapide,

malheureusement le problème persiste.. et toujours de la même manière.

J'aurais bien une idée, mais c'est du bricolage... c'est déterminer combien de blocs sont copiés au max, de limiter à ce nombre de blocs, de sauvegarder le fichier word, libérer les variables et la mémoire...
puis rouvrir le fichier enregistré et recommencer du dernier bloc+1 jusqu'à la fin... mais c'est vraiment de la bricole.

Tu as une autre idée?

[SilkyRoad]

bonsoir

en parcourant ce lien, cela pourrait également provenir du collage.

http://support.microsoft.com/kb/275558

tu pourrais faire des essais en testant d'autres types de collage


bonne soirée
michel

[cladoo]

Bonjour, en effet j'ai déjà rencontré le problème du collage en métafichier amélioré. mais là en l'occurence c'est une copie "simple" sans paramètre afin que les tableaux Excel copiés sur Word sont potentiellement modifiables si besoin.

De plus ils préconisent d'utiliser la méthode PasteSpecial de l'objet Selection et pas directement de l'objet à copier (si j'ai bien compris..) c'est effectivement ce que je fais sauf que j'utilise la méthode PasteExcelTable à la place.

Est-ce que tu penses que ça soit possible que la mémoire alouée au presse-papier de Word et/ou Excel soit saturée et ne puisse plus réaliser ce copier/coller.
J'ai tenté de mettre Application.CutCopyMode = False pour vider le presse papier Excel à la fin de chaque boucle de copie.
Mais apparemment cela ne change rien, peut-être que je devrais vider le tampon de mon objet Word également ? (mais je connais pas la syntaxe...)

Le problème est que je suis persuadé que c'est un problème de mémoire (sur le net quelques commentaires en ce sens) mais la mémoire de quoi ? (windows, word, excel ??)

Tes commentaires/idées sont les bienvenus!