[Résolu] Masquer BDG Enregistrer sous et Téléchargements

[Lone-wolf]

Bonsoir le Forum,

est-il possible d'empêcher l'ouverture des BDG's en Intitulé, lors d'un téléchargement d'un fichier?

voici le code que j'utilise:

Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Sub telecharger()
Dim i As Integer, fichier As String, cel As Range, plage As Range
i = 0
Sheets(1).Activate
With ActiveSheet
Set plage = .Range("a2:a11")
For Each cel In plage
i = i + 1
cel.Value = i
t = Timer + 5: Do Until Timer > t: DoEvents: Loop
If cel.Value = i Then
fichier = StrConv((cel.Offset(0, 1).Value & "" & cel.Offset(0, 2).Value), vbUnicode)
DoFileDownload fichier
End If
Next cel
chemin = "C:\Users\Lone-wolf\Desktop\Fichiers-xls"
ActiveWorkbook.SaveAs Filename:=chemin & fichier
ActiveWorkbook.Close
End With
End Sub

A+ 😎

 

[Victor21]

Re : Masquer BDG Enregistrer sous et Téléchargements

Bonsoir, loup solitaire.

est-il possible d'empêcher l'ouverture des BDG's

Voir ici

Personnellement, j'aime bien celle-ci :

Un ordinateur sans Windows, c'est comme un gâteau au chocolat sans moutarde...

😉

 

[Lone-wolf]

Re : Masquer BDG Enregistrer sous et Téléchargements

Bonsoir Victor, Jean-Marie,

et moi celle-ci: c'est quoi un GEEK??? 😕

"Euuuhh... c'est un gee(s)K ar des Stin"


a+ 😎