Copie d'un classeur en supprimant un rectangle

BOnsoir tous le monde.

J'ai un classeur ou j'ai insérer un rectangle qui se nomme Rectangle 2

J'ai affecté à ce bouton la macro suivante :

Sub enregistreVEC()
'
' enregistreVEC Macro
'

'
    ChDir "G:\moi\CABINET\Relevé de compte"
    ActiveWorkbook.SaveAs Filename:= _
        "G:\moi\CABINET\Relevé de compte\Compte bancaire.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

        ChDir "G:\moi\JN"
    ActiveWorkbook.SaveAs Filename:= _
        "G:\moi\JN\Compte bancaire.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

je souhaite que le rectangle soit supprimer ou invisible mais seulement sur la version qui s'enregistre dans "G:\moi\CABINET\Relevé de compte" il faut absolument que je le conserve sur l'autre copie dans moi\JN

merci d'avance pour votre aide

est-ce possible?

Et dans le même temps, comme j'enregistre par dessus sans changer le nom de fichier, comment eviter ou automatiser le faite que windows me demande si je suis sur de remplacer le fichier?

Merciiiii

Bonjour,

Voici une piste :

Sub Test()

    Application.DisplayAlerts = False

    ActiveWorkbook.Worksheets("Feuil1").Shapes("Rectangle 2").Visible = False
    ActiveWorkbook.SaveAs "E:\Téléchargements\Compte bancaire.xls", xlOpenXMLWorkbookMacroEnabled

    Application.DisplayAlerts = True

End Sub

Merci pour cette piste, par contre tu nomme feuil1 mais j'en ai + de 20 dans le classeur.

Je dois inserer ton code ou dans mon code?

    Sub enregistreVEC()
    '
    ' enregistreVEC Macro
    '

    '
       ChDir "G:\moi\CABINET\Relevé de compte"
        ActiveWorkbook.SaveAs Filename:= _
            "G:\moi\CABINET\Relevé de compte\Compte bancaire.xlsm", FileFormat:= _
            xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

            ChDir "G:\moi\JN"
        ActiveWorkbook.SaveAs Filename:= _
            "G:\moi\JN\Compte bancaire.xlsm", FileFormat:= _
            xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    End Sub

Re,

"Feuil1" est un exemple, il te faut adapter en inscrivant la feuille concernée et si tu en as plusieurs, il te faut boucler.

Pour le code :

Sub enregistreVEC()

    Application.DisplayAlerts = False

    ActiveWorkbook.Worksheets("Feuil1").Shapes("Rectangle 2").Visible = False

    ChDir "G:\moi\CABINET\Relevé de compte"
    ActiveWorkbook.SaveAs Filename:= _
    "G:\moi\CABINET\Relevé de compte\Compte bancaire.xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

    ActiveWorkbook.Worksheets("Feuil1").Shapes("Rectangle 2").Visible = True

    ChDir "G:\moi\JN"
    ActiveWorkbook.SaveAs Filename:= _
    "G:\moi\JN\Compte bancaire.xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

    Application.DisplayAlerts = True

End Sub

Ok je vais essayer ca en rentrant merci bcp

Pour boucler il faut faire comment?