Discussion :

[infoexcel]

Bonjour
J’ai besoin d’aide svp j’ai un exercice c’est un sommaire dans un document Word et je voudrais le copier dans un fichier Excel par un programme vba :
Exemple des données en Word :

Acquisition du langage oral : repères chronologiques [5]
Apprentissage de la lecture [33]
Apprentissage de la production écrite et de l’orthographe [79]
Apprentissage de l’arithmétique [107]
Apprentissage du langage écrit chez les sourds [137]

Le résultat dans Excel

5 \ Acquisition du langage oral : repères chronologiques
33 \ Apprentissage de la lecture
79 \ Apprentissage de la production écrite et de l’orthographe
107 \ Apprentissage
137 \ Apprentissage du langage écrit chez les sourds

Svp comment je peux le faire dans un programme en vba pour
Prendre les numéros de la page qui sont entre [ ] et le copier dans la 1ère colonne et de prendre le titre de la page par exemple ici « Acquisition du langage oral : repères chronologiques »et le copier dans la colonne accoter de sont numéro de page.
dans la pièce jointe vous trouvez un exemple de mon sommaire word
Merci d’avance .

[Jannus]

Bonjour,

Ce que tu nous proposes là, c'est de résoudre ton exercice à ta place, ce qui est contraire à l'esprit et aux règles du forum

Plutôt que de nous donner l'énoncé de ton exercice, montre-nous le travail déjà effectué et explique-nous clairement sur quoi tu butes.

[infoexcel]

non c'est pas ça .ça fait 3 semianes maintenant que je cherche j'ai fais un petit programme pour ouvrire le document word apartire d excel mais je me suis bloqué sur comment je peux faire pour que ce programme prend les chiffres qui sont entre [1]et les mettre dans une colonne et prendre le texte et le mettre devant ce chiffre.je sais que je peux le faire si j'ai des données dans un tableau word mais ici j'ai selment des titres et a la fin j'ai le numéro de la page entre [ ].j'ai essayer pas male de fois . je voudrais pas que vous me realisez cette exercice mais de m'aider (je suis debutante)
merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim ligne As Long
 
Set WordApp = CreateObject("word.application")   
Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\hh.doc")    
WordApp.Visible = False    'Word est masqué pendant l'opération
N_lignes = WordDoc.Paragraphs.Count

[Godzestla]

.... mais pourquoi alors nous cacher ton code......?????

Une piste pour toi, pour t'apater : SPLIT

[ouskel'n'or]

Les caractères [ et ] sont des balises qui vont te permettre de retrouver les N° de pages. Tu as un exemple ici de ce que tu peux faire (forum Contribuez-Word)
Pour utiliser "Selection", il suffit que tu le précèdes de WordApp

Code :

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

WordApp.selection... etc

Pour les titres : S'agit-il des titres dans le sens de "Word" -> Titre 1, Titre 2, etc. ? Ou simplement du texte mis en forme ?

[infoexcel]

merci pour vous mais vraiment j'ai pas bien compris je suis debutante ds le vba .c'est simplement du texte par exemple
(Acquisition du langage oral : repères chronologiques [ 5])