[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:
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas