XL 2019 Mon Userform clignote

  • Initiateur de la discussion Initiateur de la discussion ARaul
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ARaul

XLDnaute Junior
Bonjour chers tous.
Mon Userform clignote lorsque
  • je charge un fichier PDF (Userform 1; Bouton "Import DOC")
  • je fais afficher une ligne de mon Listview, contenant un chemin d'accès de fichier PDF (Userform 1; Listview 2)
  • Je visualise un fichier PDF (Userform1; Bouton "Ouvrir DOC")
Je sollicite vivement vos expertises
Fichier joint.
 

Pièces jointes

Solution
Bonjour à tous .
Pour pouvoir tester correctement j'ai du modifier les sub ci-dessous dans Userform1 :
VB:
Function showPDFinAnotherWebBrowser_INSCRIPTION()
    Select Case True
        Case TextBox24 = "":    MsgBox "Aucun Document PDF chargé.", vbExclamation
        Case Dir(TextBox24) = "":  MsgBox "Document PDF non trouvé", vbCritical
        Case Else
            Me.Hide
                UserForm3.Caption = TextBox24
                UserForm3.WebBrowser1.Navigate TextBox24
                UserForm3.Show
            Me.Show
    End Select
End Function

Function ExtractPDFLinktoWebBrowser()
    WebBrowser1.Navigate "about:blank"
    Select Case True
        Case TextBox24.Value = "":
        Case Dir(TextBox24) = "": MsgBox "Document...
Pour la préoccupation 1 (Userform1 clignote lors de l'importation du PDF à parti du buton "Import DOC"), j'espère toujours votre apport.
Je ne peux rien de plus pour vous en ce cas car je ne peux reproduire le phénomène :
araul.gif
 
Bonjour à tous .
Pour pouvoir tester correctement j'ai du modifier les sub ci-dessous dans Userform1 :
VB:
Function showPDFinAnotherWebBrowser_INSCRIPTION()
    Select Case True
        Case TextBox24 = "":    MsgBox "Aucun Document PDF chargé.", vbExclamation
        Case Dir(TextBox24) = "":  MsgBox "Document PDF non trouvé", vbCritical
        Case Else
            Me.Hide
                UserForm3.Caption = TextBox24
                UserForm3.WebBrowser1.Navigate TextBox24
                UserForm3.Show
            Me.Show
    End Select
End Function

Function ExtractPDFLinktoWebBrowser()
    WebBrowser1.Navigate "about:blank"
    Select Case True
        Case TextBox24.Value = "":
        Case Dir(TextBox24) = "": MsgBox "Document PDF non trouvé", vbCritical
        Case Else:                WebBrowser1.Navigate TextBox24.Value
    End Select
End Function
Chez moi aucun clignotement.
Je pense que ce serait parceque le poste des surchargé que ça ne répond pas librement à mon niveau comme chez vous.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
204
Réponses
2
Affichages
196
Réponses
11
Affichages
225
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
532
Retour