Discussion :

[ALEX80800]

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 :

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

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

[ALEX80800]

Je sais que ça fait toujours plaisir de voir des résolutions de pb

Ci joint mon pb résolu

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
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
'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
 
Workbooks("Formulaire Exploitation 0" & nbase & " CUMUL13.xls").Close SaveChanges:=False
Workbooks("Gestion*des*heures*B*2013 " & base & ".xls").Close SaveChanges:=False
Workbooks("Formulaire RH 0" & nbase & " CUMUL13.xls").Close SaveChanges:=False
Workbooks("Maquette MS B 2013 " & base & ".xls").Close SaveChanges:=False
Workbooks("Volumes Liaisons " & base & ".xls").Close SaveChanges:=False
End If
End Sub