× 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
34,99 €Souris Logitech MX Anywhere 2 (Bluetooth, Unifying) à 34,99 €
Valable jusqu'au 25 Novembre

Amazon fait une promotion sur l'excellente souris sans fil Logitech MX Anywhere 2 qui passe à 34,99 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 65 €. Cette souris que vous pourrez emporter partout avec votre PC ou Mac portable offre une double connectivité sans fil unify ou Bluetooth. Son capteur laser Dark field vous permettra de l'utiliser sur n'importe quelle surface. 


> Voir l'offre
204,50 €Box Android Nvidia Shield TV Pro 2019 16 Go avec télécommande à 204,50 €
Valable jusqu'au 25 Novembre

Amazon fait une petite promotion sur la box Android Nvidia Shield TV Pro 2019 16 Go avec sa télécommande à 204,99 €. On trouve ailleurs ce pack à partir de 219 €. Compatible FullHD et 4K, vous pourrez utiliser vos applications Android, jouer et regarder des films et des séries en très haute résolution sur votre TV (compatible Kodi, Molotov, Netflix, YouTube ...). La box permet également de jouer à vos jeux PC diffusés en streaming directement avec une très faible latence.  La livraison est gratuite.


> Voir l'offre
-50%Beats : jusqu'à -50% sur une sélection d'écouteurs et de casques
Valable jusqu'au 25 Novembre

Amazon propose jusqu' -50% sur une sélection d'écouteurs et de casques Beats. Vous trouverez des modèles filaires, des modèles sans fil, avec ou sans réduction active de bruit, etc.


> 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