XL 2019 Purger le fichier initial après l'enregistrement

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
VBA_dev_Anne_Marie

VBA_dev_Anne_Marie

XLDnaute Occasionnel
Bonjour,

Mon fichier s'appelle Mon_fichier_1.xlsm, je souhaite l'enregistrer comme Mon_fichier_final_1.xlsm. Je voudrais que le fichier initial soit purgé de données après l'enregistrement.

Mon code (dans ThisWorkbook) est :
VB: 
Sub Purge()
    Sheets("1 - Feuille de Suivi ").Range("C4") = ""
    Sheets("1 - Feuille de Suivi ").Range("C6") = ""
    Sheets("1 - Feuille de Suivi ").Range("C7") = ""
    Sheets("1 - Feuille de Suivi ").Range("C11") = ""
    Sheets("1 - Feuille de Suivi ").Range("C12") = ""
End Sub

Public Sub Workbook_BeforeClose(Cancel As Boolean)
    If Me.Name = "Mon_fichier_1.xlsm" Then
        Call Purge
        Me.Save
    End If
End Sub

Malheureusement, ce code ne marche pas. En ouvrant le fichier initial je constate les données.

Merci beaucoup pour votre aide !
 
Solution
S
Bonjour Marie,

je te laisse essayer ce code VBA :

VB: 
Public Sub Workbook_BeforeClose(Cancel As Boolean)
  If ThisWorkbook.Name <> "Mon_fichier_1.xlsm" Then Exit Sub
  Worksheets("1 - Feuille de Suivi").[C4, C6, C7, C11, C12] = ""
  ThisWorkbook.Save
End Sub

vérifie quand même que :

* le nom du classeur est bien "Mon_fichier_1.xlsm" et pas "Mon fichier 1.xlsm"

* le nom de la feuille est bien "1 - Feuille de Suivi" et pas "1 - Feuille de Suivi "


ne cherche pas la sub Purge() : y'en n'a plus ! 😁

soan
Trier par date Trier par votes
Bonjour Marie,

je te laisse essayer ce code VBA :

VB: 
Public Sub Workbook_BeforeClose(Cancel As Boolean)
  If ThisWorkbook.Name <> "Mon_fichier_1.xlsm" Then Exit Sub
  Worksheets("1 - Feuille de Suivi").[C4, C6, C7, C11, C12] = ""
  ThisWorkbook.Save
End Sub

vérifie quand même que :

* le nom du classeur est bien "Mon_fichier_1.xlsm" et pas "Mon fichier 1.xlsm"

* le nom de la feuille est bien "1 - Feuille de Suivi" et pas "1 - Feuille de Suivi "


ne cherche pas la sub Purge() : y'en n'a plus ! 😁

soan
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
MarieParis à dit:
Bonjour,

Mon fichier s'appelle Mon_fichier_1.xlsm, je souhaite l'enregistrer comme Mon_fichier_final_1.xlsm. Je voudrais que le fichier initial soit purgé de données après l'enregistrement.

Mon code (dans ThisWorkbook) est :
VB: 
Sub Purge()
    Sheets("1 - Feuille de Suivi ").Range("C4") = ""
    Sheets("1 - Feuille de Suivi ").Range("C6") = ""
    Sheets("1 - Feuille de Suivi ").Range("C7") = ""
    Sheets("1 - Feuille de Suivi ").Range("C11") = ""
    Sheets("1 - Feuille de Suivi ").Range("C12") = ""
End Sub

Public Sub Workbook_BeforeClose(Cancel As Boolean)
    If Me.Name = "Mon_fichier_1.xlsm" Then
        Call Purge
        Me.Save
    End If
End Sub

Malheureusement, ce code ne marche pas. En ouvrant le fichier initial je constate les données.

Merci beaucoup pour votre aide !
Cliquez pour agrandir...
Bonjour à tous
Une proposition avec sauvegarde préalable sous "Mon_fichier_final_1.xlsm" avec les données
Attention au nom de fichier et au nom de feuille (espace en fin de nom)
VB: 
Public Sub Workbook_BeforeClose(Cancel As Boolean)
    If Me.Name <> "Mon_fichier_1.xlsm" Then Exit Sub
    ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\Mon_fichier_final_1.xlsm"
    Worksheets("1 - Feuille de Suivi ").[C4, C6:C7, C11:C12] = ""
    Me.Save
End
 
Dernière édition:
Vote positif 0 Vote négatif
soan à dit:
Bonjour Marie,

