Discussion :

[nbelg27]

Bonjour,

j'ai un petit souci concernant une appli Access qui comunique avec Excel,
j'ai un bouton sur un form qui ouvre le fichier excel.

ce que je veux c'est juste tester si le fichier est ouvert
j'ai vu qu'il y avait une fonction "isopen", mais comment l'utiliser en sachant que le nom du fichier et son emplacment sont passés en paramétres dans la fonction qui ouvre le fichier

voila,

merci

[random]

tout simplement

is isopen("monfichier","sonemplacement") then

[nbelg27]

j'ai essayé ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If ISOPEN(strfichier, path) Then
    MsgBox "Le fichier " & strfichier & " est déja ouvert, veuillez le fermer avant de continuer", vbInformation
    Else
    MsgBox "ok"
    End If

ca marche pas

[nbelg27]

isopen est une propriété pas une fonction

donc j'ai essayé ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If appexcel.Workbooks.ISOPEN(strfichier) = True Then
    MsgBox "Le fichier " & strfichier & " est déja ouvert, veuillez le fermer avant de continuer", vbInformation
    Else
    MsgBox "ok"
    End If

mais ca marche toujours pas
quelqu'un aurait une idée :

[nbelg27]

personne n'a d'idée

[pgz]

Bonsoir,

Une idée : on devrait ^pouvoir faire avec la collection Workbooks et ses propriétés .count, pour savoir si un classeur est ouvert, et une boucle workbooks.item(i).name pour lire les noms des classeurs ouverts et les comparer à celui dont tu cherches à savoir s'il est ouvert.
Cordialement,
pgz

[Tofalu]

Une autre solution ... faire comme si il était fermé et s'il est ouvert, une erreur sera levée ... il suffit alors de gérer cette erreur avec un on error ...

C'est de loin ma solution préférée qui rend les codes plus robustes