Fichier actif dans vba

Version imprimable

18/09/2014, 15h59
ayms75

Fichier actif dans vba
Bonjour à tous, ce forum est très utile, je vous remercie,

J'ai un petit problème, je dois effectuer une macro qui concerne 2 fichiers, d'abord j'ouvre un fichier et dans la macro il en appelle un autre, mon code est :
Code:

1 2 3 4 5 6 Application.ScreenUpdating = False Application.DisplayAlerts = False sChemin = Application.GetOpenFilename Workbooks.Open Filename:=sChemin
Ensuite je dois commencer à programmer mais je sais pas comment rendre actif les fichiers, j'en est déjà fait entre 2 onglets : Sheets (3).activate mais je ne sais pas avec 2 fichiers.

Merci de votre aide

j'ai oublié de préciser, sachant que 1 fichier aura un nom différent tout les jours

Bonjour,

Tu n'es pas obligé d'activer les classeurs si tu veux manipuler les valeurs, je te conseille d'utiliser des variables WorkBook pour passer de l'un à l'autre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Test()
 
    Dim Cls_1 As Workbook
    Dim Cls_2 As Workbook
    Dim sChemin
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    sChemin = Application.GetOpenFilename
 
    If sChemin = False Then Exit Sub
 
    Set Cls_1 = Workbooks.Open(sChemin)
    Set Cls_2 = ActiveWorkbook 'le classeur actif par exemple !
 
    '...
 
End Sub

Hervé.

18/09/2014, 16h14
ayms75

ça à l'air parfait ça, merci et donc je fais mon code en dessous le set qui correspond au fichier

Oui, quand tu veux récupérer une valeur dans une cellule d'une certaine feuille tu peux utiliser une variable qui fait référence à la feuille et aussi si tu veux une variable qui fait référence à cette cellule et ceci donne :

Code:

1
2
3
 
Set Fe_1 = Cls_1.Worksheets("Feuil1") 'pour la feuille
Set Cel = Fe_1.Range("A1") 'pour la cellule

une fois ces références faites, il ne te sera plus nécessaire de faire référence au classeur et à la feuille si tu ne vise que la cellule car le compilateur sait exactement à quel objet (ici, une cellule) est rattaché cette variable.

Code:

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
 
Sub Test()
 
    Dim Cls_1 As Workbook
    Dim Cls_2 As Workbook
    Dim Fe_1 As Worksheet
    Dim Fe_2 As Worksheet
    Dim Plage As Range
    Dim Cel As Range
 
    Dim sChemin
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    sChemin = Application.GetOpenFilename
 
    If sChemin = False Then Exit Sub
 
    Set Cls_1 = Workbooks.Open(sChemin)
    Set Cls_2 = ActiveWorkbook 'le classeur actif par exemple !
 
    'une fois ceci fait, il n'est plus nécessaire de faire référence au classeur Cls_1
    'le compilateur sait exactement sur quelle feuille il doit travailler...
    Set Fe_1 = Cls_1.Worksheets("Feuil1")
 
    'pour une cellule :
    MsgBox Fe_1.Cells(1, 1).Value
    'ou encore :
    MsgBox Fe_1.Range("A1").Value
    'et encore avec la variable :
    Set Cel = Fe_1.Range("A1")
    MsgBox Cel.Value
 
    'pour une plage :
    Set Plage = Fe_1.Range("A1:D10")
    MsgBox Plage.Address(0, 0)
 
    '...
 
End Sub

Hervé.

Hervé j'ai tenté un truc mais ça marche pas, c'était notamment pour matcher 2 fichiers, voici le code :

Code:

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
53
54
55
56
57
58
59
60
61
62
63
Sub import()
 
'ouverture du fichier
 
Dim Cls_1 As Workbook
    Dim Cls_2 As Workbook
    Dim sChemin
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    sChemin = Application.GetOpenFilename
 
    If sChemin = False Then Exit Sub
 
 
'Matching
 
    'Morgan Stanley
 
    Set Cls_1 = Workbooks.Open(sChemin)
 
