Gestion des variables

Version imprimable

Bonjour,

J'ai un souci avec mes variables voici le code que j'utilise

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
Private Sub Workbook_Open()
Dim mois As Integer
Dim base As String
Dim nbase As String
Dim an As String
Dim ml As String
 
an = Sheets("Commentaires").Range("I3").Value
mois = Sheets("Commentaires").Range("J1").Value
base = Sheets("Commentaires").Range("I1").Value
nbase = Sheets("Commentaires").Range("I2").Value
 
    If Environ("UserName") = "adauchet" Then
    Sheets("Commentaires").Visible = xlSheetVisible
     Application.DisplayAlerts = False
     Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\Formulaire Exploitation 0" & nbase & " CUMUL13.xls" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Masse Salariale\Gestion*des*heures*B*2013 " & base & ".xls" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
    Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\MS2013\Formulaire RH 0" & nbase & " CUMUL13.xls" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Masse Salariale\Maquette MS B " & an & " " & base & ".xls" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Volumes\Volumes Liaisons " & base & ".xls" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
 Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\" & mc & " - " & ml & "\Reporting\Pack Etats Comparatifs " & base & " " & mc & an & ".xlsx" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
    Windows("Analyse MS Cumulé " & an & " 031.xlsm").Activate
    Sheets("Commentaires").Select
    Else
    Sheets("Commentaires").Visible = xlSheetHidden
    End If
Application.DisplayAlerts = True
 
 
End Sub

Voici l'endroit où cela bloque :

Code:

1
2
3
4
Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\" & mc & " - " & ml & "\Reporting\Pack Etats Comparatifs " & base & " " & mc & an & ".xlsx" _
        , ReadOnly:=1
        Application.DisplayAlerts = False

Voici le code de la variable mc

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub mc()
Dim mc As String
Dim m As Integer
Sheets("Commentaires").Select
    m = Range("J1")
Select Case m
    Case Is <= 9
        mc = "0" & m
    Case Is > 9
        mc = m
End Select
End Sub

et celui de la variable ml

Code:

1
2
3
4
5
Sub ml()
Dim ml As String
ml = Worksheets("Commentaires").Range("k2").Value
 
End Sub

voici le résultat du chemin

Code:

D:\Mes Documents\00 - Réel\2013\Chaulnes\09 - Septembre\Reporting\Pack Etats Comparatifs Chaulnes 092013.xlsx

Merci de votre aide

04/11/2013, 16h37
EngueEngue

Ton code n'appelle pas tes routines donc mc et ml ne valent rien.

Tu devrais les appeler en tant que fonction au debut du code.
04/11/2013, 17h07
ALEX80800

Bonjour EngueEngue,

Je suis un peu perdu dans ta réponse.

Car j'avais fait au début des Function au lieu de Sub

Mais ça me bloquait

pourrais tu m'aiguiller un peu plus

Essaie ce 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
64
65
Private Sub Workbook_Open()
Dim mois As Integer
Dim base As String
Dim nbase As String
Dim an As String
Dim ml As String
 
ml = Worksheets("Commentaires").Range("k2").Value
 
Sheets("Commentaires").Select
    m = Range("J1")
Select Case m
    Case Is <= 9
        mc = "0" & m
    Case Is > 9
        mc = m
End Select
 
an = Sheets("Commentaires").Range("I3").Value
mois = Sheets("Commentaires").Range("J1").Value
base = Sheets("Commentaires").Range("I1").Value
nbase = Sheets("Commentaires").Range("I2").Value
 
    If Environ("UserName") = "adauchet" Then
    Sheets("Commentaires").Visible = xlSheetVisible
     Application.DisplayAlerts = False
     Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\Formulaire Exploitation 0" & nbase & " CUMUL13.xls" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Masse Salariale\Gestion*des*heures*B*2013 " & base & ".xls" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
    Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\MS2013\Formulaire RH 0" & nbase & " CUMUL13.xls" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Masse Salariale\Maquette MS B " & an & " " & base & ".xls" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Volumes\Volumes Liaisons " & base & ".xls" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
 Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\" & mc & " - " & ml & "\Reporting\Pack Etats Comparatifs " & base & " " & mc & an & ".xlsx" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
    Windows("Analyse MS Cumulé " & an & " 031.xlsm").Activate
    Sheets("Commentaires").Select
    Else
    Sheets("Commentaires").Visible = xlSheetHidden
    End If
Application.DisplayAlerts = True
 
 
End Sub

EngueEngue,

Le chemin ci-dessous n'est pas reconnu (erreur execution1004)
'D:Mes Documents\02 - Budget\2013\Chaulnes\T1\Masse Salariale\Gestion des heures B 2013 Chaulnes.xls' => message de la boite de dialogue VB
Code:

