Je ne peux pas tester, il faudrait que j'ai les mêmes noms de feuilles et le même UserForm.
Mais, à première vue je dirais que le code marche bien et que c'est ton CodeOpenBat qui est vide.
Tes variables ne sont pas déclarées et par défaut elles se déclarent à l'intérieur d'une Sub.
Or, dans ton cas, il faut la déclarer en tout début de module pour qu'elle soit valable dans toutes tes Sub.
Donc, tout en haut, avant ta première sub, déclare ta variable :
Code :
- Public CodeOpenBat As String
- ____________________________________________
- Private Sub Annuler_Click()
- Unload UserForm1
- End Sub
|
Essaye déjà ça et reviens si ça ne marche toujours pas
---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1