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

[Philippe Tulliez]

Bonjour,
Et bien l'erreur est devant tes yeux. C'est écrit noir sur blanc dans le message de la boîte de dialogue.
Un classeur contenant du VBA ne peut pas être sauvé comme XLSX sauf si tu souhaites perdre le code.
Tu dois donc le sauver comme XLSM (M comme macro) ou XLSB ou encore comme XLS (ancienne version Excel 97-2003)

[jerome.vaussenat]

Salut,

Pour éviter les messages d'alerte d'Excel à l'enregistrement, tu peux utiliser çà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.displayalerts = False
activeworkbook.Save
Application.displayalerts = True

Ne pas oublier de réactiver les alertes le plus tôt possible ...

En espérant que cela solutionnera ton problème.

[ThSPB]

Bonsoir et Merci à tous les deux,
Je vous remercie de vos réponses rapides.
Entre temps j'ai solutionné le problème, j'ai fait un code pour copier et garder la mise en forme de la feuille"PA" et coller dans la feuille "Feuill2", puis j'ai repris le code que j'avais déjà écrit avec les modifications nécessaires (adresse).

Donc d'un fichier XLSM on peut bien enregistrer un XLSX, mais je pense que la présence de code liés à la feuille a créé l'anomalie, j'avais essayer XLSM avant de vous appeler au secours sans succès.

Jérôme, ta solution me plait bien, je la garde sous le coude. On ne sait jamais.

Encore Merci.

Thierry

[kiki29]

Salut, à lire : Le format openXML