Si fichier ouvert rien sinon ouvre le

**LaMite** · 06/05/2014, 15h26

Bonjour

Dans un code de vba, je souhaite faire ouvrir le fichier par l'utilisateur si et seulement si celui-ci n'est pas déjà ouvert.
Je commence tout juste à utiliser On Error dans mes macros.
Voici ce que je souhaite gérer comme erreur :
1/ si le fichier est ouvert : tu ne fais rien
2/ si le fichier n'est pas ouvert, tu tentes de l'ouvrir
2a/ si le peux l'ouvrir : ouvre
2B/ si tu ne le trouves pas ou qu'il n'est pas bien nommer : tu quittes la macro

voici le code que j'ai actuellement réalisé. le ic, si mon fichier est déjà ouvert le message d'erreur me disant qu'il est introuvable continue d'apparaître... et cela ne poursuis pas ma macro après... buuuug ! :p
ha oui, et je passe par un userform car je propose l'ouverture de plusieurs fichiers en même temps !
bien entendu, on connais d'avance le chemin et le nom du fichier qu'il faut ouvrir.

merci de votre aide !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub btnOK_Click()
 
Dim cheminBEbud, fichierBEbud, ouvreBEbud As String 'pour fichier 1
Dim cheminBEsupport, fichierBEsupport, ouvreBEsupport As String 'pour fichier 2
Dim cheminTDB, fichierTDB, ouvreTDB As String 'pour fichier 3
Dim estouvert As Boolean
 
estouvert = False
 
'pour fichier 1
If Box_BE_bud.Value = True Then 
ouvertureBEbud:
    ThisWorkbook.Activate
    Sheets("Commandes").Select
    cheminBEbud = Range("D6").Value
    fichierBEbud = Range("B6").Value & ".xlsm"
    ouvreBEbud = cheminBEbud & "\" & fichierBEbud
 
    On Error GoTo ouvre
    Workbooks(fichierBEbud).Activate
    On Error GoTo 0
    estouvert = True
    MsgBox "Le fichier est déjà ouvert !", vbOKOnly + vbCritical, "ERREUR OUVERTURE FICHIER"
ouvre:
    If estouvert = False Then
        ChDir cheminBEbud
        On Error GoTo erreur
        Workbooks.Open Filename:=ouvreBEbud
erreur:
        MsgBox "Le fichier " & fichierBEbud & " est introuvable ou n'existe pas !" & Chr(10) _
        & "Veuillez vérifier l'existence du fichier, son nom et son chemin d'accès dans la feuille Commandes." _
        , vbOKOnly + vbCritical, "ERREUR OUVERTURE FICHIER"
        GoTo fermeture
    End If
End If
 
' ce code est identique pour chaque bouton de mon UF. (j'ai 4 boutons)
 
fermeture:
ThisWorkbook.Activate
Unload Me
UserForm3_ouverture_file.Hide
 
End Sub

**patricktoulon** · 06/05/2014, 15h38

Bonjour
La gestion d'erreur peut avoir des avantages mais personnelement je prefere les eviter car trop sensible a intergrer dans une macro qui doit s'executer d'une manière ou d'une autre

je te propose de tester dans l'application si le classeur est ouvert
une petite macro toute simple que l'on pourrais transformer en fonction avec argument s
allez

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test_la_presence_du_fichier()
MsgBox ThisWorkbook.Name
For Each wb In Application.Workbooks
If wb.Name = "Classeur1" Then ordre = "oui"
Next
If ordre = "oui" Then
MsgBox "le classeur est deja ouvert"
Else
MsgBox "le classeur n'est pas ouvert"
'action a faire (reste de ta macro )
'ouverture du classeur
End If
End Sub

Au plaisir

**LaMite** · 06/05/2014, 15h57

bonjour

votre code fonctionne mais ne répond pas à mon problème.

cdlt

**patricktoulon** · 06/05/2014, 16h08

je t'ai donné une solution plus propre afin de tester si un fichier est ouvert
tu ne t'attent tout de même pas que je refasse ton code a ta place quand même

j'ai regarder ton code initial il faut une minute tout au plus pour intégrer la méthode que je viens de te donner

**casefayere** · 06/05/2014, 16h09

Bonjour,

Patrick a raison et il ne te reste plus qu'à l'ouvrir, un autre exemple à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
...
Dim ouvert As Boolean, class As Workbook
Dim racine As String
'-------------------------------------------------------------------------------
ouvert = False
racine = ActiveWorkbook.Path
Set classeur = ActiveWorkbook
For Each class In Workbooks
    If class.Name = "tonclasseur.xlsm" Then ouvert = True
