Discussion :

[Matgic95]

Bonjour tout le monde,

j'explique mon problème. Je veux écrire dans un doc word (2003) certaines parties de mon doc Excel que je sélectionne.
Tout va bien, cela fonctionne. Mais le contenu étant très grand, windows met parfois du temps a créeer le fichier word rempli.
Existe-t-il un moyen de réduire ce temps de traitement?

Code :

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

1
2
3
4
5
6
7
 
    For i = 5 To CountRows
        If (MaFeuille.Cells(i, Col_param).Value = rs_vparam("Valeur")) Then
 
            Docword.Range.Text = Docword.Range.Text + MaFeuille.Cells(i, 1).Value
        End If
    Next

Petite question supplémentaire, comment faire pour rouvrir et reremplir ce même document plus tard sans l'écraser?

[Heureux-oli]

Tu rencontre un petit problème, lors de chaque écriture, tu reprends le contenu pour lui ajouter ron texte !

Essaie de te déplacer à la fin du documet pour y mettre ton texte.

Code :

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

1
2
Selection.EndKey unit:=wdStory
selection.TypeText MaFeuille.Cells(i, 1).Value

Pour ouvrir à nouveau ton document, c'est assez simple

Code :

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

1
2
 
Documents.Open "Lechemindemondocument"

[Matgic95]

Merci pour ta réponse mais avec tes lignes, il me génère une erreur 438
mais je ne comprend pas bien ces lignes. Tu ne précises pas dedans quel est le document dont on parle? Le selection ne devrait pas représente mon document?

[Heureux-oli]

N'ayant qu'un morceau de ton code, je ne peux pas te donner avec certitude ce que tu dois mettre.

[Matgic95]

Je viens de voir que ton code s'appliquait à word.application or moi je ne me servait que d'un word.document
Je vais continuer a regarder un peu

[Heureux-oli]

Mon code s'applique à un objet selection d'un document Word.

[Matgic95]

Merci ca fonctionne

Code :

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

1
2
3
4
5
6
 
If (MaFeuille.Cells(i, Col_param).Value <> rs_vparam("Valeur")) Then
            Docword.Application.selection.EndKey unit:=wdStory
            Docword.Application.selection.TypeText vbCrLf
            Docword.Application.selection.TypeText MaFeuille.Cells(i, 1).Value
        End If