Fermeture de fichier non Excel

bernardrustrel · 13 Mai 2018

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 · 13 Mai 2018

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 · 13 Mai 2018

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 · 13 Mai 2018

Re Bernard

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

Fermeture de fichier non Excel

bernardrustrel

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

bernardrustrel

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

Discussions similaires