EBO55
Messages postés9Date d'inscriptionlundi 14 février 2005StatutMembreDernière intervention 1 mars 2005
-
25 févr. 2005 à 10:23
EBO55
Messages postés9Date d'inscriptionlundi 14 février 2005StatutMembreDernière intervention 1 mars 2005
-
1 mars 2005 à 14:40
Bonjour tout le monde,
j'ai un probleme assez chiant ;( En fait j'ai un fichier excel, qui
contient du code VBA, et des USF. Mon probleme, a chaque fois que
j'ouvre mon USF (ou tout du moins 1fois/2), lorsque l'action activé par
le bouton "ok" est fini, excel plante! Mais le vrai plantage, avec
demande de recuperation, envoi des données a microsoft...
Bref, je ne comprend pas, j'ai fais un debugage pour suivre ce que
faisait le programme, tout se termine comme prevu, la fonction de
fermeture du userform s'execute, mais apres cela, il plante ;(
quelqu'un aurait une petite idée d'ou cela pourrait venir?
EBO55
Messages postés9Date d'inscriptionlundi 14 février 2005StatutMembreDernière intervention 1 mars 2005 25 févr. 2005 à 10:59
salut !
Oui, cela plante toujours au meme endroit... Sur le meme USF
voici la fin de ma fonction "BoutonOk_Click"
'Si le PDF n'existe pas, on avertie l'utilisateur
If Dir(myfile) = "" Then
MsgBox "Attention, Le PDF n'existe pas"
End If
Unload UserForm1
End If
End Sub
Voici une partie du code qui appel le usf (public sub ajout)
If IsNumeric(Sheets(Feuille).calcul.Value) Then 'On verifie que le N° est bien entré
.....
If Not Sheets(Feuille).Range("A" & ligne) = "" Then
MsgBox "impossible la facture a déjà été saisie"
Else
UserForm1.Show
End If
Else
MsgBox "Erreur, le numero comptable n'est pas bon"
End If
End Sub
Bref, quand je debug, aucun problemùe de prog (a ce qu'il semble), le debuger va jusqu'au end sub de "ajout"...
J'ai remarqué que a chaque fois qu'il va planter, le USF a du mal a se
fermer (il ne se unload pas en 1/4 de sec comme a chaque fois, mais
reste 1sec, disparait et ca plante ;(
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 20223 25 févr. 2005 à 11:15
Re,
ce code tu viens de le rajouter ?
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload UserForm1
End Sub
si ce n'est pas le cas tu doit le supprimer car ici tu donne des conditions à la fermeture de ton formulaire et non pas l'ordre de fermer à nouveau.
sinon je ne vois rien dans ton code qui pourrais créer ce problème
vérifie que tu ne soit pas en mode édition sur ta feuille dans une cellule par exemple ce qui peu provoquer un plantage.