XL 2019 Userform imbriquée

Dudu2

XLDnaute Barbatruc

• 4 Avril 2022

• #16

Ok quand tu pourras transmettre le fichier, fais-le.
En attendant, je ne peux rien faire. Tu ne donnes même pas le message d'erreur qui s'affiche.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 4 Avril 2022

• #17

C'est peut-être une erreur de contexte pas encore bien installé si tu as un gros fichier.
Essaie:

VB:

Option Explicit

Public ExcelWindow As Window

Private Sub Workbook_Open()
    On Error Resume Next
    Do
        Err.Clear
        DoEvents
        Set ExcelWindow = ActiveWindow
        ExcelWindow.Visible = False
    Loop While Err
    On Error GoTo 0

    FrmAccueil.Show vbModal 'vbModeless
End Sub

Selon que tu veux ton UserForm Modal ou pas utilise vbModal ou vbModeless.
Ce sont des valeurs entières et False est impropre.

 

Pièces jointes

• Classeur1b.xlsm

  16.6 KB · Affichages: 5

Dernière édition: 4 Avril 2022

Vote positif 0 Vote négatif

J

julien1982

XLDnaute Occasionnel

• 5 Avril 2022

• #18

julien1982 à dit:

Je suis sur le téléphone pr répondre c'est pr cela que je ne peux pas transmettre le fichier. la. Ton fichier classeur1b fonctionne chez moi je l'ai essayé qd tu la posté.

Cliquez pour agrandir...

Bonjour Dudu2, ci joint mon fichier.
Pour ce qui est de ton fichier dan le post #5 fonctionne parfaitement, c'est en inserant ce code dans mon fichier que cela bloque....

 

Pièces jointes

• Creation Bordereau.xlsm

  47.3 KB · Affichages: 14

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Avril 2022

• #19

Bonjour,

Je ne peux strictement rien faire avec ton fichier.
Il n'y a aucun plantage.
Aucun UserForm ne s'affiche et la fenêtre est grisée, aucune action n'est possible et évidemment aucun accès au code.
En fait je pense que c'est parce que l'option d'activer le code n'est pas disponible.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Avril 2022

• #20

J'ai finalement pu reproduire l'erreur en renommant le fichier.

 

Vote positif 0 Vote négatif

J

julien1982

XLDnaute Occasionnel

• 5 Avril 2022

• #21

Dudu2 à dit:

J'ai finalement pu reproduire l'erreur en renommant le fichier.

Cliquez pour agrandir...

ci joint le fichier celui la marche normalement mais je n'ai pas intégrer ton code.

 

Pièces jointes

• Creation Bordereau V1.xlsm

  50.6 KB · Affichages: 3

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Avril 2022

• #22

Je n'ai pas trouvé l'erreur.
Il y a quelque chose de spécial dans ton fichier et je sais pas quoi.
De plus à nouveau je ne peux rien en faire. Pas d'erreur, pas d'accès au VBA. Ce n'est pas normal.
Je l'ai recréé de toutes pièces avec le même code lorsque j'y avais accès et ça fonctionne.

 

Pièces jointes

• Creation Bordereau New.xlsm

  28.5 KB · Affichages: 2

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Avril 2022

• #23

ci joint le fichier celui la marche normalement mais je n'ai pas intégrer ton code.

Cliquez pour agrandir...

Non, j'ai le même phénomène. Excel grisé et rien n'est accessible.
Ces fichiers ne sont pas très sains.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Avril 2022

• #24

Tu as enregistré ces fichiers avec la fenêtre masquée.
Manuellement il faut aller dans Affichage / Afficher (la fenêtre).
C'est pour ça que je n'y vois rien et c'est pour ça que ça plante car dans l'ouverture du classeur on récupère l'ActiveWindow qui n'existe pas (Nothing).

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Avril 2022

• #25

Ou alternativement faire ça:

Code:

Option Explicit

Public ExcelWindow As Window

Private Sub Workbook_Open()
    Me.Windows(1).Visible = True
    Set ExcelWindow = ActiveWindow
    ExcelWindow.Visible = False
    FrmAccueil.Show False
End Sub

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Avril 2022

• #26

Bonjour le Fil
Idem chez moi
le fichier n'affiche rien (gris) pas d'erreur !
Bonne journée
Jean marie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Avril 2022

• #27

Re
la démarche de Dudu2 , permet l'accès au fichier !
merci
Jean marie

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Avril 2022

• #28

Bonjour @ChTi160,
Oui il n'affiche rien parce que les modifs et le VBA ne sont pas activés.
Mais tu ne le vois pas parce que la fenêtre est masquée et que le fichier a été enregistré comme ça.
Il faut aller dans Affichage / Afficher pour voir la fenêtre et agir.

C'est pour ça que dans le Sub Workbook_Open() je commence maintenant par un Me.Windows(1).Visible = True pour afficher la fenêtre et ne pas récupérer un ActiveWindow à Nothing (qui provoque l'erreur).

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 5 Avril 2022

• #29

Ceci dit je peux faire directement:

VB:

Option Explicit

Public ExcelWindow As Window

Private Sub Workbook_Open()
    Set ExcelWindow = Me.Windows(1)
    ExcelWindow.Visible = False

    UserForm1.Show vbModal
End Sub

sans chercher l'ActiveWindow.

Ci-joint le classeur modèle ainsi codé.

 

Pièces jointes

• Classeur1b.xlsm

  16.6 KB · Affichages: 2

Vote positif 0 Vote négatif

J

julien1982

XLDnaute Occasionnel

• 5 Avril 2022

• #30

Dudu2 à dit:

Je n'ai pas trouvé l'erreur.
Il y a quelque chose de spécial dans ton fichier et je sais pas quoi.
De plus à nouveau je ne peux rien en faire. Pas d'erreur, pas d'accès au VBA. Ce n'est pas normal.
Je l'ai recréé de toutes pièces avec le même code lorsque j'y avais accès et ça fonctionne.

Cliquez pour agrandir...

Celui marche chez moi aussi, je vais reprendre mon classeur entierement pour refaire un classeur propre car effectivement il a peut etre (surement même) un problème.

 

Vote positif 0 Vote négatif