Next
If ouvert = False Then Workbooks.Open (racine & "\" & "tonclasseur.xlsm")
 
...

PS : on s'est croisé, Patrick

Invité · 06/05/2014, 16h16

dans le même esprit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public wb As Workbook
Sub test_la_presence_du_fichier()
Dim Rep As String
Dim Fichier As String
 
Dim I As Long
Dim ordre As Boolean
Rep = "C:\MyTest\" 'repertoire
Fichier = "Nouveau Feuille Microsoft Office Excel.xlsx" 'nom du fichier.xls
 
For I = 1 To Application.Workbooks.Count
    Set wb = Application.Workbooks(I)
    If wb.Name = Fichier Then ordre = True
Next
If ordre = False Then 'si le fichier n'est pas ouvert.
    Set wb = Workbooks.Open(Rep & Fichier)
End If
End Sub

toujours dans le même esprit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
Dim Wb As Workbook
Set Wb = test_la_presence_du_fichier("C:\MyTest\", "Nouveau Feuille Microsoft Office Excel.xlsx")
End Sub
 
 
Function test_la_presence_du_fichier(Rep As String, Fichier As String) As Workbook
Dim I As Long
Dim ordre As Boolean
For I = 1 To Application.Workbooks.Count
    Set test_la_presence_du_fichier = Application.Workbooks(I)
    If test_la_presence_du_fichier.Name = Fichier Then ordre = True
Next
If ordre = False Then 'si le fichier n'est pas ouvert.
    Set test_la_presence_du_fichier = Workbooks.Open(Rep & Fichier)
End If
End Function

**patricktoulon** · 06/05/2014, 16h22

Re
salut casefayere
en fonction ca donnerait un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
If fichier_ouvert("nom du classeur") = False Then Workbooks.Open ("chemin du classeur")
End Sub
 
Function fichier_ouvert(nom) As Boolean
fichier_ouvert=false
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name = "nom du classeur" Then fichier_ouvert = True
Next
End Function

**letudiant68** · 06/05/2014, 16h32

Bonjour votre erreur est toute simple vous avez oublié de mettre un Exit Sub dans le cas où il n'y a pas d'erreur.
Essayez avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub CommandButton1_Click()
 
    Dim cheminBEbud, fichierBEbud, ouvreBEbud As String 'pour fichier 1
    Dim cheminBEsupport, fichierBEsupport, ouvreBEsupport As String 'pour fichier 2
    Dim cheminTDB, fichierTDB, ouvreTDB As String 'pour fichier 3
    Dim estouvert As Boolean
 
    estouvert = False
 
    'pour fichier 1
    If Box_BE_bud.Value = True Then
ouvertureBEbud:
        ThisWorkbook.Activate
        Sheets("Commandes").Select
        cheminBEbud = Range("D6").Value
        fichierBEbud = Range("B6").Value & ".xlsm"
        ouvreBEbud = cheminBEbud & "\" & fichierBEbud
 
        On Error GoTo ouvre
        Workbooks(fichierBEbud).Activate
        On Error GoTo 0
        estouvert = True
        MsgBox "Le fichier est déjà ouvert !", vbOKOnly + vbCritical, "ERREUR OUVERTURE FICHIER"
        Unload Me
        UserForm3_ouverture_file.Hide
        Exit Sub
ouvre:
        If estouvert = False Then
            ChDir cheminBEbud
            On Error GoTo erreur
            Workbooks.Open Filename:=ouvreBEbud
            Unload Me
            UserForm3_ouverture_file.Hide
            Exit Sub
erreur:
            MsgBox "Le fichier " & fichierBEbud & " est introuvable ou n'existe pas !" & Chr(10) _
            & "Veuillez vérifier l'existence du fichier, son nom et son chemin d'accès dans la feuille Commandes." _
            , vbOKOnly + vbCritical, "ERREUR OUVERTURE FICHIER"
            GoTo fermeture
        End If
    End If
 
    ' ce code est identique pour chaque bouton de mon UF. (j'ai 4 boutons)
 
fermeture:
    ThisWorkbook.Activate
    Unload Me
    UserForm3_ouverture_file.Hide
 
End Sub

**patricktoulon** · 06/05/2014, 16h41

rdurupt on s'est croisé

et bein avec ca .........

**LaMite** · 06/05/2014, 16h43

dans le cas où il n'y a pas d'erreur je ne veux pas quitter la macro mais je veux qu'il ouvre mon fichier 2.... (dont le code est identique au fichier 1).
je travaille sur une boucle pour simplifier... mais je n'y parviens pas à 100% pour l'instant.

Envoyé par letudiant68

Bonjour votre erreur est toute simple vous avez oublié de mettre un Exit Sub dans le cas où il n'y a pas d'erreur.
Essayez avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub CommandButton1_Click()
 
    Dim cheminBEbud, fichierBEbud, ouvreBEbud As String 'pour fichier 1
    Dim cheminBEsupport, fichierBEsupport, ouvreBEsupport As String 'pour fichier 2
    Dim cheminTDB, fichierTDB, ouvreTDB As String 'pour fichier 3
    Dim estouvert As Boolean
 
    estouvert = False
 
    'pour fichier 1
    If Box_BE_bud.Value = True Then
ouvertureBEbud:
        ThisWorkbook.Activate
        Sheets("Commandes").Select
        cheminBEbud = Range("D6").Value
        fichierBEbud = Range("B6").Value & ".xlsm"
        ouvreBEbud = cheminBEbud & "\" & fichierBEbud
 
        On Error GoTo ouvre
        Workbooks(fichierBEbud).Activate
        On Error GoTo 0
        estouvert = True
        MsgBox "Le fichier est déjà ouvert !", vbOKOnly + vbCritical, "ERREUR OUVERTURE FICHIER"
        Unload Me
        UserForm3_ouverture_file.Hide
        Exit Sub
ouvre:
        If estouvert = False Then
            ChDir cheminBEbud
            On Error GoTo erreur
            Workbooks.Open Filename:=ouvreBEbud
            Unload Me
            UserForm3_ouverture_file.Hide
            Exit Sub
erreur:
            MsgBox "Le fichier " & fichierBEbud & " est introuvable ou n'existe pas !" & Chr(10) _
            & "Veuillez vérifier l'existence du fichier, son nom et son chemin d'accès dans la feuille Commandes." _
            , vbOKOnly + vbCritical, "ERREUR OUVERTURE FICHIER"
            GoTo fermeture
        End If
    End If
 
    ' ce code est identique pour chaque bouton de mon UF. (j'ai 4 boutons)
 
