Discussion :

[mimicor15]

Bonjour, j'ai créer un petit programme VBA, tout fonctionne sauf lorsque je ferme avec le bouton quitter.

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton7_Click()
Call vider_historique
ActiveWorkbook.Save
 
Unload UserForm2
ActiveWorkbook.Close
End Sub

Mon VBAprojet est protéger par mot de passe, lorsque j' utilise le programme normalement et que je le ferme j'ai cet Ecran:



Par contre lorsque le projet est déprotégé tout fonctionne pas de message.


Je souhaite garder cette protection, mais avec ce message qui apparaît tout le temps et qui plus est ne peut être fermer q'avec le mot de passe c'est compliqué!

Quelqu'un pourrait il me dire d'ou mon problème peut il venir

en vous remerciant

[joe.levrai]

Bonjour,

tu n'as pas des procédure qui agissent physiquement dans ton projet vba ? (écriture de lignes de codes par exemple)

qu'Est-ce qu'il y a dans cette procédure "vider_historique" par exemple ?

[mimicor15]

Il y a plein de procédure dans une dizaine d'userform
Pour la fermeture de l'userform et donc du programme juste celle là

Code :

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

1
2
3
4
5
6
7
Sub vider_historique()                                         'supprime les miroirs après exportation
    Sheets(Array("listagentfor", "listagentfma")).Select
    Cells.Select
    Selection.ClearContents
    Sheets("listagentfor").Select
    Range("e1").Select
End Sub

[joe.levrai]

Alors tu n'as pas le choix que de tracer le moment où arrive la fenêtre d'invite de saisie du Mdp du projet

place un point d'arrêt sur cette ligne

Code :

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

Call vider_historique

et déroule en pas à pas la procédure pour voir quelle sous-procédure est responsable.

[mimicor15]

ok je vais tester, ce qui est curieux c'est que je viens de de lancer le programme chez moi sur mon pc portable et ça fonctionne nickel, pourtant même version d'exel??

Bon je viens de tester avec teamviewer sur mon pc au bureau.

1er essai tout fonctionne jusqu'a ActiveWorkbook.Close : après message mémoire insuffisante

3 essais suivants: excel à cesser de fonctionner et à ouvert un classeur vierge

J'ai ensuite neutralisé la ligne et recommencer la procedure, tout fonctionne et si je ferme avec la croix du fichier excel aucun message ni de demande de code.

La commande ActiveWorkbook.Close peut elle me planter le programme?

[joe.levrai]

Quel est le classeur actif au moment de l'exécution de cette ligne ?