Discussion :

[ThSPB]

Bonsoir à toutes et tous,
J'ai écrit un petit code pour copier une feuille (PA) et l'enregistrer au format XLSX. 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
 
Sub Edit_XLS()
'
Dim LePath As String, LeNom As String
 
 
 
 
        'MsgBox Sheets("V04").Cells(242, 2)
        Call BPV_PI_007
                Sheets("PA").CommandButton1.Visible = False
                Sheets("PA").Button_Export_XLSX.Visible = False
 
 
    Sheets("PA").Select
        Range("A1").Select
 
            LePath = ActiveWorkbook.Path & "\"
                ActiveSheet.Copy
            LeNom = [B2] & "_PA" & ".xlsx"
                ActiveWorkbook.SaveAs LePath & LeNom
 
    ActiveWorkbook.Close
 
                Sheets("PA").CommandButton1.Visible = True
                Sheets("PA").Button_Export_XLSX.Visible = True
 
        Call Protect
 
    Sheets("PA").Select
        Range("A1").Select
 
 
End Sub

Ce code je l'ai déjà utilisé avec succès sur un autre fichier. J'ai affichage suivant lorsque je passe en mode manuel (F8)

Pourrez vous me dire où est l'erreur.
Merci pour votre aide