1 2 3 4 Workbooks.Open Filename:= _ "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Masse Salariale\Gestion des heures B " & an & " " & base & ".xls" _ , ReadOnly:=1 Application.DisplayAlerts = False
et ci dessous copie du chemin par copier coller du répertoire :

Code:

D:\Mes Documents\02 - Budget\2013\Chaulnes\T1\Masse Salariale\Gestion des heures B 2013 Chaulnes.xls

J'ai même essayer en enlevant les espaces aussi bien sur le nom du fichier et dans le code

Je ne vois pas l'erreur.

05/11/2013, 03h54
nibledispo

gestion des variables

bonjour,

es-tu certain d'avoir retiré les * figurant dans le nom du fichier code de départ ?

"Gestion*des*heures*B*2013"

ou inversement.

cordialement

Bonjour EngueEngue et Nibledispo,

Je ne sais pas d'où vient l'erreur, mais en dupliquant le code sur un autre fichier excel, je n'ai pas l'erreur.

L'erreur doit venir de la syntaxe que je n'arrive pas à identifier et corriger.

Mais ce post est résolu car il fonctionne sur un autre fichier.

Je mets le code, ça pourrait servir à d'autres car pour ma part cela me sert dans des sujets résolus

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
Option Explicit
 
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Dim mois As Integer
Dim base As String
Dim nbase As String
Dim an As String
Dim ml As String
Dim mc As String
 
 
ml = Sheets("Commentaires").Range("j3").Value
an = Sheets("Commentaires").Range("I3").Value
mois = Sheets("Commentaires").Range("J1").Value
base = Sheets("Commentaires").Range("I1").Value
nbase = Sheets("Commentaires").Range("I2").Value
 
Sheets("Commentaires").Select
 
Select Case mois
    Case Is <= 9
        mc = "0" & mois
    Case Is > 9
        mc = mois
End Select
 
If Environ("UserName") = "adauchet" Then
'Copier coller en valeurs des cellules D8 0 H110
    Sheets("Commentaires").Select
    Range("d8:H95").Select
    Selection.Copy
    Sheets("Commentaires en valeurs").Select
    Range("d8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Commentaires").Select
    Range("A3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Commentaires en valeurs").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Copier coller en valeurs des cellules C88 & C90 (concerne le nom des mois à cheval)
    Sheets("Commentaires").Select
    Range("c66:c74").Select
    Selection.Copy
    Sheets("Commentaires en valeurs").Select
    Range("c66").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Commentaires").Select
    Range("A3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Commentaires en valeurs").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
Workbooks("Formulaire Exploitation 0" & nbase & " CUMUL" & Right(an, 2) & ".xlsx").Close SaveChanges:=False
Workbooks("Gestion*des*heures*B*" & an & " " & base & ".xls").Close SaveChanges:=False
Workbooks("Formulaire RH 0" & nbase & " CUMUL" & Right(an, 2) & ".xlsx").Close SaveChanges:=False
Workbooks("Maquette MS B " & an & " " & base & ".xls").Close SaveChanges:=False
Workbooks("Volumes Liaisons " & base & ".xls").Close SaveChanges:=False
Workbooks("Pack Etats Comparatifs " & base & " " & mc & an & ".xlsx").Close SaveChanges:=False
End If
End Sub
 
Private Sub Workbook_Open()
Dim mois As Integer
Dim base As String
Dim nbase As String
Dim an As String
Dim ml As String
Dim mc As String
 
 
ml = Sheets("Commentaires").Range("j3").Value
an = Sheets("Commentaires").Range("I3").Value
mois = Sheets("Commentaires").Range("J1").Value
base = Sheets("Commentaires").Range("I1").Value
nbase = Sheets("Commentaires").Range("I2").Value
 
Sheets("Commentaires").Select
 
Select Case mois
    Case Is <= 9
        mc = "0" & mois
    Case Is > 9
        mc = mois
End Select
 
 
    If Environ("UserName") = "adauchet" Then
    Sheets("Commentaires").Visible = xlSheetVisible
     Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\Formulaire Exploitation 0" & nbase & " CUMUL" & Right(an, 2) & ".xlsx" _
        , UpdateLinks:=0
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Masse Salariale\Gestion*des*heures*B*" & an & " " & base & ".xls" _
        , UpdateLinks:=0
    Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\MS" & an & "\Formulaire RH 0" & nbase & " CUMUL" & Right(an, 2) & ".xlsx" _
        , UpdateLinks:=0
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Masse Salariale\Maquette MS B " & an & " " & base & ".xls" _
        , UpdateLinks:=0
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Volumes\Volumes Liaisons " & base & ".xls" _
        , UpdateLinks:=0
 Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\" & mc & " - " & ml & "\Reporting\Pack Etats Comparatifs " & base & " " & mc & an & ".xlsx" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
    Windows("Analyse MS Cumulé " & an & " 0" & nbase & ".xlsm").Activate
    Sheets("Commentaires").Select
    Else
    Sheets("Commentaires").Visible = xlSheetHidden
    End If
 
 
