Form load/Unload: erreur de bloc with

[Orodreth]

Bonjour à tous.

J'ai testé un petit code pour empêcher l'initialisation d'un de mes formulaires.

Private Sub UserForm_Initialize()
If ActiveWorkbook.Name = "CSV Clients.xls" Then
    CheminAdresse = ActiveWorkbook.Path & "\"
    CheminRacine = ActiveWorkbook.Path & "\"
    On Error Resume Next
    MkDir CheminAdresse & "Commandes_Clients"

    CheminAdresse = CheminAdresse & "Commandes_Clients\"

    SauvegardeFaite = False
    With Me
        .Caption = "Etat des commandes clients - " & Date
        .dtpCommandesClient.Value = Date
        With .pgbCommandesClient
            .Min = 0
            .Value = 0
            .Max = 6
            .Visible = False
        End With
    End With
    Call FaireDate
    Else
    Unload frmCSV
End If
End Sub

En gros, si mon classeur s'appelle "CSV Clients.xls", tout va bien. En revanche, si le classeur a déjà servi et s'est enregistré sous un autre nom, je ne veux plus que mon formulaire puisse être chargé.
Dans l'open du workbook, je fais bien mon test, et c'est bon, mais si un malin lance mon form depuis vba, je n'ai rien pour le contrer.
Et dans le code que je viens de vous transmettre, il me fait une "erreur de bloc with non défini" à la sortie du sub.

Je me doutais qu'il y aurait une erreur, mais je ne sais pas pourquoi ?
Quelqu'un peut m'aider ?

Merci d'avance.
Thomas

 

[Pierrot93]

Re : Form load/Unload: erreur de bloc with

Bonjour Thomas

quel est le nom de ton USF ? Si c'est "frmCSV", a priori ca viendrait du "unload" d'un USF lors de sa propre initailisation, privilégier "Exit Sub" dans ce cas.

bonne journée
@+

 

[JeanMarie]

Re : Form load/Unload: erreur de bloc with

Bonjour Orodreth, Pierrot93

Orodreth, en regardant la création à la volée d'userform imaginée et décrite par myDearFriend! dans ce fil :
https://www.excel-downloads.com/threads/mot-de-passe-crypte.79101/
En appliquant cette solution (attention, il y a du boulot) à ton userform, il serait impensable à ton petit malin de le lancer depuis l'éditeur de VBA, puisqu'il n'existe pas.

@+Jean-Marie

 

[Orodreth]

Re : Form load/Unload: erreur de bloc with

Bonjour Pierrot93, JeanMarie.

@Pierrot
J'y ai pensé, mais le formulaire s'affiche quand même.
J'ai essayé avec un .hide également, en demandant la décharge lors de la fermeture du classeur, sans effet non plus 🙁

@JeanMarie
😱 j'ai pas le niveau, je suis qu'un petit développeur débrouillard 🙁
(va étudier quand même le code en espérant comprendre quelque chose)

Merci à vous deux
Thomas

 

[Pierrot93]

Re : Form load/Unload: erreur de bloc with

Re Thomas, Bonjour JeanMarie

essaye avec "End" mais cette instruction réinitialise les variables du module...

@+

 

[Pierrot93]

Re : Form load/Unload: erreur de bloc with

Re

autre idée, faire le test en amont, via la procédure qui lance ton USF, si OK, tu lances, sinon rien, a voir si cela peut s'adapter à ton projet.

@+

 

[Orodreth]

Re : Form load/Unload: erreur de bloc with

re Pierrot, le fil.

Je fais déjà le test sur le nom du classeur quand je lance l'application (donc sur l'open). ça ça marche.

Je voudrais éviter que quelqu'un me fasse: alt+F11, F5, et lance mon usf. Donc empêcher l'initialisation.

Le code de JeanMarie pourrait convenir, si je le comprend un jour 🙁

Encore merci,
Thomas

 

[Pierrot93]

Re : Form load/Unload: erreur de bloc with

Re

essaye le "End" comme dit dans mon post de 12h26, ou protège ton projet vba, bien que l'on sache qu'il soit possible de le faire sauter...

@+

 

[Orodreth]

Re : Form load/Unload: erreur de bloc with

Re.

ça marche \o/

Merci beaucoup Pierrot, fallait connaître celui là 😛