Test fichier xlsx déjà ouvert

Bonjour,

https://support.microsoft.com/fr-ca/kb/291295
Testé si ouvert sur les extensions : .xls, .xlsx, .xlsm



Jecherche

Bonjour tous
Merci , mais ça je l'ai depuis le début pourtant je l"avais précisé !!

J'ai repris une fonction qui teste si un fichier Xls nommé est ouvert ( il fonctionne depuis .... 10ans !)

Cliquez pour agrandir...

c'est exactement la même!, bien lire la suite aussi> c'est ce qui fait que je tourne en rond !!
A mon avis que le pb vient de l'explorateur il n'y a pas de contrôle sur "Ouvrir" afin de savoir si le fichier select est ouvert
Si je saute cette fonction là c'est windows/excel qui met le traditionnel message Dejà ouvert ..etc mais ensuite le code Bug

Comme ceci (avec des infos glanées ici et ailleurs), est-ce que ça répond à la question . A+

Dim testouvert As Integer
Sub essai1()
Dim FileName As String, fichier As String
FileName = Application.GetOpenFilename("Classeurs Excel(*.xls*),*.xls*, Macros complémentaires (*.xla),*.xla")
MsgBox "Vous avez-sélectionné : " & FileName, vbInformation, "Illustration - GetOpenFilename"

If FileName = "Faux" Or FileName = "" Then MsgBox ("Aucun fichier sélectionné"): Exit Sub

For i = Len(FileName) To 1 Step -1
If Mid(FileName, i, 1) = "\" Then
fichier = Right(FileName, (Len(FileName) - i))
i = 1
End If
Next i

Call FichierOuvert(fichier)
If testouvert = 0 Then MsgBox ("fichier ouvert"): Exit Sub
Workbooks.Open FileName:=FileName
'End If
End Sub
Function FichierOuvert(fic As String)
On Error Resume Next
Set FichierOuvert = Workbooks(fic)
testouvert = Err
End Function

Bonsoir
Merci Chalet , rien que "Application.GetOpenFilename" m'a remis sur la bonne route j'ai juste repris :
j'ai même selectionné mon répertoire avant pour arriver directement dessus, puis repris ma fonction Fic_ouvert et tout est nickel !!

Bonjour
Il y a quand même un soucis !
Si je ne mets pas de fichier et clique ANNULER , dans la suite (via msgbox) cela me donne le nom du fichier de la liste ( il n'y en a qu'un dans mon cas) et ensuite j'ai ERREUR Fichier introuvable ???
cela doit provenir d'un manque de paramètre dans getfileOpen si Cancel ??

c'est EXcel ou Windows qui gère cette erreur ? ne peut-on pas traiter ?

Re,

Dans ma procédure ci-dessus, j'avais rajouté un test qui me semble fonctionner si je clique sur Annuler dans la fenêtre d'ouverture d'un fichier :

If FileName = "Faux" Or FileName = "" Then MsgBox ("Aucun fichier sélectionné"): Exit Sub

a+