problème d'enregistrement d'une copie Excel en VBA Fermé

Question

Bonjour à tous,
J'ai créé une macro qui vise à enregistrer en PDF une copie d'une feuille d'un classeur EXCEL (EXCEL2010). Mon problème est que celle-ci créée bien la copie PDF mais elle créée aussi une autre copie en EXCEL que je ne désire pas. Je cherche depuis plusieurs jours une solution pour  empêcher cette dernière ou, à défaut, la supprimer automatiquement mais je n'y parviens pas. Auriez-vous une solution ???
Voici le code :
1 - celui de la macro qui crée la copie et l'enregistre après avoir ôter la protection du fichier source,
2 - celui de la macro qui appelle l'enregistrement et par la même la première macro.
(J'ai décomposé les deux de manière à ce que celle qui appelle l'enregistrement puisse également, en d'autres circonstances, appeler d'autres macros qui traitent d'autres sujets autour de l'enregistrement) et qui remet en place la protection en final.

1 -
Sub Copier_enregistr_CHIFFRAGE_PDF()
ActiveSheet.Unprotect ("TOTO") 'On enlève la protection de la feuille "GRILLE DE CHIFFRAGE"
Dim NomDeSauvegardePDF, NomSauvePDF
Application.EnableEvents = False
ThisWorkbook.Worksheets("GRILLE DE CHIFFRAGE").Copy
With ActiveWorkbook
 Dim s As Object
'suppression des boutons de commande
    'Bouton "NOUVEAU CHIFFRAGE"
    For Each s In ActiveSheet.Shapes
     If s.TopLeftCell.Address = "$N$18" Then
       s.Delete
     End If
    Next s
     'Bouton "ENREGISTRER COPIE PDF"
    For Each s In ActiveSheet.Shapes
     If s.TopLeftCell.Address = "$N$21" Then
       s.Delete
     End If
    Next s
'suppression des macros
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
        .DeleteLines 1, .CountOfLines
    End With

'Suppression des formules
 Cells.Select
 Selection.Copy
 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
 False, Transpose:=False
 Application.CutCopyMode = False
 Cells(1, 1).Select
 

'definition du nom du fichier
NomDeSauvegardePDF = ActiveWorkbook.Sheets("GRILLE DE CHIFFRAGE").Range("A5").Text

'enregistre la copie sous le nom contenu dans la cellule A5 de la feuille "GRILLE DE CHIFFRAGE" du fichier Source à un
'emplacement choisi par l'utilisateur
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomDeSauvegardePDF, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
If NomSauvePDF = False Then Exit Sub


End With

Exit Sub

Application.EnableEvents = True

End Sub

2 -

Sub Confirmation_enregistrement()
'Demande confirmation pour lancer la procédure d'enregistrement
    Select Case MsgBox("Êtes-vous sûr de vouloir enregistrer ce chiffrage ?", vbYesNo, "Enregistrement")
    
    Case vbYes
    ' Procédure si click sur Oui
        'Combine dans l'ordre la macro et les instructions suivantes
            Call Copier_enregistr_CHIFFRAGE_PDF
            ActiveWorkbook.Close True
            'On remet la protection avec mot de passe de la feuille "GRILLE DE CHIFFRAGE"
            ActiveSheet.Protect Password:="TOTO", DrawingObjects:=True, Contents:=True, Scenarios:=True

     Case vbNo
    'procédure si click sur Non
    End Select
End Sub

Merci d'avance pour votre aide.

BING 02

Frenchie83 · Answer

Bonjour
Ajouter la première ligne, 
supprimer "true"  après "ActiveWorkbook.Close"

Sub Confirmation_enregistrement()
    Application.DisplayAlerts = False
    'Demande confirmation pour lancer la procédure d'enregistrement
    Select Case MsgBox("Êtes-vous sûr de vouloir enregistrer ce chiffrage ?", vbYesNo, "Enregistrement")
        Case vbYes
            ' Procédure si click sur Oui
            'Combine dans l'ordre la macro et les instructions suivantes
            Call Copier_enregistr_CHIFFRAGE_PDF
            ActiveWorkbook.Close
            'On remet la protection avec mot de passe de la feuille "GRILLE DE CHIFFRAGE"
            ActiveSheet.Protect Password:="TOTO", DrawingObjects:=True, Contents:=True, Scenarios:=True
        Case vbNo
            'procédure si click sur Non
    End Select
End Sub

Cdlt

Frenchie83 · Answer

mettre la première ligne en remarque

BING02 · Answer

Bonsoir Frenchie83,
Je ne saurai trop te remercier pour le temps que tu me consacres.
J'ai donc ajouté une ' devant la 1ère ligne du code mais avec celle-ci, la copie en EXCEL est revenue et il me demande si je veux l'enregistrer. Par contre, je ne vois pas passer celle en PDF et elle demeure introuvable. Je ne comprends plus rien.
Je te joins ci-dessous le code modifié avec toutes tes remarques. Est-ce correct. Tu peux peut-être aussi regarder celui que j'avais joint au-départ pour la partie enregistrement en PDF.

Problème d'enregistrement d'une copie Excel en VBA

3 réponses