je te laisse essayer ce code VBA :

VB: 
Public Sub Workbook_BeforeClose(Cancel As Boolean)
  If ThisWorkbook.Name <> "Mon_fichier_1.xlsm" Then Exit Sub
  Worksheets("1 - Feuille de Suivi").[C4, C6, C7, C11, C12] = ""
  ThisWorkbook.Save
End Sub

vérifie quand même que :

* le nom du classeur est bien "Mon_fichier_1.xlsm" et pas "Mon fichier 1.xlsm"

* le nom de la feuille est bien "1 - Feuille de Suivi" et pas "1 - Feuille de Suivi "


ne cherche pas la sub Purge() : y'en n'a plus ! 😁

soan
Cliquez pour agrandir...
Merci beaucoup Soan ! Est-il possible de récupérer le nom du fichier initial automatiquement ? Je crois que c'est pas possible car le fichier cible sera modifié aussi. Je suis débutante, c'est juste pour savoir. 🙂
 
Vote positif 0 Vote négatif
@MarieParis

vbLf sert à passer à la ligne suivante ; Lf = Line feed = « nourrir » une ligne ; pour passer à la ligne suivante et aussi en laissant une ligne vide, il faut 2 vbLf ; pour éviter de mettre & vbLf & vbLF j'utilise une constante lf2 qui contient 2 caractères Lf ; ainsi je peux mettre & lf2 qui est plus court, et ça améliore la lisibilité du code VBA. 🙂 bien sûr, tu peux choisir d'utiliser un autre nom que lf2.​

soan
 
Vote positif 0 Vote négatif
soan à dit:
@MarieParis

vbLf sert à passer à la ligne suivante ; Lf = Line feed = « nourrir » une ligne ; pour passer à la ligne suivante et aussi en laissant une ligne vide, il faut 2 vbLf ; pour éviter de mettre & vbLf & vbLF j'utilise une constante lf2 qui contient 2 caractères Lf ; ainsi je peux mettre & lf2 qui est plus court, et ça améliore la lisibilité du code VBA. 🙂 bien sûr, tu peux choisir d'utiliser un autre nom que lf2.​

soan
Cliquez pour agrandir...
Merci beaucoup Soan !
 
Vote positif 0 Vote négatif
Jacky67 à dit:
Bonjour à tous
Une proposition avec sauvegarde préalable sous "Mon_fichier_final_1.xlsm" avec les données
Attention au nom de fichier et au nom de feuille (espace en fin de nom)
VB: 
Public Sub Workbook_BeforeClose(Cancel As Boolean)
    If Me.Name <> "Mon_fichier_1.xlsm" Then Exit Sub
    ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\Mon_fichier_final_1.xlsm"
    Worksheets("1 - Feuille de Suivi ").[C4, C6:C7, C11:C12] = ""
    Me.Save
End
Cliquez pour agrandir...
soan à dit:
Bonjour Marie,

je te laisse essayer ce code VBA :

VB: 
Public Sub Workbook_BeforeClose(Cancel As Boolean)
  If ThisWorkbook.Name <> "Mon_fichier_1.xlsm" Then Exit Sub
  Worksheets("1 - Feuille de Suivi").[C4, C6, C7, C11, C12] = ""
  ThisWorkbook.Save
End Sub

vérifie quand même que :

* le nom du classeur est bien "Mon_fichier_1.xlsm" et pas "Mon fichier 1.xlsm"

* le nom de la feuille est bien "1 - Feuille de Suivi" et pas "1 - Feuille de Suivi "


ne cherche pas la sub Purge() : y'en n'a plus ! 😁

soan
Cliquez pour agrandir...
En VBA existe-t-il une sorte de métadonnées pour ne pas mettre en dur "Mon_fichier_1.xlsm" ? En fait, si j'utilise & .Name & les données seront effacées même dans le fichier cible. Ce n'est pas bloquant pour moi, je peux mettre le nom en dur. C'était juste pour savoir si c'est possible 🙂 Merci beaucoup !
 
Vote positif 0 Vote négatif
@MarieParis

j'suis pas sûr d'avoir bien compris ta demande ; peut-être comme ça :

VB: 
Public Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim chn$
  chn = "Mon_fichier_1.xlsm"
  If ThisWorkbook.Name <> chn Then Exit Sub
  Worksheets("1 - Feuille de Suivi").[C4, C6, C7, C11, C12] = ""
  ThisWorkbook.Save
End Sub

