Discussion :

[Chris1972]

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 :

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

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 :

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

 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

[jfontaine]

Bonjour,

lorsque je viens d'ouvrir mon document

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

[Chris1972]

manuellement

[jfontaine]

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

[Chris1972]

oui c'est bien ça

[jfontaine]

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

[Chris1972]

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 :

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

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!

[jfontaine]

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

Ci dessous avec délais de 5 secondes

Code :

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

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

[Chris1972]

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

[kidone]

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