× 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
-5 € / -30 €5 € dès 29 €, 30 € dès 299 € chez Rakuten
Valable jusqu'au 03 Juin

Rakuten offre aujourd'hui 5 € de réduction dès 29 € d'achats sur son site avec le code RAKUTEN5 et 30 € de réduction dès 299 € d'achats avec le code RAKUTEN30.


> Voir l'offre
8,98 €Clé USB 3.0 Sandisk Ultra 32 Go à 8,98 €
Valable jusqu'au 09 Juin

Amazon propose la clé USB Sandisk Ultra d'une capacité de 32 Go à 8,98 €. Cette clé USB 3.0 est compatible USB 2.0 et offre de bons débits d'environ 80 Mo/s en lecture et en écriture. Le connecteur est rétractable pour éviter qu'il prenne la poussière.


> Voir l'offre
139,96 €Montre connectée Withings Steel HR Sport à 139,96 €
Valable jusqu'au 04 Juin

Amazon fait une promotion sur la montre connectée Withings Steel HR Sport qui passe à 139,96 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 171 €. Cette montre hybride (montre véritable avec un écran) offre 25 jours d'autonomie et va vous permettre de suivre vos activités sportives : GPS, fréquence cardiaque, indice de forme, tracker d'activité et de sommeil, ... Vous pourrez recevoir vos SMS, appels, e-mails, alertes du calendrier et vos notifications directement sur la montre. La montre est compatible Apple Health, Google Fit, Fitbit et Strava.


> 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