je déclare une variable chaîne de caractères :

Dim chn$ : c'est idem que Dim chn As String

j'ai choisi le nom chn pour « chaîne » mais bien sûr, tu peux choisir un autre nom de variable, par exemple NomFichier ; cette variable peut contenir du texte, donc on peut y mettre "Mon_fichier_1.xlsm".

ce que j'ai fait est juste pour un exemple de code VBA, mais en pratique, ici, ça n'a pas d'intérêt puisque la valeur de chn ne change pas ; c'est seulement si tu utilises chn dans un code VBA où le nom du fichier varie que ça pourra avoir un intérêt.​

soan
 
Vote positif 0 Vote négatif
soan à dit:
@MarieParis

j'suis pas sûr d'avoir bien compris ta demande ; peut-être comme ça :

VB: 
Public Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim chn$
  chn = "Mon_fichier_1.xlsm"
  If ThisWorkbook.Name <> chn Then Exit Sub
  Worksheets("1 - Feuille de Suivi").[C4, C6, C7, C11, C12] = ""
  ThisWorkbook.Save
End Sub

je déclare une variable chaîne de caractères :

Dim chn$ : c'est idem que Dim chn As String

j'ai choisi le nom chn pour « chaîne » mais bien sûr, tu peux choisir un autre nom de variable, par exemple NomFichier ; cette variable peut contenir du texte, donc on peut y mettre "Mon_fichier_1.xlsm".

ce que j'ai fait est juste pour un exemple de code VBA, mais en pratique, ici, ça n'a pas d'intérêt puisque la valeur de chn ne change pas ; c'est seulement si tu utilises chn dans un code VBA où le nom du fichier varie que ça pourra avoir un intérêt.​

soan
Cliquez pour agrandir...
Merci beaucoup !
 
Vote positif 0 Vote négatif
MarieParis à dit:
En VBA existe-t-il une sorte de métadonnées pour ne pas mettre en dur "Mon_fichier_1.xlsm" ? En fait, si j'utilise & .Name & les données seront effacées même dans le fichier cible. Ce n'est pas bloquant pour moi, je peux mettre le nom en dur. C'était juste pour savoir si c'est possible 🙂 Merci beaucoup !
Cliquez pour agrandir...
*Autre version
VB: 
Public Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim NOM$
    NOM = Me.Name  ' Mémorise le nom du classeur source
    Application.DisplayAlerts = False ' evite le message de sauvegarde de excel
    'Enregistre au format ".xlsX" (Sans macro) le classeur cible avec le nom du classeur source + "_final"
    ActiveWorkbook.SaveAs Filename:=Replace(ThisWorkbook.Name, ".xlsm", "_final"), FileFormat:=51
    Worksheets("1 - Feuille de Suivi ").[C4, C6:C7, C11:C12] = ""  ' efface les cellules correspondantes
    ActiveWorkbook.SaveAs Filename:=NOM, FileFormat:=52 ' enregisttre le classeur source (format ".xlsM")
    Application.DisplayAlerts = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
390
job75
job75
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
435
sylvanu
sylvanu
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Réinitialiser le fichier initial
Réponses
10
Affichages
823
chaelie2015
chaelie2015
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
749
Chaton77
Chaton77
8
  • Question Question
XL 2021 Nom de feuille vba
Réponses
5
Affichages
518
89ric
8
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
875
marie3107
M
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
688
loreak
L
chaelie2015
  • Question Question
XL 2013 Modifier un code de sauvegarde
2
Réponses
16
Affichages
1 K
chaelie2015
chaelie2015
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
818
Liner77
L
Y
  • Question Question
XL 2013 Macro positionnée dans le code d'un feuille
Réponses
10
Affichages
501
Dranreb
Dranreb
I
  • Question Question
XL 2016 Mon code VBA me renvoi une erreur
Réponses
6
Affichages
818
INFINITY100
I
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
Dranreb
O
  • Question Question
XL 2010 suppression fichiers excel vba
Réponses
9
Affichages
685
Oneida
Oneida
kalem
  • Question Question
Microsoft 365 [VBA] Enchaîner déplacer lignes + supprimer les lignes vides.
Réponses
3
Affichages
938
ARMAEL
A
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
830
lesoldat9
L
K
  • Question Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
926
Kevin38
K
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
VBA_dev_Anne_Marie
  • Résolu(e)
Microsoft 365 VBA: fonction pour désélectionner après le tri
Réponses
2
Affichages
617
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
Retour