XL 2019 copier onglet dans un nouveau dossier

[escouger]

Bonjour,
J'ai une macro VBA qui est chargée de recopier intégralement le contenu d'un onglet d'un fichier vers un nouveau fichier.
Ce onglet contient une "Private Sub Worksheet_Change(ByVal Target As Range) qui est aussi recopiée alors que ne le veux pas.
Existe-t-il un moyen pour que cette "Private..." ne soit pas recopiée?
Voir la macro jointe qui effectue la copie et la création du nouveau fichier ainsi que la "private.." que je veux pas recopier.

Merci d'avance de votre aide.

Sub CreerFichier()
FILENAM = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".") - 1)
pardat = Now()
pardat = Format(pardat, "dd-mm-yyyy hh mm")
part1 = "Création du Fichier de distribution de la liste des adhérents "
part2 = FILENAM & "-" & pardat & "_liste_ADH.xlsx"
part0 = part1 & part2
MsgBox part0

Dim F As Worksheet
Set F = ActiveSheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
F.Copy ' pour créer le nouveau document
With ActiveSheet
.UsedRange = F.UsedRange.Value 'copie les valeurs
.Parent.SaveAs part2
.Parent.Close
End With

End Sub
_______________________________________________________________________________________________


Sequence présente dans l'onglet original que je ne veux pas recopier dans le nouveau dossier:


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
adr = Target.Address

If Target.Column = 14 Then
If Target.Row > 9 Then

Application.EnableEvents = False
lig = Target.Row

dateadh = Range(adr)
anciennete
End If
End If
Application.EnableEvents = True

End Sub

 

[Hasco]

Bonjour,

normalement il suffit de sauvegarder au bon format. Mettre une extension ".xlsx" au nom de fichier n'est pas suffisant.

Sub NouveauFichier()
    ThisWorkbook.Sheets("Feuil1").Copy
    Application.DisplayAlerts = False
    With ActiveWorkbook
        .SaveAs ThisWorkbook.Path & "\fichier.xlsx", xlOpenXMLWorkbook
        .Close False
    End With
    Application.DisplayAlerts = True
End Sub

Si vous pouviez utiliser le bouton </> pour éditer vos lignes de code dans vos posts, ce serait mieux.

Cordialement

 

[fanch55]

Bonsoir,
Soit on sauvegarde avec les macros, soit sans ( saveas FileFormat:=xlOpenXMLStrictWorkbook ou xlOpenXMLWorkbook) .

La modification chirurgicale du Vbe par le Vba est possible mais assez délicate :

Visual Basic / VB.NET : Suppression d'objets 'vbproject' ou de son code en vba excel - CodeS SourceS

Par rapport à une demande sur le forum, j?ai fait ces 3 procédures qui suppriment un objet du Projet VBA Excel ou son code. ATTENTION : ne...

codes-sources.commentcamarche.net

 

[escouger]

OK Merci beaucoup. Cela fonctionne maintenant.