End Sub

Merci encore

Bonjour,
je pense que cette partie est moche

Code:

1
2
3
4
5
6
7
8
9
10
11
....
 Sheets("Commentaires").Select
    Range("d8:H95").Select
    Selection.Copy
    Sheets("Commentaires en valeurs").Select
    Range("d8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Commentaires").Select
    Range("A3").Select
....

je remplacerais par

Code:

1
2
3
4
...
    Sheets("Commentaires en valeurs").Range("d8:H95").Value = Sheets("Commentaires").Range("d8:H95").Value
    Sheets("Commentaires en valeurs").Range("A3").Value = Sheets("Commentaires").Range("A3").Value
...et ainsi de suite

Mais n'ayant pas suivi le sujet.....

Merci Casefayere,

Ci joint le code rectifié

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Option Explicit
 
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Dim mois As Integer
Dim base As String
Dim nbase As String
Dim an As String
Dim ml As String
Dim mc As String
 
 
ml = Sheets("Commentaires").Range("j3").Value
an = Sheets("Commentaires").Range("I3").Value
mois = Sheets("Commentaires").Range("J1").Value
base = Sheets("Commentaires").Range("I1").Value
nbase = Sheets("Commentaires").Range("I2").Value
 
Sheets("Commentaires").Select
 
Select Case mois
    Case Is <= 9
        mc = "0" & mois
    Case Is > 9
        mc = mois
End Select
 
If Environ("UserName") = "adauchet" Then
'Copier coller en valeurs des cellules D8 à H95
   Sheets("Commentaires en valeurs").Range("d8:H95").Value = Sheets("Commentaires").Range("d8:H95").Value
    Sheets("Commentaires en valeurs").Range("A3").Value = Sheets("Commentaires").Range("A3").Value
 
'Copier coller en valeurs des cellules C66 & C74 (concerne le nom des mois à cheval)
   Sheets("Commentaires en valeurs").Range("c66:c74").Value = Sheets("Commentaires").Range("c66:c74").Value
 
 
Workbooks("Formulaire Exploitation 0" & nbase & " CUMUL" & Right(an, 2) & ".xlsx").Close SaveChanges:=False
Workbooks("Gestion*des*heures*B*" & an & " " & base & ".xls").Close SaveChanges:=False
Workbooks("Formulaire RH 0" & nbase & " CUMUL" & Right(an, 2) & ".xlsx").Close SaveChanges:=False
Workbooks("Maquette MS B " & an & " " & base & ".xls").Close SaveChanges:=False
Workbooks("Volumes Liaisons " & base & ".xls").Close SaveChanges:=False
Workbooks("Pack Etats Comparatifs " & base & " " & mc & an & ".xlsx").Close SaveChanges:=False
End If
End Sub
 
Private Sub Workbook_Open()
Dim mois As Integer
Dim base As String
Dim nbase As String
Dim an As String
Dim ml As String
Dim mc As String
 
 
ml = Sheets("Commentaires").Range("j3").Value
an = Sheets("Commentaires").Range("I3").Value
mois = Sheets("Commentaires").Range("J1").Value
base = Sheets("Commentaires").Range("I1").Value
nbase = Sheets("Commentaires").Range("I2").Value
 
Sheets("Commentaires").Select
 
Select Case mois
    Case Is <= 9
        mc = "0" & mois
    Case Is > 9
        mc = mois
End Select
 
 
    If Environ("UserName") = "adauchet" Then
    Sheets("Commentaires").Visible = xlSheetVisible
     Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\Formulaire Exploitation 0" & nbase & " CUMUL" & Right(an, 2) & ".xlsx" _
        , UpdateLinks:=0
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Masse Salariale\Gestion*des*heures*B*" & an & " " & base & ".xls" _
        , UpdateLinks:=0
    Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\MS" & an & "\Formulaire RH 0" & nbase & " CUMUL" & Right(an, 2) & ".xlsx" _
        , UpdateLinks:=0
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Masse Salariale\Maquette MS B " & an & " " & base & ".xls" _
        , UpdateLinks:=0
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\" & an & "\" & base & "\T1\Volumes\Volumes Liaisons " & base & ".xls" _
        , UpdateLinks:=0
 Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\" & an & "\" & base & "\" & mc & " - " & ml & "\Reporting\Pack Etats Comparatifs " & base & " " & mc & an & ".xlsx" _
        , ReadOnly:=1
        Application.DisplayAlerts = False
 
    Windows("Analyse MS Cumulé " & an & " 0" & nbase & ".xlsm").Activate
    Sheets("Commentaires").Select
    Else
    Sheets("Commentaires").Visible = xlSheetHidden
    End If
 
 
End Sub