[XL-2007] Fermeture fichiers nom défini par variable

Bonjour,

Pour préciser d'abord je suis novice en VBA.

J'ai effectué une procédure d'ouverture de fichiers pour me permettre d'avoir les valeurs dans les cellules au lieu d'avoir #VALEUR

Ci joint 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
Private Sub Workbook_Open()
Dim mois As Integer
Dim base As String
Dim nbase As String
 
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
     Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\2013\" & base & "\Formulaire Exploitation 0" & nbase & " CUMUL13.xls" _
        , UpdateLinks:=0
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\2013\" & base & "\T1\Masse Salariale\Gestion*des*heures*B*2013 " & base & ".xls" _
        , UpdateLinks:=0
    Workbooks.Open Filename:= _
        "D:\Mes Documents\00 - Réel\2013\" & base & "\MS2013\Formulaire RH 0" & nbase & " CUMUL13.xls" _
        , UpdateLinks:=0
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\2013\" & base & "\T1\Masse Salariale\Maquette MS B 2013 " & base & ".xls" _
        , UpdateLinks:=0
    Workbooks.Open Filename:= _
        "D:\Mes Documents\02 - Budget\2013\" & base & "\T1\Volumes\Volumes Liaisons " & base & ".xls" _
        , UpdateLinks:=0
 
    Windows("Analyse MS Cumulé 2013 031 à fin mai.xlsm").Activate
    Sheets("Commentaires").Select
    Else
    Sheets("Commentaires").Visible = xlSheetHidden
    End If
 
 
End Sub

Et j'aurais voulu effectuer la même chose lors de la fermeture mais j'ai une erreur 9 (ligne 41 du code)

Ci joint 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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Dim mois As Integer
Dim base As String
Dim nbase As String
 
If Environ("UserName") = "adauchet" Then
'Copier coller en valeurs des cellules D8 0 H110
    Sheets("Commentaires").Select
    Range("d8:H110").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("c88:c90").Select
    Selection.Copy
    Sheets("Commentaires en valeurs").Select
    Range("c88").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
 
Windows("Formulaire Exploitation 0" & nbase & " CUMUL13.xls").Activate
    ActiveWorkbook.Save
    ActiveWindow.Close
 
End If
End Sub

Je ne trouve pas à quoi cela est lé. A noter que ce code je l'ai récupérer suit à un enregistrement de macro