Extractioin données texte

polothewhite Messages postés 115 Statut Membre -  
Patrice33740 Messages postés 8930 Statut Membre -
Bonjour,

J'ai de très grandes feuilles de calcul à traiter, et je souhaite en extraire certains contenus de la façon suivante idéalement :

Prendre les contenus des cellules A1-9, C5-9, J9-19, etc... compiler le tout et l'envoyer dans un .doc

Est-ce envisageable et si oui comment ?

D'avance merci !

Paul.
A voir également:

2 réponses

DjiDji59430 Messages postés 4335 Date d'inscription   Statut Membre Dernière intervention   703
 
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.
0
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
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
0