× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
14,90 €Windows 10 Pro 32/64 bits OEM à 14,90 €
Valable jusqu'au 10 Juillet

Le vendeur sérieux DIGITAL FR propose sur Amazon  la clé d'activation pour Windows 10 professionnel en français 32 bits / 64 bits à 14,90 €. Cette clé livrée par email fonctionne avec l'outil d'installation et de création de support de Microsoft que vous pouvez télécharger ici ou directement avec l'ISO de Windows 10 Pro. De quoi installer légalement Windows 10 Pro sur un PC. Pour en savoir plus sur l'achat et l'installation d'une clé OEM de Windows 10, suivez les indications de notre dossier pratique.


> Voir l'offre
10,02 €Adaptateur Bluetooth USB TP-Link UB400 à 10,02 €
Valable jusqu'au 12 Juillet

Amazon fait une promotion sur l'adaptateur Bluetooth USB TP-Link UB400 qui passe à 10,02 €. Cet adaptateur à brancher sur un port USB va vous permettre d'ajouter le bluetooth à votre ordinateur et d'utiliser ensuite sans fil vos périphériques bluetooth : souris, clavier, casque, manette, téléphone, ...


> Voir l'offre
27,95 €Casque audio bluetooth JBL Tune 500 BT à 27,95 €
Valable jusqu'au 09 Juillet

Amazon fait une vente flash sur le casque audio sans fil bluetooth JBL Tune 500 BT qui passe à 27,95 € livré gratuitement alors qu'on le trouve ailleurs à partir de 49,99 €. Ce casque sans fil bluetooth 4.1 offre une autonomie de 16h, permet de commander sur le casque les appels et la musique et est repliable à plat. Il est rechargeable avec un câble microUSB fourni. Notez qu'une charge rapide de 5 minutes vous procurera 1 heure de musique.


> 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