Comment tester si un fichier (non Excel) est déjà ouvert ?

[jerome25]

Bonjour le Forum,

J’ai écrit une petite macro qui, dans un premier temps, me liste les fichiers contenus dans un dossier. Puis, après modification de certains noms de fichiers sur ma feuille Excel, cette macro me permet de renommer les fichiers désirés grâce à l’instruction Name oldpathname As newpathname.

Le problème est que si un fichier est déjà ouvert, la macro s’arrête à cause d’une « Erreur d’exécution ‘75’ : Erreur d’accès Chemin/Fichier ». J’ai contourné le problème en utilisant un On Error GoTo avec un message d'erreur.

Mais existe-t-il une façon de tester si un fichier (non Excel, principalement pdf) est déjà ouvert ? (sachant qu’en travaillant sur un réseau, ces fichiers peuvent-être ouverts par d’autres utilisateurs)


Merci d’avance,
Jérôme

 

[eriiic]

Re : Comment tester si un fichier (non Excel) est déjà ouvert ?

Bonjour,

une fonction : Test If A File Is Open
eric

 

[Staple1600]

Re : Comment tester si un fichier (non Excel) est déjà ouvert ?

Bonsoir à tous


Une autre fonction (qui en fait n'en est pas une autre 😉) en provenance de la maison mère
(un chouia plus courte)

NB: En relisant bien, les deux fonctions fonctionnent sur le même principe.

Comme cela , tu as le choix 😉

 

[jerome25]

Re : Comment tester si un fichier (non Excel) est déjà ouvert ?

Bonjour à tous,

Merci Eric et JM. Si je comprends bien les codes que vous avez envoyé, c’est effectivement le même principe. On essaye d’ouvrir le fichier, et s’il y a une erreur c’est qu’il est déjà ouvert.

Je vais utiliser ça dans ma macro.

Merci encore.
Jérôme