Extractioin données texte

Bonjour,

Ça veut dire quoi, compiler en langage Excel ??

Quand on joint un fichier-test, (avec TOUTES les explications ou les résultats souhaités) ou mieux, si c'est possible, le fichier concerné, c'est plus commode pour les intervenants. Et tu as plus de chances que quelqu'un s’intéresse à ton problème

1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes s'affiche le lien en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans la discussion, et, dans ton message de réponse, tu fais : "Coller".

Cordialement.

Bonjour,

Essaies ce code :

'
'Ajouter une référence à Microsoft Word xx.x Object Library
' (Outils, Références)
'
Option Explicit
Public Sub CréerWord()
Dim a As Word.Application         'Application Word
Dim d As Word.Document            'Document Word
Dim r As Range                    'Plage source
Dim c As Range                    'Cellule source
    
  'Instancier Word et créer le fichier
  Set a = CreateObject("Word.Application")
  Set d = a.Documents.Add
  With a
    .DisplayAlerts = False
    .Visible = True
    .WindowState = wdWindowStateMaximize
  End With
 
  'Définir la plage des cellules sources
  With Worksheets(1)
    Set r = Union(.Range("A1:A9"), .Range("C5:C9"), .Range("J9:J19"))
  End With
   
  'Ajouter le texte dans le document
  With d.Content
    For Each c In r.Cells
      .Text = .Text & c.Value
    Next c
  End With
  
  Application.WindowState = xlMinimized
    
End Sub

Cordialement
Patrice