[XL-2010] Adresse de cellules Erreur d'exécution sujet

Bonjour à tous,

Après avoir passé pas mal de temps à chercher un peu partout sur internet sans résultat, je vous appelle à l'aide.

J'ai pris l'habitude de toujours écrire mon code comme ci-dessous (je trouve que ça limite les erreurs)

Code:

---

If Workbooks(Fill_Name).Sheets("Import").Left(Cells(A + 1, 2), 1) = Type_point Then

---

Le problème apparait lors de l'exécution du code. Il m'indique des erreurs (Erreur d'exécution '438' ou '1004').

Par contre lorsque le code est écrit de la façon suivante, aucun soucis

Code:

---

1 2 3

Workbooks(Fill_Name).Activate Sheets("Import").Select Left(Cells(A + 1, 2), 1) = Type_point

---

Je ne comprends pas du tout pourquoi ça plante. Si quelqu'un pouvait éclairer ma chandelle ce serait génial.

Merci d'avance

[XL-2007] erreur d'exécution 462, 1 fois sur 2 sujet

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:

---

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

---