Discussion :

[Invité]

Bonjour,
Je souhaiterais faire une macro qui copie certaines chaines de caractères contenues dans un document Word vers un document Excel.
J'ai des comptes rendus à faire de mes TDs, et pour soigner la présentation de ceux ci, je souhaiterais formaté mon compte rendu en y incluant les questions auquel je dois répondre.

Voici le modèle de mon compte rendu :



Donc j'aimerai copier de Word vers Excel, le titre du document, les questions, et établir une liste de tous les numéros de questions sur le coté gauche.

Pour la recherche des questions, j'avais pensé a utilisé une boucle for, avec une condition if qui compare les chaines de caractère, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim questions as String
 
If questions="j)" copier vers jusqu'à ce qu'a ce qu'il y est 2 retour chariot à la suite
ici j est incrémenté a chaque validation de If

Je compte me servir de la numérotation qui est constitué d'un chiffre et d'une parenthèse et de deux espaces comme discriminant pour ma recherche.

Voici un ordinogramme pour que vous compreniez mieux :



Je n'attend pas de vous que vous me codiez la macro, mais que vous donnez des réponses qui me permettrai de mettre en œuvre cela.
Voilà, pour plus d'explications, je reste à votre disposition.
Merci
Skanner

[Sepia]

Bonjour Skanner,

Ta solution semble bonne mais je conseille d'utiliser une boucle "tant que" plutôt qu'une boucle "For" puisque tu utilises la fonction Rechercher. En effet, cette dernière ne t'indique pas le nombre d'occurrences d'une recherche mais si elle a trouvé un élément répondant à cette recherche.

Une fois que tu as trouvé, il te faut sélectionner ta question, pour cela tu peux utiliser l'objet Sélection. Puis faire Copier, activer ton Excel et faire Coller.

Pour t'aider, tu devrais commencer par faire la manip avec Word en enregistrant une macro. Cet outil enregistre les commandes que tu lances en même temps qu'il les exécute et les stocke dans une macro que tu n'as plus qu'adapter (avec la boucle) mais les instructions de base avec leurs paramètres sont déjà codées. En plus, tu comprends bien ce que fais Word puisque c'est tu as fait toi en réalité.

Pour enregistrer une macro, lance le menu "Outils->Macro->Nouvelle macro" Lorsque tu as fini, lance le menu "Outils->Macro->Arrêter l'enregistrement"

Si tu as besoin de plus d'info, n'hésite pas.

@+