Discussion :

[Wololol]

Bonjour,

J'ai un soucis concernant la copie de donnée d'Excel vers Word :

J'ai une fonction qui génère un document Word via le contenu de cellule Excel. Cette fonction copie donc un nombre indéterminé de cellule une par une puis les colle dans mon document Word.

Voici à quoi ressemble la copie d'une cellule (je fais ça avec plusieurs cellules par itération)

Code :

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

1
2
ThisWorkbook.Worksheets("Feuille").Range("F" & i).Copy
S.PasteExcelTable False, True, False

S étant la Selection de mon objet Word.

Cela fonctionne donc, pour un petit nombre de cellule, cependant s'il y a beaucoup de cellule à copier (ce qui va être toujours le cas) cette fonction ne fonctionne pas et me renvoie l'erreur 4198 : La commande à échoué.

Ainsi, ma fonction va, à des moments aléatoires planter, en effet elle peut s'arrêter dès le premier collage comme au 159e.

Le soucis est que l'erreur ne se situe jamais au même endroit, mais c'est toujours sur une ligne du type S.PasteExcelTable False, True, False

J'ai donc essayé de nombreuses méthodes que j'ai pu trouver sur différent forum (dont celui-ci :p) telles que :

-Affecter la Selection à une variable (comme dans mon exemple)
-Vider le presse Papier après chaque copie
-Tester si le contenu du presse papier est vide (je ne rentré jamais dans un de ces test, je les ai donc retirés, mon presse papier contenant toujours ce qu'il fallait)
-Faire un Undo.Clear
-Sauvegarder le document Word à chaque itération
(sources : https://www.developpez.net/forums/d1...de-non-valide/
https://social.msdn.microsoft.com/Fo...led?forum=vsto)

Avez-vous des idées ? Je suis vraiment à court

Merci et bonne journée

[halaster08]

Bonjour,

As tu essayé d'ajouté un "DoEvents" dans ta boucle ?

[Wololol]

Bonjour,

As tu essayé d'ajouté un "DoEvents" dans ta boucle ?

Merci de ta réponse rapide.

Je viens d'essayer, cela ne change rien, toujours cette erreur 4198 :/

[vincent_merle]

Bonjour, est-ce que tu est vraiment obligé de faire une boucle, tu ne pourrais pas faire ta sélection une fois et directement coller dans word ?

[Wololol]

Bonjour, est-ce que tu est vraiment obligé de faire une boucle, tu ne pourrais pas faire ta sélection une fois et directement coller dans word ?

Bonjour, merci de ta réponse,

Malheureusement non, puisque j'applique à chaque copie un style différent de mon fichier dotx :

Code :

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

1
2
3
4
5
6
7
If Range("D" & i).Value <> "" And Range("E" & i).Value = "" Then 
 
 
             S.Range.Style = "Titre 3" 'applique le style
 
 
            S.PasteExcelTable False, True, False

D'autre idée ?

[patricktoulon]

re
un exemple
colle toute la plage current region dans un nouveau word

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim oWdApp As Object 'WordA.Application
Dim oWdDoc As Object 'Word.Document
ActiveSheet.[A1].CurrentRegion.Copy
Set oWdApp = CreateObject("Word.Application")
Set oWdDoc = oWdApp.Documents.Add
oWdApp.Visible = True
oWdApp.Selection.PasteSpecial
Application.CutCopyMode = False
End Sub

il te reste plus qu'a faire un save as

[Wololol]

Bonjour patrick et merci,

J'ai tester mais cela ne donne pas le résultat recherché vu que je copie des cellules isolées à chaque fois.

Ce n'est pas la copy le problème, c'est le Paste qui, de façon aléatoire ne fonctionne pas, j'ai beau faire la copie des dizaines de fois sur les même cellules, le programme ne va jamais planter au même endroit.

Beaucoup parle de ce problème sur les forums mais malheureusement il n'y a aucune réponse à mon problème.

Je reste ouvert à toute autre propositions.

Bonne soirée

[patricktoulon]

je viens de tester sur 4 plage dont la 4 eme fait plus de 2600 lignes et ca fonctionne

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 test()
Dim oWdApp As Object 'WordA.Application
Dim oWdDoc As Object 'Word.Document
Dim plage(4) As Range
Set plage(1) = Range("A1:F23")
Set plage(2) = Range("A30:F42")
Set plage(3) = Range("A50:F64")
Set plage(4) = Range("A80:F2690")
Set oWdApp = CreateObject("Word.Application")
Set oWdDoc = oWdApp.Documents.Add
oWdApp.Visible = True
For i = 1 To UBound(plage)
plage(i).Copy
oWdApp.Selection.PasteSpecial
Next
Application.CutCopyMode = False
End Sub

[Wololol]

Bonjour,

J'ai testé ta méthode et effectivement ça fonctionne, merci

Juste un petit soucis, avec PasteSpecial, ça copie toujours au même endroit (début de la page), du coup cela ne ce met pas à la suite mais insère au début, des solutions pour copier à la suite?

Bonne journée

[patricktoulon]

re
oui tu insert un signet si je ne me trompe pas

[Wololol]

re
oui tu insert un signet si je ne me trompe pas

Je ne vois pas trop comment utiliser les signets pour faire ça

Je ne trouve vraiment pas de solutions pour copier à la suite, pourtant le PasteExcelTable le faisais (mais ça marcher pas trop).

Pour coller, j'utilise S.Range.PasteSpecial ainsi je peux lui appliquer un style avec S.Range.Style = "Titre 1" par exemple. J'ai remarquer que si je collais directement avec S.PasteSpecial, le texte se mettais bien à la suite, cependant je ne peux lui appliquer de style. Y-a-t'il un moyen de soit, appliquer un style à la selection (S.Style = "Titre 1" ne fais rien) ou de continuer à utiliser des ranges et coller à la suite ?

Merci

[Pierre Fauconnier]

Salut.

C'est quoi la finalité de la manip (en français)?

[Wololol]

Salut.

C'est quoi la finalité de la manip (en français)?

Bonjour,

Je vais essayer d'expliquer de la façon la plus claire possible :

J'ai un tableau contenant des noms d'éléments, éléments qui sont associé a une description et une unité.

En fonction des éléments sélectionnés, j'ai une fonction qui Copy chaque cellule voulue, puis les colles dans un documents Word, enfin je lui applique un style.

Cette fonction marche maintenant bien, à un détail près : L'insertion du contenu des cellules copiées se font a chaque fois en début de page (une insertion), or je souhaiterai que tout se copie à la suite.

J'espère que le problème est plus clair, merci de votre aide

[halaster08]

Cette fonction marche maintenant bien, à un détail près : L'insertion du contenu des cellules copiées se font a chaque fois en début de page (une insertion), or je souhaiterai que tout se copie à la suite.

Donc si je comprends bien, il te suffit d'inverser l'ordre de ta boucle for, non?
Comme ça il commence par le dernier élément, puis l'avant dernier est copié en début de page et donc décale le dernier en dessous et ainsi de suite jusqu'au premier.

[Pierre Fauconnier]

C'est plus un problème VBA Word que VBA Excel... (j'ai déplacé sur le bon forum)

[Wololol]

Donc si je comprends bien, il te suffit d'inverser l'ordre de ta boucle for, non?
Comme ça il commence par le dernier élément, puis l'avant dernier est copié en début de page et donc décale le dernier en dessous et ainsi de suite jusqu'au premier.

C'est ce que j'ai fait au final, mais je penser pouvoir trouver une autre solution

Merci