lignemax1 = Range("a7").End(xlDown).Row
 
For p = 7 To lignemax1
 
    sens1 = Cells(p, 2)
        If sens1 = "buy" Then
            sens1 = "b"
        ElseIf sens1 = "sell" Then
            sens1 = "s"
        End If
 
    prix_exec1 = Cells(p, 10).Value
    commission1 = Cells(p, 12).Value
    quantite1 = Cells(p, 9).Value
 
 
    'Main courante
 
    Set Cls_2 = ActiveWorkbook
 
lignemax2 = Range("b5").End(xlDown).Row
 
    For i = 5 To lignemax2
 
    If Cells(i, 3).Value = sens1 Then
        If Cells(i, 7).Value = prix_exec1 Then
            If Cells(i, 11).Value = commission1 Then
                If Cells(i, 4).Value = quantite1 Then
 
                   Cells(i, 14).Value = "JM"
 
                End If
            End If
        End If
    End If
 
    Next i
 
Next p
 
End Sub

18/09/2014, 19h19
eriiic

Bonjour,

Quand tu demandes soit plus précis que ça marche pas qui ne veut rien dire.

Lorsque tu ouvres un classeur il est actif.
Donc Cls_2=Cls_1

Essaie en mettant

Code:

Set Cls_2 = ActiveWorkbook

