XL 2019 Mon Userform clignote

[ARaul]

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.

 

[TooFatBoy]

Hello,

Juste pour info : chez ça ne clignote point.

 

[Magnio]

C'est l'Userform 1 qui clignote ou l'Userform 3?
Bon, en tout cas comme TooFatBoy je n'ai pas de problème de clignotement non plus.

 

[ARaul]

Hello,

Juste pour info : chez ça ne clignote point.

Hello,

Juste pour info : chez ça ne clignote point.

D'accord

 

[ARaul]

C'est l'Userform 1 qui clignote ou l'Userform 3?
Bon, en tout cas comme TooFatBoy je n'ai pas de problème de clignotement non plus.

C'est le userform 1.
D'accord
Merci

 

[Xl60PassionFr]

Bonjour ARaul,

Pour info, on n'utilise pas une procédure sous forme de FONCTION si celle-ci ne renvoie rien 🤔🫤

Function UploadPDFfile_INSCRIPTION()
  Dim pdfPath As String
  Dim fileDialog As Object
  Dim docsPDFPath As String
  Dim newPdfPath As String
  Dim fso As Object
                        
  docsPDFPath = ThisWorkbook.Path & "\docsPDF"
    
  Set fso = CreateObject("Scripting.FileSystemObject")
  If Not fso.FolderExists(docsPDFPath) Then
    fso.CreateFolder docsPDFPath
  End If
    
  Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
  fileDialog.Filters.Clear
  fileDialog.Filters.Add "PDF Files", "*.pdf", 1
    
  If fileDialog.Show = -1 Then
    pdfPath = fileDialog.SelectedItems(1)
        
    newPdfPath = docsPDFPath & "\" & fso.GetFileName(pdfPath)
        
    fso.CopyFile pdfPath, newPdfPath, True
        
    TextBox24.Value = newPdfPath
        
    WebBrowser1.Navigate newPdfPath
  End If
End Function

Et sinon, peut-être en désactivant le rafraichissement écran

Sub UploadPDFfile_INSCRIPTION()
  Dim pdfPath As String
  Dim fileDialog As Object
  Dim docsPDFPath As String
  Dim newPdfPath As String
  Dim fso As Object
  docsPDFPath = ThisWorkbook.Path & "\docsPDF"
  Set fso = CreateObject("Scripting.FileSystemObject")
  If Not fso.FolderExists(docsPDFPath) Then
    fso.CreateFolder docsPDFPath
  End If
  Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
  fileDialog.Filters.Clear
  fileDialog.Filters.Add "PDF Files", "*.pdf", 1
  If fileDialog.Show = -1 Then
    ' Désactiver l'écran
    Application.ScreenUpdating = False
    ' La suite
    pdfPath = fileDialog.SelectedItems(1)
    newPdfPath = docsPDFPath & "\" & fso.GetFileName(pdfPath)
    fso.CopyFile pdfPath, newPdfPath, True
    TextBox24.Value = newPdfPath
    WebBrowser1.Navigate newPdfPath
    ' Réactiver l'écran
    Application.ScreenUpdating = True
  End If
End Sub

A+

 

[TooFatBoy]

Pour info, on n'utilise pas une procédure sous forme de FONCTION si celle-ci ne renvoie rien 🤔🫤

Ah tiens donc, personne ne le lui avait encore jamais dit... 😅

 

[Xl60PassionFr]

Ah tiens donc, personne ne le lui avait encore jamais dit... 😅

J'espère que SI 🤭 mais j'aime rappeler les choses si besoin et c'est le cas 🤣

 

[ARaul]

Bonjour ARaul,

Pour info, on n'utilise pas une procédure sous forme de FONCTION si celle-ci ne renvoie rien 🤔🫤

Function UploadPDFfile_INSCRIPTION()
  Dim pdfPath As String
  Dim fileDialog As Object
  Dim docsPDFPath As String
  Dim newPdfPath As String
  Dim fso As Object
                       
  docsPDFPath = ThisWorkbook.Path & "\docsPDF"
   
  Set fso = CreateObject("Scripting.FileSystemObject")
  If Not fso.FolderExists(docsPDFPath) Then
    fso.CreateFolder docsPDFPath
  End If
   
  Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
  fileDialog.Filters.Clear
  fileDialog.Filters.Add "PDF Files", "*.pdf", 1
   
  If fileDialog.Show = -1 Then
    pdfPath = fileDialog.SelectedItems(1)
       
    newPdfPath = docsPDFPath & "\" & fso.GetFileName(pdfPath)
       
    fso.CopyFile pdfPath, newPdfPath, True
       
    TextBox24.Value = newPdfPath
       
    WebBrowser1.Navigate newPdfPath
  End If
End Function

Et sinon, peut-être en désactivant le rafraichissement écran

Sub UploadPDFfile_INSCRIPTION()
  Dim pdfPath As String
  Dim fileDialog As Object
  Dim docsPDFPath As String
  Dim newPdfPath As String
  Dim fso As Object
  docsPDFPath = ThisWorkbook.Path & "\docsPDF"
  Set fso = CreateObject("Scripting.FileSystemObject")
  If Not fso.FolderExists(docsPDFPath) Then
    fso.CreateFolder docsPDFPath
  End If
  Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
  fileDialog.Filters.Clear
  fileDialog.Filters.Add "PDF Files", "*.pdf", 1
  If fileDialog.Show = -1 Then
    ' Désactiver l'écran
    Application.ScreenUpdating = False
    ' La suite
    pdfPath = fileDialog.SelectedItems(1)
    newPdfPath = docsPDFPath & "\" & fso.GetFileName(pdfPath)
    fso.CopyFile pdfPath, newPdfPath, True
    TextBox24.Value = newPdfPath
    WebBrowser1.Navigate newPdfPath
    ' Réactiver l'écran
    Application.ScreenUpdating = True
  End If
End Sub

A+

Merci pour votre apport.
Mais je n'ai pas eu satisfaction.

Le problème persiste.

 

[TooFatBoy]

Le problème persiste.

Ledit problème n'arrive point chez nous, donc il est difficile de trouver une solution. 🙁

Est-ce que ton lecteur N: est un lecteur réseau ?

 

[ARaul]

Ledit problème n'arrive point chez nous, donc il est difficile de trouver une solution. 🙁

Est-ce que ton lecteur N: est un lecteur réseau ?

Je ne comprends pas la question svp

 

[TooFatBoy]

Est-ce que ton lecteur N est un disque dur dans ton PC ?

 

[fanch55]

Bonjour à tous .
Pour pouvoir tester correctement j'ai du modifier les sub ci-dessous dans Userform1 :

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.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.

 

[vgendron]

Hello

Chez moi non plus pas de clignotement..
la seule chose qui pourrait être ressentie comme tel, c'est lorsqu'on clique sur valider: la listbox est vidée et rechargée..