fermeture:
    ThisWorkbook.Activate
    Unload Me
    UserForm3_ouverture_file.Hide
 
End Sub

pour le reste des réponses des autres participants, vos codes fonctionnent ! j'ai testé... mais ça n'empeche pas mon pb. j'hésite du coup à prendre en compte la gestion des erreurs...

Invité · 06/05/2014, 16h47

Envoyé par patricktoulon

rdurupt on s'est croisé

et bein avec ca .........

oui mais ma proposition n'est que la suite de ta première. en tout cas fortement inspiré!

**letudiant68** · 06/05/2014, 17h13

Envoyé par LaMite

dans le cas où il n'y a pas d'erreur je ne veux pas quitter la macro mais je veux qu'il ouvre mon fichier 2.... (dont le code est identique au fichier 1).
je travaille sur une boucle pour simplifier... mais je n'y parviens pas à 100% pour l'instant.

Ah oui j'avais oublié cet aspect.

Le truc, je pense, c'est que vous ne comprenez pas entièrement comment fonctionne un ErrorHandler : si la macro rencontre une erreur elle se déplace bien vers le bloc désigner (genre "ouvre:") mais si elle ne rencontre pas d'erreur elle continue simplement à lire les lignes en dessous et ce, que ces les lignes fassent partie d'un bloc ou non.

Je vous recommande de lancer votre macro en mode pas à pas pour bien voir le comportement de votre procédure.
La solution est, je pense, de mettre les blocs erreur tout à la fin de la procédure, comme ça la macro les lira UNIQUEMENT si il y a une erreur.

**patricktoulon** · 06/05/2014, 18h04

re
je ne vois pas l'interet d'une gestion d'erreur quand on peut s'en passer

ca rend le code bancale et peu viable dans la durée pour peu que la feuille soit modifiée dans l'avenir

les solutions que l'on a donné te satisferont mieux a mon avis si tu fait l'effort d'en comprendre le fonctionnement

mais c'est toi qui vois

**Marc-L** · 06/05/2014, 20h04

Bonjour, bonjour !

Une ch'tite fonction pour voir si un classeur est ouvert :

Code :

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

1
2
3
4
Function IsOpen(Name) As Boolean
         On Error Resume Next
         IsOpen = IsObject(Workbooks(Name))
End Function

Et pour vérifier si un fichier existe (avec son chemin d'accès complet …), suffit d'utiliser la fonction Dir …

__________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**parmi** · 06/05/2014, 21h28

+1 Marc-L

**LaMite** · 07/05/2014, 09h15

bonjour à tous ! je vais me replonger dans tout ça tranquillement ce weekend avec tout vos conseils !
merci en tout cas. je reviens vers vous dès que j'ai finalisé !

**Marc-L** · 08/05/2014, 10h29

Merci parmi !

Cadeau !

**patricktoulon** · 09/05/2014, 12h21

bonjour a tous
MarcL isobject il fallait y penser j'ai pas les mots la mais + 1 ca c'est sur

j'adore je garde

**patricktoulon** · 09/05/2014, 12h27

re
cela dit si on peut se passer de la gestion d'erreur moi je prefere

Code :

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

1
2
3
4
5
6
7
Sub test()
MsgBox IsOpen("nom du classeur")
End Sub
 
Function IsOpen(Name) As Boolean
                  If IsObject(Workbooks(Name)) Then IsOpen = IsObject(Workbooks(Name))
End Function

marcL

**Marc-L** · 09/05/2014, 15h06

Merci Patrick !

J'ai besoin de la gestion d'erreur : as-tu testé avec un nom de classeur qui n'est pas ouvert ?
De mon côté dans un tel cas et sans gestion une erreur 9 est renvoyée …

Si fichier ouvert rien sinon ouvre le

Macros et VBA Excel

Discussions similaires

Partager

Partager