> 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
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
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
19,99 €Chargeur rapide USB-C Anker Nano II 30W à 19,99 €
Valable jusqu'au 31 Mai

Amazon propose le chargeur USB-C Anker Nano II 30W à 19,99 € au lieu de 24,99 €. Il est 70 % plus petit qu'un chargeur USB-C standard de 30 W et offre en même temps de la même puissance de charge.


> Voir l'offre
599 €Portable 17,3 pouces HP (FHD IPS, Ryzen 5 5500U, 16Go/512Go, Windows 11) à 599 €
Valable jusqu'au 29 Mai

Leclerc fait une belle promotion sur l'ordinateur portable HP Pavilion 17-cp0298nf qui passe à 599 € au lieu de 699 €. Une bonne affaire ! Ce portable possède un écran 17.3 pouces HD Full HD IPS (1920x1080), un processeur AMD Ryzen 5 5500U (6 coeurs), un SSD NVMe de 512 Go et un chip graphique Vega 7. Le tout tourne sous Windows 11.

De quoi faire de la bureautique, surfer sur Internet, du multimédia et des petits jeux en toute tranquillité.


> Voir l'offre
1049,90 €Carte graphique Radeon RX 6900 XT GAMING X TRIO 16 Go à 1049,90 €
Valable jusqu'au 29 Mai

RueDuCommerce propose actuellement la carte graphique Radeon RX 6900 XT GAMING X TRIO 16 Go à 1049,90 €. La carte graphique MSI Radeon RX 6900 XT GAMING X TRIO 16G est une carte graphique gaming qui est animée par l'architecture RDNA 2 destinée aux gamers ultra exigeants. Elle est la carte graphique idéale pour une utilisation en Réalité Virtuelle et le jeu en résolution 4K. Elle se dote notamment des technologies telles que le Radeon Image Sharpening, FidelityFX et de l'overclocking en un clic pour des performances maximales et des graphismes toujours plus détaillés et plus fluides. Elle est pourvue de 5120 processeurs de flux, 320 unités de texture, une interface mémoire 256 bits pour les 16 Go de VRAM GDDR6 et se dote de 80 Ray Accelerators pour le Raytracing.


> 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