Bonjour,
j'aurais voulu savoir si quelqu'un connaissait une fonction qui permet de savoir si un fichier excel est déjaà ouvert ou non car avec des macros liées a des boutons j'ouvre un fichier mais quand le fichier est déja ouvert il me demande de le fermer et le rouvre
donc j'aurais voulu tester si le fichier est ouvert si c'est le cas qu'il ne le reouvre pas mais qu'il aille directement dedans en s'inspirant de cette fonction qui teste si un fichier existe
Public Function ExisteFichier(S As String) As Boolean
'Fonction qui test si le fichier existe et qui est appelé par la macro "ChargerBase"
Dim Fichier As Object
Set Fichier = CreateObject("Scripting.FileSystemObject")
ExisteFichier = Fichier.FileExists(S)
End Function
j'aurais voulu savoir si quelqu'un connaissait une fonction qui permet de savoir si un fichier excel est déjaà ouvert ou non car avec des macros liées a des boutons j'ouvre un fichier mais quand le fichier est déja ouvert il me demande de le fermer et le rouvre
donc j'aurais voulu tester si le fichier est ouvert si c'est le cas qu'il ne le reouvre pas mais qu'il aille directement dedans en s'inspirant de cette fonction qui teste si un fichier existe
Public Function ExisteFichier(S As String) As Boolean
'Fonction qui test si le fichier existe et qui est appelé par la macro "ChargerBase"
Dim Fichier As Object
Set Fichier = CreateObject("Scripting.FileSystemObject")
ExisteFichier = Fichier.FileExists(S)
End Function