Discussion :

[Stutak]

Bonjour,

Par VBA Excel, j'ouvre un document Word et une macro qui choisit un texte pour le copier sur ma feuille Excel.
Mais mon texte Word est sur plusieurs lignes et je voudrais que la copie soit sur 1 seule cellule.

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
 
Sub lancerMacroWord()
    Dim wordApp As Word.Application
 
    Set wordApp = CreateObject("Word.Application")
 
    wordApp.Visible = True
    wordApp.Documents.Open ("C:\regles.doc")
    wordApp.Run "NewMacros.SelectionParagraphe"
    Range("D4").Select
    ActiveSheet.PasteSpecial Format:="Texte", Link:=False, _
        DisplayAsIcon:=False
 
 
End Sub

Mais ici, la copie se fait sur et aussi en dessous, 1 ligne par cellule.

Merci de votre aide.

[joe.levrai]

Bonjour,

et la macro Word SelectionParagraphe, tu nous la montre ?

[Stutak]

La voici.
Je cherche le titre qui m'intéresse et relève son numéro de paragraphe.
Je ccherche le titre suivant et relève son numéro de paragraphe.
Je sélectionne tous les paragraphes notés.
Je ne sais pas si c'est optimal, mais ça fonctionne correctement.

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
 
Sub SelectionParagraphe()
 
Dim rngParagraphs As Range
 
ParagrapheDépart = 13
For i = 1 To 2
TextCherche = "Règle " & ParagrapheDépart + i - 1 & " -"
 
 
    Selection.Find.Execute FindText:=TextCherche
 
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
If i = 1 Then
NumeroParagrapheDépart = Selection.Paragraphs.Count + 1
Else
NumeroParagrapheArrivée = Selection.Paragraphs.Count
End If
Selection.HomeKey Unit:=wdStory
 
Next i
 
    Set rngParagraphs = ActiveDocument.Range( _
        Start:=ActiveDocument.Paragraphs(NumeroParagrapheDépart).Range.Start, _
        End:=ActiveDocument.Paragraphs(NumeroParagrapheArrivée).Range.End)
    rngParagraphs.Select
    Selection.Copy
 
End Sub

Quand je retourne sur Excel, j'ai peux correctement copier les données qui m'intéresse.
Mais elles se copient sur plusieurs cellules et moi je voudrais l'ensemble dans une seule.

Merci

[clementmarcotte]

Bonjour,

À mon humble avis, tu as les choix suivants :


1) Tu concatènes tes extraits dans une variable unique, en ajoutant les sauts de lignes aux bonnes places et, à la fin tu places ton texte concaténé dans ta cellule.

2) Tu concatènes tes extraits directement dans ta cellule au fur et à mesure que tu les trouves. Évidemment, tu ajoutes toi-même tes sauts de ligne aux bons endroits.

3) Tu récupères tes extraits dans un nouveau document Word, juste avec des sauts de lignes, et tu fais un copier-coller dans ta cellule.

Ceci dit, je pense que tu devrais penser à un autre système et probablement sans Excel.

P.S. Dès que Excel "tombe" sur un retour de chariot, ou une marque de paragraphe, il change de cellule.

[unparia]

Bonjour

Je souscris on ne peut plus totalement à ce que vient de dire clementmarcotte (et plus particulièrement en son après troisième point, commençant par "ceci dit").
Concaténer dans une cellule Excel du texte provenant de Word révèle sans la moindre ambiguïté un détournement de la vocation de Excel, qui est celle d'un tableur et non celle de la présentation de documents, de texte, etc ...
Tout cela n'a aucun sens (à moins que l'on ne veuille s'écarter de de qui est sérieux pour s'amuser à je ne sais trop quoi ... Le plus étrange est alors de demander de l'aide pour réaliser une telle ... euh ...).
Un grand salut à clementmarcotte.