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

[Philippe Tulliez]

Bonjour,
Un programme ne démarre pas tout seul.
Une procédure événementielle peut éventuellement le déclencher mais c'est parce-qu'on l'a décidé

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)

Cette instruction ouvre le document Word et ensuite forcément, le programme continue à s'exécuter normalement tel que vous l'avez écrit

Une procédure démarre depuis le mot clé Sub SubName() et se termine à l'instruction End Sub ou par Function FunctionName() et se termine par End Function. Il peut être interrompu par des instructions ou fonctions telles que Debug.Assert, MsgBox, InputBox, Stop, etc.

Une procédure peut éventuellement faire appel à une ou plusieurs autres

[touche_a_tout]

Bonjour et merci Philippe Tulliez,
Explication très claire mais il y a tout de même une chose qui m'échappe. Bien que je sois un très médiocre développeur (même ce terme est exagéré), voilà des années que je teste du code avec F8 qui permet, si j'ai bien compris (mais allez savoir !), de faire du pas-à-pas, mais c'est la première fois (ou la seconde) que F8 déclenche l'exécution du reste du code en boucle impossible à stopper avec Esc. Qu'est-ce que je n'ai pas pigé ?
Merci d'éclairer ma lanterne sourde.
Cordialement
touche_a_tout

[laurent_ott]

Bonjour,
J'ai une proposition, c'est juste à tester car une fois j'ai pas mal galèré avec un code qui ne fonctionnait pas comme prévu : j'ai copié le code du module (Ctrl+A puis Ctrl+C), l'ai supprimé (Suppr), collé (Ctrl+V) et relancé : et là par miracle ça marchait comme prévu !
Donc à essayer au cas où...
Bonne programmation.

@Winjerome, merci pour la mise en forme de mes messages car je les rédige depuis mon téléphone.

[jurassic pork]

Hello,
je viens d'essayer le début du code, effectivement j'ai aussi un problème quand je fais du pas à pas sur le Set oDoc.
En mettant un point d'arrêt après ce Set oDoc et en exécutant le code , je m'arrête bien sur le point d'arrêt et donc je peux commencer le pas à pas après le point d'arrêt. Vérifier aussi qu'il n'y a pas une instance de word qui reste dans le gestionnaire de tâche avant d'exécuter le code. Aussi rendre Word visible avec :

Code :

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

wApp.Visible = True

Ami calmant, J.P

[touche_a_tout]

Merci ! Tous ces gens prêt à donner un coup de main, ça réconcilie avec le genre humain. Une chose après l'autre: quand vous dites "Suppr" (Laurent Ott) vous voulez dire effacer le module ou effacer le code ?
Rendre Word visible, je teste tout de suite !
Merci. Cordialement
touche_a_tout

[touche_a_tout]

Merci à Jurassic Pork,
En arrêtant la machine folle avec Ctrl+Alt/Del et en cliquant sur le gestionnaire des tâches, je trouve 3 instances de Word, mais je ne sais pas laquelle est la bonne. Comment éviter cette prolifération de Word ?
J'ai testé wApp.visible = True mais où suis-je censé voir cette App Word ? Pardon pour ces questions de Dummie, je n'avais jamais rencontré ce pb !
Merci pour tout éclaircisssement.
Cordialement
touche_a_tout

[laurent_ott]

Effacer le code, mais vous pouvez aussi supprimer le module et le recréer.

[Philippe Tulliez]

Bonjour,

J'ai testé wApp.visible = True mais où suis-je censé voir cette App Word ? Pardon pour ces questions de Dummie, je n'avais jamais rencontré ce pb !

En principe dans la barre d'état "Windows", le logo Word doit légèrement bouger (chez moi en tout les cas). Je mets systématiquement l'application visible sinon effectivement, on ne la voit pas.

[touche_a_tout]

