Fermeture de fichier non Excel

[bernardrustrel]

Bonjour

Je pense que la plupart d'entre nous savent ouvrir un fichier quelconque via Excel VBA.
Généalogiste, je me sers d'une appli EXCEL pour gérer les actes d'état civil. Ces derniers sont tous des .JPG.
que j'ouvre via un lien HTML dans mon appli.
Je voudrais avec cette même appli déplacer le fichier .JPG ouvert d'un dosier sorce vers un dossier de destination.
Pour ce faire il me faut préalablement fermer le fichier .JPG ouvert avant d'appliquer

Set FSO = CreateObject("Scripting.Filesystemobject")
SourceFileName = "Source"
DestinFileName = "Destination"

FSO.MoveFile Source:=SourceFileName, Destination:=DestinFileName

D'ou ma question existe t il un moyen de fermer le fichier . JPG ouvert via excel vba.

En espérant avoir été assez clair dans ma question, merci par avance.Cordialement
Bernard

 

[Lone-wolf]

Bonjour Bernard

Voici un classeur exemple. Pour test : double-clique sur l'un des liens, choisi enregistrer, puis OK.
J'éspère que tu utilise Firefox.

 

[bernardrustrel]

Bonjour
Merci pour cette réponse, malheureusement j'ai un plantage d'erreur de compilation sur cette fonction



Public Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Ps je suis sous 2007 32bits

Merci encore

 

[Lone-wolf]

Re Bernard

Il faut supprimer tous les PtrSafe, celui-ci vaut pour les versions 64bits.