Discussion :

[tony020422]

En fait je tourne sous excel 2003!

Pour le reste je pense avoir tout restructuré mais ca marche pas...

le module 1 qui s'appelle FICHES_ISO marche nikel
le module 2 qui s'appelle DDE_LIGNE_EDF non.... ca bloque au moment de passer de l'un a l'autre...

Tout se lance a partir du code du bouton que j'ai placé dans ThisWorkBook ou j'ai mais ca:

Code :

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

1
2
3
4
5
6
7
8
9
Sub CommandButton1_Click()
 
Call FICHES_ISO
 
If CheckBox1.Value = True Then
   Call DDE_LIGNE_EDF
End If
 
End Sub

Je ne sais pas d'ou proviendrait l'erreur.......ne serait ce pas lié au fait que je travaille peut etre vers la fin sur un doc qui n'est pas celui actif du moment ?!

[aalex_38]

Difficile de répondre quand on ne sait pas exactement ou ça coince.

Utilises le debogguer, soit pas a pas soit en utilisant les points d'arret (rond rouge lorsque tu clique dans VBE sur la colonne à gauche du code) tout est dans le menu Débogage.

Tu peux egalement mettre un msgbox entre les deux macro.
des debug.print dans le code sont souvent egalement utile !

[tony020422]

Voila mon excel complet......

Le module 1 a vrai dire tourne donc pas besoin de vérifier (en meme temps tu pourras pas..)

Le module 2 je sais pas (normalement oui quand tout lemonde est ensemble)

Le reste je te laisse voir!!

http://www.cijoint.fr/cjlink.php?fil...cijPXrMMhp.xls

[aalex_38]

le reste je te laisse voir!!

Alors là, c'est trop fort, donnes moi ton cahier des charges et je te donnerai une macro clef en main !

Non je rigole, déja je n'utilse pas les mêmes type de bouton que toi (je trouves ça moins pratique, si quelqu'un peut en dire plus ?)

Ensuite quand je vais dans le code du bouton cette ligne est en rouge, ce qui me parait normal vu la syntaxe:

Code :

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

If Case à cocher 34.Value = True Then

Comme ça, ça devrait déjà être mieux :

Code :

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

1
2
3
4
5
6
7
8
9
Sub CommandButton1_Click()
 
Call FICHES_ISO
 
If Caseàcocher34.Value = True Then
   Call DDE_LIGNE_EDF
End If
 
End Sub

Edit: au passage on pourra admirer la decouverte de case et bientot des select

[tony020422]

A la fin du module1 apparait un message VBA avec un panneau attention et écrit Objet Requis...Ca n'a pas l'air d'etre une erreur tel quel....

Pour le reste la casse j'ai essayé Caseacocher34 CheckBox1....mais rien ne marche...et je necomprends pas l'erreur.......

Jaimerais juste que tu m'aides dans cette galère pas que tu me fasses tout !!