Merci à Laurent et à Philippe.
Ces instances cachées de Word et ces dysfonctionnements me rappellent un truc bizarre (que je n'ai pas réussi à reproduire maintenant (!): quand j'ouvre un document Word, tout se passe comme si Word ouvrait en même temps le document souhaité et un document vide et j'ai le message (à peu près):

impossible d'accéder au document xy car il est occupé par une autre application; voulez-vous l'ouvrir en tant que document en lecture seule.

Ça me paraît le signe d'un bug et je pense que je devrais réinstaller Word 2016. Je vais m'y atteler.
A +
Merci et cordiales salutations
touche_a_tout

[jurassic pork]

Hello,

je viens d'essayer le début du code, effectivement j'ai aussi un problème quand je fais du pas à pas sur le Set oDoc.

Après redémarrage de mon ordinateur et utilisation du code ci-après, je n'ai plus ce problème. Le pas à pas fonctionne sur le Set oDoc.

Voici ce que fait mon code :
1 - Regarde si Word.application existe déjà. Si oui le rend visible et invite à fermer Word . Si Non le crée.
2 - Cherche toutes les occurrences d'un mot dans un document word.
3 - Affiche toutes les lignes où se trouvent le mot cherché.
4 - Ferme Word

le code :

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
Sub TestWordApp()
Dim wApp As Word.Application
Dim oDoc As Word.Document
Dim Doc
Dim chemin As String, nomFichier As String
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 429 Then
  'Un Word application existe, forcer à le rendre visible
    wApp.Visible = True
    If wApp.Documents.Count > 0 Then
        For Each Doc In wApp.Documents
          'Afficher le nom des documents Word ouverts
          Debug.Print Doc.name
        Next
        MsgBox "Word est lancé avec des documents ouverts "
    Else
         MsgBox "Word est lancé sans document ouvert "
    End If
    MsgBox "Fermez Word pour exécuter cette macro !"
    Exit Sub
Else
    Set wApp = New Word.Application
    wApp.Visible = True
    chemin = "D:\Temp\"
    nomFichier = "Plantes.docm"
    Set oDoc = wApp.Documents.Open(chemin & nomFichier)
    oDoc.Content.Select 'on sélectionne tout le contenu du document
    wApp.ScreenUpdating = False
    With wApp.Selection.Find
      .ClearFormatting
      .Text = "Narcisse"
      .Execute
      Do While .Found
        .Parent.Expand Unit:=wdLine 'étendre à la ligne
        Debug.Print .Parent.Text
        wApp.Selection.Collapse wdCollapseEnd
        .Execute
      Loop
    End With
    wApp.ScreenUpdating = True
    oDoc.Close
    wApp.Quit
End If
End Sub

Testé sous Windows 10 Office 2016 et Office 2019.

Ami calmant, J.P

[touche_a_tout]

Excellent, Jurassic Pork, merci.
Je vais m'inspirer du début de votre code et je pourrai élaborer la suite que je projetais.
Cordialemen
touche_a_tout

[touche_a_tout]

Bonjour, vous tous qui m'avez aidé.
La suite que je projette fait appel aux notions de bookmarks et de ranges et là, s'agissant de Word, je suis dépassé et de toute manière ça nécessite d'ouvrir une autre discussion, sous le titre "créer des signets" dans Word. Cette discussion-ci est donc terminée.
Merci.
Cordialement
touche_a_tout
P.S. Impossible de trouver le bouton TERMINÉ

[Philippe Tulliez]

Bonjour,

La suite que je projette fait appel aux notions de bookmarks et de ranges et là, s'agissant de Word, je suis dépassé

j'ai écrit un billet sur le sujet titré VBA Excel - Transférer des données d'excel vers Word qui pourra sans doute vous aider.

[touche_a_tout]

Bonjour et merci Philippe Tulliez,
Je n'ai plus en tête la raison qui m'a fait partir sous Excel mais le fait est que je dois transférer de Word en vrac vers Word classé. Mon document Word contient une série d'acte d'état-civil en continu que je voudrais séparer et classer par ordre alphabétique sur l'individu concerné. Mais comme je le disais,je suis dépassé et, vu la complexité des exemples fournis, je dois renoncer à mon idée de classement; je ferai chaque fois une recherche manuelle sur les noms des individus. Désolé de vous avoir fait réfléchir, chercher et poster en vain. J'espère que vous et tous ceux qui m'ont aidé me pardonnerez.
Cordialement
touche_a_tout