Rendre invisible un classeur

Version imprimable

Bonjour,

Je souhaiterais pouvoir masquer un classeur pour le nettoyer et l'utiliser ultérieurement en classeur fermé. Tout mon code se trouve dans un classeur particulier dans lequel aucune donnée n'existe.

A chaque fois que je masque celui ci ou le minimise, la méthode select échoue ce qui me semble normal (classeur pas activé).

Puis je obtenir ce que je souhaite cad masquer ou minimiser le classeur et pouvoir le nettoyer?

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
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
Sub Preparer_NCC3()
 
    Dim wksFeuille As Worksheet
    Dim NomFeuil As String
    Dim MonTableau As Variant
 
    Application.ScreenUpdating = False
 
    Application.DisplayAlerts = False
 
    Windows("01_BD_NCC.xlsm").Visible = False
 
    For Each wksFeuille In Workbooks("01_BD_NCC.xlsm").Worksheets
 
        If Left(wksFeuille.Name, 6) <> "Classe" Then
 
            wksFeuille.Delete
 
        Else
 
            NomFeuil = Replace(wksFeuille.Name, " ", "_")
 
            wksFeuille.Name = NomFeuil
 
            wksFeuille.Rows("1:4").Delete
 
            MonTableau = wksFeuille.Range("A1").CurrentRegion
 
            wksFeuille.Cells.Delete
 
            wksFeuille.Range("A1:U1") = Array("Numero", "Libelle", "Code_correspondant", "Nature_operation", "Annee_Orig_Creance", "Ref_PCE_Pallier", _
            "DA", "Fonctionnement", "Solde_CE", "Solde_FE", "Justif_CE", "Justif_FE", "Justif_CC", "Observations", "Origine_Creance", _
            "Code_Attrib", "Code_CDR", "Code_Immo", "Code_Flux", "Affectation", "Date_MAJ")
 
            Dim I As Integer
 
            For I = 1 To UBound(MonTableau)
 
                If Len(MonTableau(I, 1)) <> 10 Then
 
                    MonTableau(I, 1) = ""
 
                Else
 
                    MonTableau(I, 1) = CDbl(MonTableau(I, 1))
 
                End If
 
            Next
 
            wksFeuille.Range("A2").Resize(UBound(MonTableau), UBound(MonTableau, 2)) = MonTableau
 
            Dim J As Long
            Dim DerniereLigne As Long
 
            wksFeuille.Cells.RowHeight = 14.25
 
            DerniereLigne = wksFeuille.Cells(wksFeuille.Rows.Count, 1).End(xlUp).Row
 
            For J = DerniereLigne To 2 Step -1
 
                If wksFeuille.Cells(J, 1) = "" Then wksFeuille.Cells(J, 1).EntireRow.Delete
 
            Next J
 
        End If
 
    Next wksFeuille
 
    With Cells
 
        .Replace what:="'", Replacement:=" "
        .Replace what:="’", Replacement:=" "
 
    End With
 
    Application.DisplayAlerts = True
 
    Application.ScreenUpdating = True
 
    MsgBox "Opération terminée"
 
    Windows("01_BD_NCC.xlsm").Visible = True
 
 
End Sub

Je vous remercie de l'aide que vous pourriez m'apporter?

Eric

25/04/2019, 14h03
halaster08
Citation:

Envoyé par Eric_03

la méthode select échoue

Pourquoi ne pas supprimer tout ces select inutiles ?
Code:

1 2 3 4 5 wksFeuille.Select Cells.Select Selection.Delete
S'écrit:

Code:

wksFeuille.Cells.Delete

Bon ménage !

Merci tout fonctionne correctement :oops:

Code corrigé

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
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
Sub Preparer_NCC3()
 
    Dim wksFeuille As Worksheet
    Dim NomFeuil As String
    Dim MonTableau As Variant
 
    Application.ScreenUpdating = False
 
    Application.DisplayAlerts = False
 
    Windows("01_BD_NCC.xlsm").Visible = False
 
    For Each wksFeuille In Workbooks("01_BD_NCC.xlsm").Worksheets
 
        If Left(wksFeuille.Name, 6) <> "Classe" Then
 
            wksFeuille.Delete
 
        Else
 
            NomFeuil = Replace(wksFeuille.Name, " ", "_")
 
            wksFeuille.Name = NomFeuil
 
            wksFeuille.Rows("1:4").Delete
 
            MonTableau = wksFeuille.Range("A1").CurrentRegion
 
            wksFeuille.Cells.Delete
 
            wksFeuille.Range("A1:U1") = Array("Numero", "Libelle", "Code_correspondant", "Nature_operation", "Annee_Orig_Creance", "Ref_PCE_Pallier", _
            "DA", "Fonctionnement", "Solde_CE", "Solde_FE", "Justif_CE", "Justif_FE", "Justif_CC", "Observations", "Origine_Creance", _
            "Code_Attrib", "Code_CDR", "Code_Immo", "Code_Flux", "Affectation", "Date_MAJ")
 
            Dim I As Integer
 
            For I = 1 To UBound(MonTableau)
 
                If Len(MonTableau(I, 1)) <> 10 Then
 
                    MonTableau(I, 1) = ""
 
                Else
 
                    MonTableau(I, 1) = CDbl(MonTableau(I, 1))
 
                End If
 
            Next
 
            wksFeuille.Range("A2").Resize(UBound(MonTableau), UBound(MonTableau, 2)) = MonTableau
 
            Dim J As Long
            Dim DerniereLigne As Long
 
            wksFeuille.Cells.RowHeight = 14.25
 
            DerniereLigne = wksFeuille.Cells(wksFeuille.Rows.Count, 1).End(xlUp).Row
 
            For J = DerniereLigne To 2 Step -1
 
                If wksFeuille.Cells(J, 1) = "" Then wksFeuille.Cells(J, 1).EntireRow.Delete
 
            Next J
 
        End If
 
    Next wksFeuille
 
    With Cells
 
        .Replace what:="'", Replacement:=" "
        .Replace what:="’", Replacement:=" "
 
    End With
 
    Application.DisplayAlerts = True
 
    Application.ScreenUpdating = True
 
    MsgBox "Opération terminée"
 
    Windows("01_BD_NCC.xlsm").Visible = True
 
 
End Sub

Eric