coripdc
XLDnaute Nouveau
Bonjour à tous,
je voudrai supprimer l'affichage de téléchargement de fichier PDF dans le webbrowser.
ce message n'apparait que pour l'ouverture des pdf et pas pour les fichier txt ou image
c'est contraignant lorsque je dois passer à plusieurs fichiers pdf
Merci d'avance
je voudrai supprimer l'affichage de téléchargement de fichier PDF dans le webbrowser.
ce message n'apparait que pour l'ouverture des pdf et pas pour les fichier txt ou image
c'est contraignant lorsque je dois passer à plusieurs fichiers pdf
Merci d'avance
VB:
Private Sub txtChemin_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim NomeArquivo As String
If KeyCode = vbKeyReturn Then
lblNomActuel.Caption = Empty
txtNouveauNom.Value = Empty
WebBrowser1.Navigate ("about:blank")
lstArchives.Clear
NomeArquivo = Dir(txtChemin & "\*.*")
Do While NomeArquivo <> ""
If InStr(1, Right(NomeArquivo, 4), ".txt") > 0 Or InStr(1, Right(NomeArquivo, 4), ".pdf") > 0 Or InStr(1, Right(NomeArquivo, 4), ".doc") > 0 Or InStr(1, Right(NomeArquivo, 4), ".jpg") > 0 Then
lstArchives.AddItem NomeArquivo
End If
NomeArquivo = Dir
Loop
End If
End Sub