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