> Tous les forums > Forum Bureautique
 macro pour passer de word vers excel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
lejib
  Posté le 14/03/2011 @ 11:55 
Aller en bas de la page 
Petit astucien

Bonjour à tous,

travaillant actuellement sur la compilation de donnée Word a partir de plusieurs fichier, sous Excel, je cherche à automatiser tout cela en passant par une macro VBA, que je ne maitrise pas complétement (doux euphémisme).

la structure de mes fichiers word est le suivant :

Nom: XXXX

prénom: iozerio

date:

kzjzeflkj

hobbies:

jfozejfoi

projet:

klrjflkj

pièce jointe:

jj

il s'agit donc de renseigner un tableau excel ayant pour colonne : nom - prénom-date-hobbies-projet- pièce jointe

Comment puis je faire?

je pensais passer par la copie de données situées entre deux chaines de caractères...mais j'ai un peu de mal a voir comment?

Si quelqu'un avait une ou plusieurs solution à proposer je l'en remercie d'avance.

Cdt.

JB

Publicité
Brownie0169
 Posté le 14/03/2011 à 12:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

Regarde ici tu devrais pouvoir adapter ton projet.

lejib
 Posté le 14/03/2011 à 14:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien


merci , j'ai regarder mai scela ne reponds qu'en partie à mon probleme.

ici se trouvent le fichier type que 'jai a traiter : http://dl.free.fr/li71sMDpy

l'idée serait de comparer des chaines de caractères du style
tant que la chaine different de prenom copier dans cellule 1, puis si = alors tant que different de "date" copier dans cellule 2, puis si = "date" alors tant que differents de "hobbies" ...etc.

lejib
 Posté le 14/03/2011 à 15:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

est il possible de copier un paragraphe complet dans une cellule ?
est il alors possible de faire une concaténation si la cellule n'est pas vide (dans le cas ou j'aurais deux paragraphe ? ou bien puis directement copier coller plusieurs paragraphes dans une cellule?

car telle que je vois le bout de code ca donnerait quelques chose comme ceci:


<code>
Dim para As Paragraph
Dim i As Integer
Dim y As Integer
i = 1
j=2
For Each para In ActiveDocument.Paragraphs
para.Range.Select

If Selection.Words(1)="Nom" and Selection.Words(2)=":" then
i=i+1
next para
para.Range.Select
while Selection.Words(1)<>"prenom"
ActiveSheet.Cells(j,1).Value= para.Range.Select " on copie les données du paragrpahe dans la cellule 1 de la 1 iere colonne

wend
If Selection.Words(1)="prenom" and Selection.Words(2)=":" then
i=i+1
next para
para.Range.Select
while Selection.Words(1)<>"date"
ActiveSheet.Cells(j,2).Value= para.Range.Select " on copie les données du paragrpahe dans la cellule j de la 2ieme colonne

wend
If Selection.Words(1)="date" and Selection.Words(2)=":" then
i=i+1
next para
para.Range.Select
while Selection.Words(1)<>"hobbies"
etc....

Brownie0169
 Posté le 14/03/2011 à 15:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re

Dans ces conditions, pourquoi ne pas repartir à zero, donc effacer le fichier original et recopier le nouveau fichier fichier? A mon avis, cette solution serait la plus simple, car sinon, il faudrait une macro avec une ou des boucles....Mais attendons l'avis d'experts ...

lejib
 Posté le 14/03/2011 à 16:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

parceque j'ai 300 fichiers comme celui-ci...

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
80,45 €Alimentation semi modulaire Corsair CX750M (750W, 80Plus Bronze) à 80,45 €
Valable jusqu'au 30 Janvier

RueDuCommerce fait une promotion sur l'alimentation semi modulaire Corsair CX750M 750W 80Plus Bronze qui passe à 80,45 €. On la trouve ailleurs à partir de 110 €. Cette alimentation est silencieuse et est certifiée 80PLUS bronze qui offre des rendements de plus de 82% en charge. Elle est garantie 3 ans.


> Voir l'offre
219 €TV 32 pouces Toshiba FHD Android TV à 219 €
Valable jusqu'au 27 Janvier

Electro Depot fait une promotion sur la télévision 32 pouces Toshiba FHD Android TV à 219 €. Cette TV de 32 pouces (80 cm) offre une résolution FHD de 1920x1080 pixels. Elle possède un Tuner TNT HD, 1 port USB et 3 ports HDMI. Elle offre également des connexions sans fil WiFi et Bluetooth (pour y connecter un casque par exemple). Elle est compatible Google Assistant et tourne sous Android TV (vous pourrez lui installer des applications via Google Play : Netflix, YouTube, MyCanal, Molotov, Disney+, Plex, etc). Idéal pour une chambre.


> Voir l'offre
899,99 €Ultraportable 15.6 pouces Asus Vivobook S3500QA (OLED FHD, R7 5800H, 16Go, SSD 512 Go) à 899,99 €
Valable jusqu'au 28 Janvier

Cdiscount fait une promotion sur l'ultraportable Asus Vivobook S3500QA-L1184W qui passe à 899,95 € au lieu de 1049 €. Cet ordinateur dispose d'un superbe écran 15.6 pouces OLED FHD (1920x1080), d'un processeur AMD Ryzen 7 5800H (8 coeurs) avec chip Radeon Vega 8 intégré, 16 Go de RAM, un SSD NVMe de 512 Go et tourne sous Windows 11. Il ne pèse que 1,65 kg et propose une autonomie d'environ 8 heures.


> Voir l'offre

Sujets relatifs
excel vba passer une variable de commande vers macro
macro excel copier collage special vers word
Macro excel vers word
Access Macro pour exporter vers Excel
Creation d' une boucle macro dans fichier EXCEL pour impression
Excel vers Word
Macro pour word 2013
Macro pour ouverture d'un fichier Excel
Macro pour créer un Gencode sur Excel - EAN 18
Passer plusieurs variables dans une autre macro excel VBA
Plus de sujets relatifs à macro pour passer de word vers excel
 > Tous les forums > Forum Bureautique