Discussion :

[ALEX80800]

Bonjour,

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

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
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 :

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

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 :

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

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 :

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

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 :

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

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

Merci de votre aide

[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.

[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

[EngueEngue]

Essaie 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
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

[ALEX80800]

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 :

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

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 :

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

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.

[nibledispo]

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

[ALEX80800]

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 :

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
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

[casefayere]

Bonjour,
je pense que cette partie est moche

Code :

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

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 :

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

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.....

[ALEX80800]

Merci Casefayere,

Ci joint le code rectifié

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
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