Problème avec macro "Incompatibilité de type"

Bonjour,

Voici un petit problème que j'ai avec une macro. J'active ma macro une première fois lorsque je viens d'ouvrir mon document, elle commence comme suit (pour sélection le bon onglet) :

Code:

---

1 2 3 4

If ActiveCell.Value = "Auto" Then Feuil2.Select ElseIf ActiveCell.Value = "Garagiste / Garage" Then Feuil7.Select

---

Ça bug la première fois à

Code:

---

If ActiveCell.Value = "Auto" Then

---

, ça marque "Incompatibilité de type"

Je fais ensuite ;

-exécution
-continuer et là ça fonctionne...j'active ma macro une deuxième fois et aucun bug...tout fonctionne bien les fois d'après...

C'est toujours quand je viens d'ouvrir mon document et que j'active ma macro pour la première fois.

Merci à l'avance
Chris

Bonjour,

Citation:

---

lorsque je viens d'ouvrir mon document

---

La macro est lancée manuellement ou dans Workbook.open?

manuellement

La valeur de la cellule ne serait elle pas issue d'une formule?

oui c'est bien ça

A tester, mais il est possible que lorsque la macro se lance, la cellule soit en cours de calcul suite a un changement suite a une action

Merci bien..je vais essayé mais tu as sûrement une meilleur idée.

En fait, j'essaie d'aller chercher une donnée dans un fichier Word. Le link dans word est une barre déroulante (un option à choisir). Tout ce que j'ai trouvé qui fonctionnait avec la barre déroulante c'est ceci :

Code:

---

1 2 3 4 5 6 7

ActiveWorkbook.ActiveSheet.Range("A1").Select ActiveCell.Value = "=Word.Document.12|'" & myNum & "\10.1.2_Avis de perte auto.docm'!'!garanties'" If ActiveCell.Value = "Auto" Then Feuil2.Select ElseIf ActiveCell.Value = "Garagiste / Garage" Then Feuil7.Select End If

---

Je demande à ma macro d'inscrire l'option choisi de ma barre déroulante Word (auto, ou garagiste etc) dans la cellule A1. Ensuite je demande à ma macro, avec cette information, d'aller sélection le bon onglet.

Avec la barre déroulante c'est la seule façon que j'ai trouvé.
Merci!

Peut etre un ajoutant un délais d'attente.

Ci dessous avec délais de 5 secondes

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ActiveWorkbook.ActiveSheet.Range("A1").Select ActiveCell.Value = "=Word.Document.12|'" & myNum & "\10.1.2_Avis de perte auto.docm'!'!garanties'"   Application.Wait (Now + TimeValue("00:00:05"))   If ActiveCell.Value = "Auto" Then Feuil2.Select ElseIf ActiveCell.Value = "Garagiste / Garage" Then Feuil7.Select End If

---

Non finalement ça continue de donner le même message d'erreur la première fois uniquement ?

bonjour,
peux tu mettre le fichier en pj svp
a+