Discussion :

[touche_a_tout]

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

[deedolith]

Heu pas compris ....

une instruction anodine fait démarrer l'exécution

Fait démarrer quoi ?

PS: Ajoute l'instruction Option Explicit en tête de tes modules, et declare tes variables, ca facilitera les choses.

[touche_a_tout]

Merci deedolith,
Option explicit: excellente habitude mais parfois, la flemme...
Le fond du problème, c'est que j'ai "exécution en cours" qui s'affiche en haut de l'écran, que tout est bloqué sur l'interface et que je ne sais pas ce qui est en train de s'exécuter.
Je suis sur un portable chez des amis. En chargeant mon extrait de code sur un EXCEL 97, quelque chose démarre mais s'arrête après quelques secondes et ça passe au msgbox qui indique "faux". Toujours aussi mystérieux. Qu'est-ce que ça donne sur ta machine (je ne pense pas véhiculer de virus) ? Une idée ?
Cordialement
touche_a_tout

[deedolith]

Toujours pas compris ...
Dans le code que tu as posté, il n'y a rien qui affiche "execution en cours", ni rien qui affiche "Faux".

Peux tu uploader ton classeur ainsi que le fichier word associé ? On y verra peut-être plus clair.

excellente habitude mais parfois, la flemme...

Et la "flemme" te fait écrire du code pourri !!!
Corrige ca d'urgence.

[laurent_ott]

Bonjour,
Dans l'instruction :

Code :

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

MsgBox ("mon_doc_word" = mon_doc_word)

Vous demandez de renvoyer ceci : est ce que la chaîne de caractères "mon_doc_word" est identique à l'objet mon_doc_word ?
Excel répond Faux, ce qui est normal.
Je pense que vous vouliez écrire :

Code :

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

MsgBox "mon_doc_word = " & mon_doc_word

Mais ça ne devrait pas marcher car mon_doc_word est un objet et pas une variable.
Cordialement

[touche_a_tout]

Bonjour et merci à deedolith et Laurent Ott,
Le code pourri, c'est pas la flemme, c'est mon ignorance.
Il manque en effet un & dans mon msgbox et je vois pourquoi ça ne marche pas, merci Laurent Ott.
Reste le problème initial: est-ce parce que mon code est pourri qu'il démarre tout seul ?

Autre chose: à mon tour de ne pas comprendre, deedolith. Je ne vois pas pourquoi mon code contiendrait "Exécution en cours" ou "Faux". Exécution en cours ne s'affiche que dès que le code démarre mais alors impossible de faire une capture d'écran, tout est bloqué.
Je vais voir si j'arrive à nettoyer mon code avant de vous passer mon classeur puisque je suis bloqué par ces démarrages intempestifs.
Mais comme je touche à VBA une fois tous les six mois, j'oublie les trois quarts de mon mince bagage d'une fois à l'autre ! Au fait, l'envoi de classeurs est-il autorisé ?
J'ai le même problème avec un code que j'ai emprunté sur une autre discussion. Peut-être qu'il y a un bug dans mon logiciel Word. A tout hasard, voici le code que j'ai "emprunté" pour l'adapter. Entre temps, j'ai constaté que mes extraits de Word sont trop longs pour une cellule Excel, j'aimerais donc transférer ces extraits vers un tableau Word en vue de classement. Merci de votre assistance.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub data_source_wd()
 
Application.ScreenUpdating = False
 
Dim wApp As Word.Application
'vous saisissez au clavier : =lorem(10,10) suivi de Entrée,
 
Dim oDoc As Word.Document
Set wApp = New Word.Application
 
'FichierTest_ = ActiveWorkbook.Name
 
chemin = "C:\Users\41793\desktop\"
nomfichier = "copierselection.docm"
 
 
Set oDoc = wApp.Documents.Open(chemin & nomfichier)
 
'à partir d'ici je n'ai pas plu adapter le code à mon objectif, et pour cause.
 
oDoc.Selection.Find
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "2.2.2   Alerted and ‘Passed’ messages*2.2.3   Alerted and 'Failed' messages"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
 
 
Selection.Copy
'Workbooks(FichierTest_).Activate
 
ActiveSheet.Paste
 
End Sub
 
Sub bidules()

Le démarrage non désiré se produit au niveau de la ligne

Code :

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

Set oDoc = wApp.Documents.Open(chemin & nomfichier)

Cordialement
touche_a_tout