Discussion :

[a.faurie]

Bonjour,
sur le code suivant j'ai une erreur d'exécution 462, 1 fois sur 2, si j'ai bien compris il faut réinitialiser quelque chose mais je ne sais pas quoi et pas comment. pouvez-vous m'aider SVP ?

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
Sub MAJword()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim cc As ContentControl
 
Set WordApp = CreateObject("word.application") 'ouvre une session Word
Set WordDoc = WordApp.Documents.Open("C:\Users\a.faurie\Desktop\essais.docx") 'ouvre le document Word
WordApp.Visible = True 'Word est masqué pendant l'opération
 
Set docCCs = ActiveDocument.SelectContentControlsByTag("titre_affaire")
If docCCs.Count <> 0 Then
For Each cc In docCCs
cc.Range.Text = "essais"
Next
Else
MsgBox "pas de contrôle de contenu."
End If
 
WordApp.Visible = True 'affiche le document Word
 
End Sub

[Invité]

Bonjour

Je pense qu'il faut surtout fermer ton Word.

Code :

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

WordApp.Quit

Philippe

[a.faurie]

Bonjour,
merci pour la réponse mais ça ne marche pas ça me referme word et j'ai toujours le même message.
en revanche si je fait un réinitialiser (le petit carré) entre chaque manipe ça marche, c'est ce qui me fait dire qu'il faut réinitialiser quelque chose.

[nibledispo]

Bonjour,

Cela ne réglera rien mais en ligne 9, ce ne serait pas plutôt "false"

Cordialement,

[a.faurie]

effectivement mais merci quand même, j'avais pas fait gaffe

[a.faurie]

Trop simple il suffisait de mettre End à la fin pour remettre tout à 0.
Parfois la solution est bien plus simple que le problème...