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

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