Fichier déjà ouvert

[Le rital]

Bonjour le forum,

Quand j'ouvre un fichier excel affiche "fichier déjà ouvert"

Comment régler ce problème ?

Idem pour word

Merci d'avance

Cordialement

Le rital

 

[Myta]

Bonsoir

regarde pt-etre par ceci

Vérifier si un classeur est ouvert.
Comment vérifier si un classeur simplex.xls est ouvert et l'ouvrir
si ce n'est pas le cas ?

Sub OuvreSiPasOuvert()
' activer le fichier ==> sinon l'ouvrir
On Error Resume Next
Workbooks("simplex.xls").Activate
If Err <> 0 Then
fichier = "c:\MesCacouillous\SosMpfe\simplex.xls"
Workbooks.Open Filename:=fichier
If Err <> 0 Then
MsgBox "Le fichier '" & fichier & "' est introuvable"
End If
End If
End Sub

Tu peux aussi remplacer Windows("simplex.xls").Activate par n=
Windows("simplex.xls").Width si tu veux pas activer la fenêtre

Si ça t'arrive souvent de chercher à savoir si tel ou tel classeur est déjà
ouvert ou non, pourquoi pas une petite fonction dans un coin de ton perso.xls :

Function IsOpen(Classeur$) As Boolean
On Error Resume Next
IsOpen = Not Workbooks(Classeur) Is Nothing
Err.Clear
End Function

Ensuite, dans ton code :

If not IsOpen("Simplex.xls") Then etc.

 

[le rital]

Bonjour Myta et le forum,

Merci pour ta réponse

Bonne fêtes de fin d'année

Cordialement

Le rital