Discussion :

[titeelo]

Bonjour !

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
Private Sub CommandButton3_Click()
 
a = Selection.Value
b = Left(a, 2)
c = Worksheets("BD").Cells(3, 3)
d = Worksheets("BD").Cells(3, 4)
e = Worksheets("BD").Cells(3, 5)
 
If b = "ab" Or b = "ac" Or b = "ad" Or b = "ae" Then
On Error GoTo GestionErreur
Workbooks.Open ("W:\A.xls")
Workbooks("A").Worksheets("Pres").Activate
Workbooks("A").Worksheets("Source").Cells(5, 37) = a
Workbooks("A").Worksheets("Cal").Cells(18, 4) = c
Workbooks("A").Worksheets("Cal").Cells(21, 4) = d
Workbooks("A").Worksheets("Cal").Cells(22, 4) = e
Exit Sub
End If
 
GestionErreur:
If Err.Number = 55 Then
' Vérifie que l'erreur n'est pas dû au fait que le fichier est déjà ouvert
Workbooks("A").Worksheets("Pres").Activate
Workbooks("A").Worksheets("Source").Cells(5, 37) = a
Workbooks("A").Worksheets("Cal").Cells(18, 4) = c
Workbooks("A").Worksheets("Cal").Cells(21, 4) = d
Workbooks("A").Worksheets("Cal").Cells(22, 4) = e
Exit Sub
Else
MsgBox "bouh"
Workbooks("A").Worksheets("Pres").Activate
Workbooks("A").Worksheets("Source").Cells(5, 37) = a
Workbooks("A").Worksheets("Cal").Cells(18, 4) = c
Workbooks("A").Worksheets("Cal").Cells(21, 4) = d
Workbooks("A").Worksheets("Cal").Cells(22, 4) = e
End If
 
End Sub

Ce que je souhaite c'est si lors de l'ouverture du document A une erreur est générée, autre que "fichier déjà ouvert", une msgbox apparaissent. Or avec ce code, la msgbox s'ouvre dans tout les cas (fichier ouvert ou pas) ! Je souhaiterais alors votre avis pour savoir d'où viens mon erreur.

Merci d'avance

[LeForestier]

Je verrais plutôt ça de cette façon..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If b = "ab" Or b = "ac" Or b = "ad" Or b = "ae" Then
On Error resume next
Workbooks.Open ("W:\A.xls")
On Error GoTo GestionErreur
 
Workbooks("A").Worksheets("Pres").Activate
Workbooks("A").Worksheets("Source").Cells(5, 37) = a
Workbooks("A").Worksheets("Cal").Cells(18, 4) = c
Workbooks("A").Worksheets("Cal").Cells(21, 4) = d
Workbooks("A").Worksheets("Cal").Cells(22, 4) = e
Exit Sub
End If

A+

[zazaraignée]

Ça dépend toujours tu type d'erreur. Par exemple, je viens de tester avec un classeur déjà ouvert et un classeur qui n'existe pas. Les deux génèrent une erreur numéro 1004.

[mordrhim]

On testera ca siouplait ^^

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
51
52
Private Sub CommandButton3_Click()
 
    a = Selection.Value
    b = Left(a, 2)
    With Worksheets("BD")
        c = .Cells(3, 3)
        d = .Cells(3, 4)
        e = .Cells(3, 5)
    End With
 
    If b = "ab" Or b = "ac" Or b = "ad" Or b = "ae" Then
        On Error GoTo GestionErreur
        If Not FichierOuvert("W:\A.xls") Then  'Teste si le fichier est ouvert ou pas.
            Workbooks.Open ("W:\A.xls")
            With Workbooks("A.xls")
                .Worksheets("Pres").Activate
                .Worksheets("Source").Cells(5, 37) = a
                With .Worksheets("Cal")
                    .Cells(18, 4) = c
                    .Cells(21, 4) = d
                    .Cells(22, 4) = e
                End With
            End With
        Else
            MsgBox ("Fichier " & Chr(34) & "W:\A.xls" & Chr(34) & " déjà ouvert")
            With Workbooks("A.xls")
                .Worksheets("Pres").Activate
                .Worksheets("Source").Cells(5, 37) = a
                With .Worksheets("Cal")
                    .Cells(18, 4) = c
                    .Cells(21, 4) = d
                    .Cells(22, 4) = e
                End With
            End With
        End If
    End If
Exit Sub
 
GestionErreur:
    MsgBox ("Ya une erreur : " & Err.Number)
End Sub
 
Function FichierOuvert(Nom As String) As Boolean
 
    On Error GoTo Erreur
    If Not Application.Workbooks(Dir(Nom)).IsInplace Then
        FichierOuvert = True
    End If
    Exit Function
 
Erreur:    'Une erreur survient si le fichier n'est pas ouvert car il ne trouve pas le classeur
End Function

[titeelo]

Merci LeForestier ça fonctionne nickel ! Par contre, mordhrim le tien fonctionne aussi mais consomme beaucoup plus de temps.
LeForestier, pourrais-tu m'expliquer pourquoi tu as le "on error goto" après ce qui risque de poser problème ?

[LeForestier]

Beeh..,
celui là c'est pour continuer ta détection d'erreur s'il y en a une autre
et à ce moment afficher ton msgBox
A+