windows().activate

[invite7f696a56]

Bonjour,

Me voici avec un nouveau problème :

Si j'écris windows(monfichier).activate et que monfichier est ouvert, tout ce passe bien.
Mais je voudrais que si monfichier n'est pas ouvert, plutôt que de planter, ma macro envoie un message d'erreur.

Je vous remercie d'avance
Guy
-----

[invitef625d7cf]

Bonjour,

Avant de lancer windows(monfichier).activate, il faut que tu testes si le fichier est ouvert.

Si ce n'est pas le cas, l'ouvrir, puis lancer alors windows(monfichier).activate.

Cordialement.

[invite7f696a56]

Merci,

En fait, je ne veux pas l'ouvrir s'il n'est pas ouvert.

Donc, tester si le fichier est ouvert, s'il ne l'est pas, fin de la macro.
Je pense que c'est ça?
Mais je ne sais pas l'écrire en vba

je débute avec les macros

cordialement
Guy

[invitef625d7cf]

Tu trouveras ton bonheur ici:

Detect whether Excel workbook is already open (using VBA)

La première réponse t'indique comment créer la fonction IsWorkBookOpen() qui teste si le fichier est ouvert. La fonction retourne True si c'est le cas et False si ce n'est pas le cas

[A voir en vidéo sur Futura]

[invite7f696a56]

bé j'ai pas réussi.

Je voudrais simplement mettre au début de ma macro :

Si le fichier c:\dossier\nomdufichier.xls est ouvert alors on continue la macro, sinon, on stop la macro.

Merci
Guy

[Stan_94]

Bonjour,
place un "on error resume next" avant la commande d'activation.
(ou un on error goto xxxx si tu veux intercepter l'erreur)

[invitef625d7cf]

Si tu suis le lien que j'ai donné plus haut, tu trouves le srcipt suivant:

Option Explicit

Sub Sample()
    Dim Ret

    Ret = IsWorkBookOpen("C:\myWork.xlsx")

    If Ret = True Then
        MsgBox "File is open"
    Else
        MsgBox "File is Closed"
    End If
End Sub

Function IsWorkBookOpen(FileName As String)
    Dim ff As Long, ErrNo As Long

    On Error Resume Next
    ff = FreeFile()
    Open FileName For Input Lock Read As #ff
    Close ff
    ErrNo = Err
    On Error GoTo 0

    Select Case ErrNo
    Case 0:    IsWorkBookOpen = False
    Case 70:   IsWorkBookOpen = True
    Case Else: Error ErrNo
    End Select
End Function

Après la ligne:

 If Ret = True Then

au lieu de:

        MsgBox "File is open"

Tu mets ce que doit faire ton programme si le fichier est ouvert.

et après:

 Else

au lieu de:

        MsgBox "File is Closed"

Tu mets ce que doit faire ton programme si le fichier n'est pas ouvert.

Ça ne me semble pas insurmontable, même pour un débutant.

[invite7f696a56]

Mais c'est parfait !

ça fonctionne nickel

Merci beaucoup

Problème résolu

Guy