Gestion des variables

**ALEX80800** · 04/11/2013, 16h30

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** · 04/11/2013, 16h37

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** · 04/11/2013, 17h07

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** · 04/11/2013, 17h09

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** · 04/11/2013, 20h40

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** · 05/11/2013, 03h54

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

Gestion des variables [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager