Bonjour,
Content de vous retrouver.
But de mon codage: depuis Excel, prélever des passages dans un texte Word et les placer dans des cellules déterminées. Je suis arrêté en route parce qu'une instruction anodine fait démarrer l'exécution et je ne comprends pas pourquoi. Voici un bout du code en l'état:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub copie_source()
ligne = 1
colonne = 2
 
Do
 
ThisWorkbook.Sheets("mes_sources").Activate
Columns("A:A").ColumnWidth = 32
 
Call preleve_dans_Word
 
Worksheets("mes_sources").Activate
Cells(ligne, colonne).Select
Selection.Value = report
 
'Call trie_noms
Selection.Offset(0, -1).Value = NomPrenom
ligne = ligne + 1
 
Loop While report <> ""
End Sub
 
Sub preleve_dans_Word()
 
 
    compte_lignes = 1
 
    Set mon_doc_word = CreateObject("Word.Application")
    MsgBox ("mon_doc_word" = mon_doc_word)
C'est l'avant-dernière ligne qui fait démarrer l'exécution (la suivante sert à la stopper sans faire Ctr+Alt/del)
Si quelqu'un détecte le bogue, merci d'avance.
Cordialement
touche_a_tout