XL 2019 copier onglet dans un nouveau dossier

escouger

XLDnaute Occasionnel
Supporter XLD
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

XLDnaute Barbatruc
Bonjour,

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

VB:
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

XLDnaute Accro

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
290 755
Messages
1 910 209
Membres
176 539
dernier inscrit
altheamain
Haut Bas