au début de ta macro avant d'ouvrir l'autre (enfin si c'est celui là que tu veux).

Et si c'est celui qui contient cette macro tu peux aussi mettre :

Code:

Set Cls_2 = ThisWorkbook

eric

ça ouvre bien le fichier mais la maccro ne s’exécute pas :

Code:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Sub import()
 
'ouverture du fichier
 
Dim Cls_1 As Workbook
    Dim Cls_2 As Workbook
    Dim sChemin
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    sChemin = Application.GetOpenFilename
 
    If sChemin = False Then Exit Sub
 
    Set Cls_1 = Workbooks.Open(sChemin)
    Set Cls_2 = ActiveWorkbook
 
 
 
'Matching
 
    'Morgan Stanley
 
    Set Cls_1 = Workbooks.Open(sChemin)
 
lignemax1 = Range("a7").End(xlDown).Row
 
For p = 7 To lignemax1
 
Set Cls_1 = Workbooks.Open(sChemin)
 
    Sens1 = Cells(p, 2)
        If Sens1 = "Buy" Then
            Sens1 = "B"
        ElseIf Sens1 = "Sell" Then
            Sens1 = "S"
        End If
 
    prix_exec1 = CDbl(Cells(p, 10).Value)
    commission1 = CDbl(Cells(p, 12).Value)
    quantite1 = CDbl(Cells(p, 9).Value)
 
 
    'Main courante
 
    Set Cls_2 = ActiveWorkbook
 
 
    lignemax2 = Range("b5").End(xlDown).Row
 
    For i = 5 To lignemax2
 
    If Cells(i, 3).Value = Sens1 Then
        If CDbl(Cells(i, 7).Value) = prix_exec1 Or Round(CDbl(Cells(i, 20).Value), 2) = prix_exec1 Then
            If Round(CDbl(Cells(i, 11).Value), 2) = commission1 Then
                If CDbl(Cells(i, 4).Value) = quantite1 Then
 
                   Cells(i, 12).Value = "JM"
 
                End If
            End If
        End If
    End If
 
    Next i
 
 
Next p
 
 
 
End Sub

29/09/2014, 19h19
eriiic

Pas bonjour non plus !

Citation:

ça ouvre bien le fichier mais la maccro ne s’exécute pas

Si ça ouvre bien le fichier c'est qu'elle s'exécute je dirais...
Que ça ne fasse pas ce que tu as prévu c'est autre chose.

Moi je mettrais Set Cls_2 = ActiveWorkbook après l'ouverture du fichier concerné en toute logique.

eric

Bonsoir,

Citation:

Envoyé par eriiic

Moi je mettrais Set Cls_2 = ActiveWorkbook après l'ouverture du fichier concerné en toute logique.

:nono: tant que c'est possible évitez ActiveWorkBook :

ayms75 tu oublie de préciser la feuille devant tes cells , range ...!
Code:

1 2 3 4 5 6 7 Set Cls_1 = Workbooks.Open(sChemin) Dim sh as worksheet set sh = Cls_1.worksheets("feuil1") ' AINSI la variable sh pointe sur la feuil1 du casseur ouvert... .... Sens1 = sh.Cells(p, 2) 'PENSE ensuite à préciser la feuille concernée pour tous tes objets cells, range ...;

29/09/2014, 22h30
eriiic

Citation:

tant que c'est possible évitez ActiveWorkBook

Tu peux développer stp ?
J'ai l'impression qu'il y a des surprises cachées que j'ignore.
(dans le contexte le fichier vient d'être ouvert en vba)

eric
29/09/2014, 22h38
SfJ5Rpw8
oui Eric,

en plus mon code n'est pas parlant .... la fonction Open de Workbooks renvoi un objet classeur et donc tu peu écrire :
Code:

1 2 3 Dim wk As Workbook Set wk = Workbooks.Open("C:\users\MesClasseurs\MonClasseur.xlsm") MsgBox "le classeur : " & wk.Name & " est ouvert"
pas besoin de jouer avec le classeur actif pour obtenir une référence au classeur ouvert...

voir :faq: Comment travailler sur deux classeurs ?
29/09/2014, 23h19
eriiic

Oui, j'avais vu que tu l'ouvrais directement dans une variable, et je suis d'accord que c'est mieux.
Mais pour activeworkbook, peut-il y avoir d'autres surprises ou pb qu'un autre classeur soit activé par l'utilisateur ?
eric
30/09/2014, 15h29
ayms75

désolé Eric toujours pareil, ça ouvre le fichier, mais la maccro qui consiste à écrire "JM" quand ça match ne s’exécute pas alors que quand je le fais avec des feuilles ça marche.
pareil bbil ça met erreur
30/09/2014, 17h37
eriiic

Sans les 2 fichiers (réduits) on risque de parler dans le vent un moment.
eric
30/09/2014, 20h30
SfJ5Rpw8

Citation:

Envoyé par ayms75

désolé Eric toujours pareil, ça ouvre le fichier, mais la maccro qui consiste à écrire "JM" quand ça match ne s’exécute pas alors que quand je le fais avec des feuilles ça marche.
pareil bbil ça met erreur

tu de nous montrer ton code une fois modifié ... pour le moment le code tu nous montre n'est pas fonctionnel tu utilise Cells sans le précéder de la feuille concernée !!!!

Bonjour,

Comme te le dit bbil, il est impératif de savoir à quelle feuille de quel classeur dépendent les "Range" et Cells ?
Ton code avec les précisions en commentaires :

Code:

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
53
54
55
56
57
58
59
60
61
62
63
64
 
Option Explicit '<-- à mettre impérativement afin de limiter le risque d'erreur
 
Sub import()
 
    Dim Cls_1 As Workbook
    Dim Cls_2 As Workbook
    Dim sChemin
    Dim Sens1 As String
    Dim prix_exec1 As Double
    Dim commission1 As Double
    Dim quantite1 As Double
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    sChemin = Application.GetOpenFilename
 
    If sChemin = False Then Exit Sub
 
    Set Cls_2 = ThisWorkbook 'ici, le classeur contenant cette procédure
    Set Cls_1 = Workbooks.Open(sChemin)
 
    'ici, c'est sur quelle feuille de quel classeur ?
    lignemax1 = Range("a7").End(xlDown).Row
 
    For p = 7 To lignemax1
 
        'S ou B
        Sens1 = Left(Cells(p, 2), 1) 'de même, sur quelle feuille de quel classeur ?
 
        'si ce sont des valeurs numériques dans Excel, pas besoin de convertisseur !
        'et bien sûr, on ne sait toujours pas sur quelle feuille de quel classeur ?
        prix_exec1 = CDbl(Cells(p, 10).Value)
        commission1 = CDbl(Cells(p, 12).Value)
        quantite1 = CDbl(Cells(p, 9).Value)
 
        lignemax2 = Range("b5").End(xlDown).Row 'idem !
 
        For i = 5 To lignemax2
 
           If Cells(i, 3).Value = Sens1 Then
 
               If CDbl(Cells(i, 7).Value) = prix_exec1 Or Round(CDbl(Cells(i, 20).Value), 2) = prix_exec1 Then
 
                   If Round(CDbl(Cells(i, 11).Value), 2) = commission1 Then
 
                       If CDbl(Cells(i, 4).Value) = quantite1 Then
 
                          Cells(i, 12).Value = "JM"
 
                       End If
 
                   End If
 
               End If
 
           End If
 
        Next i
 
    Next p
 
End Sub

Quand j'ai donné comme exemple :

Code:

1
2
 
Set Cls_2 = ActiveWorkbook 'le classeur actif par exemple !

c'est justement pour l'exemple de ce qui peut être fait pour l'affectation à une variable objet WorkBook !
Quand bbil dit :

Citation:

tant que c'est possible évitez ActiveWorkBook

C'est parce qu'on n'est jamais sûr du classeur actif au moment de l'exécution du code, lui préférer "ThisWorkbook" si le classeur cible est celui contenant la procédure, bien qu'avec "Application.Run" ça peut donner des surprises aussi !

Hervé.

Bbil ça me met erreur d’exécution 9, voici le code :
Hervé je te met le code avec les feuilles qui marche en dessous

Code:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Sub import()
 
'ouverture du fichier
 
Dim Cls_1 As Workbook
    Dim Cls_2 As Workbook
    Dim sChemin
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    sChemin = Application.GetOpenFilename
 
    If sChemin = False Then Exit Sub
 
    Set Cls_1 = Workbooks.Open(sChemin)
    Set Cls_2 = ActiveWorkbook
 
    Dim sh As Worksheet
 
 
 
'Matching
 
    'Morgan Stanley
 
    Set sh = Cls_1.Worksheets("feuil1")
 
lignemax1 = sh.Range("a7").End(xlDown).Row
 
For p = 7 To lignemax1
 
Set Cls_1 = Workbooks.Open(sChemin)
 
    Sens1 = sh.Cells(p, 2)
        If Sens1 = "Buy" Then
            Sens1 = "B"
        ElseIf Sens1 = "Sell" Then
            Sens1 = "S"
        End If
 
    prix_exec1 = CDbl(sh.Cells(p, 10).Value)
    commission1 = CDbl(sh.Cells(p, 12).Value)
    quantite1 = CDbl(sh.Cells(p, 9).Value)
 
 
    'Main courante
 
    Set Cls_2 = ActiveWorkbook
 
Set sh = Cls_2.Worksheets("feuil1")
    lignemax2 = Range("b5").End(xlDown).Row
 
    For i = 5 To lignemax2
 
    If sh.Cells(i, 3).Value = Sens1 Then
        If CDbl(sh.Cells(i, 7).Value) = prix_exec1 Or Round(CDbl(Cells(i, 20).Value), 2) = prix_exec1 Then
            If Round(CDbl(sh.Cells(i, 11).Value), 2) = commission1 Then
                If CDbl(sh.Cells(i, 4).Value) = quantite1 Then
 
                   sh.Cells(i, 12).Value = "JM"
 
                End If
            End If
        End If
    End If
 
    Next i
 
 
Next p
 
 
 
End Sub

Code:

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
53
54
55
56
Sub Match()
 
 
 
'Matching
 
    'Morgan Stanley
 
    Sheets(2).Activate
 
lignemax1 = Range("a7").End(xlDown).Row
 
For p = 7 To lignemax1
 
Sheets(2).Activate
 
    Sens1 = Cells(p, 2)
        If Sens1 = "Buy" Then
            Sens1 = "B"
        ElseIf Sens1 = "Sell" Then
            Sens1 = "S"
        End If
 
    prix_exec1 = CDbl(Cells(p, 10).Value)
    commission1 = CDbl(Cells(p, 12).Value)
    quantite1 = CDbl(Cells(p, 9).Value)
 
 
    'Main courante
 
    Sheets(1).Activate
 
    lignemax2 = Range("b5").End(xlDown).Row
 
    For i = 5 To lignemax2
 
    If Cells(i, 3).Value = Sens1 Then
        If CDbl(Cells(i, 7).Value) = prix_exec1 Or Round(CDbl(Cells(i, 20).Value), 2) = prix_exec1 Then
            If Round(CDbl(Cells(i, 11).Value), 2) = commission1 Then
                If CDbl(Cells(i, 4).Value) = quantite1 Then
 
                   Cells(i, 12).Value = "JM"
 
                End If
            End If
        End If
    End If
 
    Next i
 
 
Next p
 
 
 
End Sub

01/10/2014, 16h31
Theze
Bonjour,

Alors ça, c'est à éviter autant que possible car ça fait scintiller l'écran et ralentir le code :
Code:

1 2 3 4 5 Sheets(2).Activate ... Sheets(1).Activate ...
Là, je pense qu'il va falloir que tu expose ta problématique clairement car sinon, on ne s'en sortira pas. Dis nous précisément à quel classeur appartient quelle feuille et à quelle feuille appartiennent les Cells et Range !

Hervé.
01/10/2014, 16h38
ayms75

Morgan stanley = classeur qu'il faut ouvrir feuille 1
lignemax1 = Range("a7").End(xlDown).Row à quantite1 = CDbl(sh.Cells(p, 9).Value)

Main courante = classeur où il faut mettre JM feuille 1
de lignemax2 = Range("b5").End(xlDown).Row à Next i

j'ai fait comme ça car je débute, mais le but est de remplacer les sheets par les classeur

Citation:

j'ai fait comme ça car je débute, mais le but est de remplacer les sheets par les classeur

Donc, en partant de l'exemple des feuilles :

Code:

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
53
54
 
Sub Match()
 
    Dim Fe_Morgan_Stanley As Worksheet
    Dim Fe_Main_Courante As Worksheet
    Dim prix_exec1 As Double
    Dim commission1 As Double
    Dim quantite1 As Double
 
    Set Fe_Main_Courante = Sheets(1)
    Set Fe_Morgan_Stanley = Sheets(2)
 
    For p = 7 To Fe_Morgan_Stanley.Range("a7").End(xlDown).Row
 
        With Fe_Morgan_Stanley
 
            Sens1 = Left(.Cells(p, 2), 1)
 
            prix_exec1 = CDbl(.Cells(p, 10).Value)
            commission1 = CDbl(.Cells(p, 12).Value)
            quantite1 = CDbl(.Cells(p, 9).Value)
 
        End With
 
        'Main courante
        For I = 5 To Fe_Main_Courante.Range("b5").End(xlDown).Row
 
           With Fe_Main_Courante
 
               If .Cells(I, 3).Value = Sens1 Then
 
                   If CDbl(.Cells(I, 7).Value) = prix_exec1 Or Round(CDbl(.Cells(I, 20).Value), 2) = prix_exec1 Then
 
                       If Round(CDbl(.Cells(I, 11).Value), 2) = commission1 Then
 
                            If CDbl(.Cells(I, 4).Value) = quantite1 Then
 
                                .Cells(I, 12).Value = "JM"
 
                            End If
 
                        End If
 
                    End If
 
                End If
 
            End With
 
        Next I
 
    Next p
 
End Sub

Hervé.

02/10/2014, 09h05
ayms75

Mais là Hervé j'ai plus l'ouverture de mes classeurs
04/10/2014, 22h58
AlainTech

Bonjour,

Les éléments t'ont été donnés dans les différents messages.
Essaie de les comprendre en sachant que quand un objet (classeur, feuille) a été déclaré et assigné à une variable, on peut faire référence à cette variable tout au long de la procédure.

Sers-toi des messages qui t'ont été envoyés pour écrire ton propre code et, si quelque chose ne fonctionne pas comme tu le voudrais, donne nous l'erreur et la ligne où elle se passe et on pourra t'aider.