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

Lone-wolf

XLDnaute Barbatruc
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:


Code:
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+ :cool:
 
Dernière édition:

Lone-wolf

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

Bonsoir Victor, Jean-Marie,

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

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


a+ :cool:
 

Haut Bas