XL 2013 supprimer un fichier excel sur lequel on travail

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
R

rochethomas

XLDnaute Nouveau
Bonjour ,
J'aurais besoin de votre aide .
Voici le problème, j'ai un fichier excel qui quand on l'enregistre se nomme grace a certaine donner du classeur . Ces paramètres change et quand on enregistre il crée un nouveau fichier avec le nouveau nom ( tout est normal ) sauf que je souhaiterais supprimé l'ancien et gardé que le dernier modifier avec le nouveau nom
et ce que cela est possible ?
si besoin je peux joindre le fichier
PS: Je suis débutant et ne métrise pas parfaitement le VBA mais je demande que a apprendre
 
Solution
Dranreb
Bonsoir.
Simple :
VB: 
Dim AncienNom As String, NouveauNom As String
…
AncienNom = ActiveWorkbook.FullName
NouveauNom = Chemin & "\" & Num_Semaine & "\" & Ouvrage_IDR & " - " & Nature_Travaux _
   & " - " & Appareil_concerné & " - " & Validation & ".xlsm"
ActiveWorkbook.SaveAs Filename:=NouveauNom
If NouveauNom <> AncienNom Then Kill AncienNom
Trier par date Trier par votes
Bonjour,

Pour supprimer un fichier, se renseigner sur ce lien. Pour ce faire, il vous faudra connaitre le chemin du fichier, et donc son nom avant que celui-ci ne soit modifié.
Le nom du fichier en question a t'il une structure particulière ? Du genre TestXLD_User_Date avec User et Date qui correspondent à votre nom d'utilisateur et à la date d'hier ?

Bonne journée,
 
Vote positif 0 Vote négatif
Bonjour rochethomas et bienvenue 😉

Tout dépend comment le nouveau fichier est créé 🤔

Si c'est par
VB: 
ThisWorkBook.SaveAs Chemin & Nom
Il suffit alors de mémoriser le nom de l'ancien fichier avant l'enregistrement
et de le supprimer par
Code: 
Kill Chemin & Nom
Après l'enregistrement

J'espère que ce sera plus clair

A+

Edit : re-salut xUpsilon 😜
 
Vote positif 0 Vote négatif
xUpsilon à dit:
Bonjour,

Pour supprimer un fichier, se renseigner sur ce lien. Pour ce faire, il vous faudra connaitre le chemin du fichier, et donc son nom avant que celui-ci ne soit modifié.
Le nom du fichier en question a t'il une structure particulière ? Du genre TestXLD_User_Date avec User et Date qui correspondent à votre nom d'utilisateur et à la date d'hier ?

Bonne journée,
Cliquez pour agrandir...
non il n'a pas une forme particulière ,
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\" & Num_Semaine & "\" & Ouvrage_IDR & " - " & Nature_Travaux & " - " & Appareil_concerné & " - " & Validation & ".xlsm"
la seul variable qui change est la variable validation qui évolue et pour pas que cela crée plusieurs fichier identique mais avec des noms différent je voudrais supprimé le dernier sauvegarder a cette endroit avant de l'enregistrer
 
Vote positif 0 Vote négatif
BrunoM45 à dit:
Bonjour rochethomas et bienvenue 😉

Tout dépend comment le nouveau fichier est créé 🤔

Si c'est par
VB: 
ThisWorkBook.SaveAs Chemin & Nom
Il suffit alors de mémoriser le nom de l'ancien fichier avant l'enregistrement
et de le supprimer par
Code: 
Kill Chemin & Nom
Après l'enregistrement

J'espère que ce sera plus clair

A+

Edit : re-salut xUpsilon 😜
Cliquez pour agrandir...
voici le code
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\" & Num_Semaine & "\" & Ouvrage_IDR & " - " & Nature_Travaux & " - " & Appareil_concerné & " - " & Validation & ".xlsm"
comment mémoriser le chemin ?
la variable qui bouge est la validation qui évolue 3 fois ! Je ne sais pas comment faire pour lui dire enregistre le nouveau fichier avec la variable modifier et supprimer le chier qui porte le nom actuelle
 
Vote positif 0 Vote négatif
Dranreb à dit:
Bonsoir.
Simple :
VB: 
Dim AncienNom As String, NouveauNom As String
…
AncienNom = ActiveWorkbook.FullName
NouveauNom = Chemin & "\" & Num_Semaine & "\" & Ouvrage_IDR & " - " & Nature_Travaux _
   & " - " & Appareil_concerné & " - " & Validation & ".xlsm"
ActiveWorkbook.SaveAs Filename:=NouveauNom
If NouveauNom <> AncienNom Then Kill AncienNom
Cliquez pour agrandir...
Bonjour
Merci pour votre réponse
Je viens de faire un essaie et sa bloque avec un message qui me dit Impossible d'utilisé cette extention avec le type de fichier sélectrionné. modifier l'extention du fichier dans la zone de texte nom du fichier ou sélectionné un autre type de fichier dans la zone type fichier
sa bloque la ou j'ai surligné en rouge dans la fenetre VB
VB: 
Sub Enregistre_Prepa()
'
Chemin = "K:\MALINTRAT\MAINTENANCE\A-Préparations Travail - Consignation\Préparation de travail\Année\2022"
Num_Semaine = Sheets("Page de Garde").Range("H4").Value
Type_DJ = Sheets("Page de Garde").Range("M24").Value
Ouvrage_IDR = Sheets("Page de Garde").Range("D10").Value
Nature_Travaux = Sheets("Page de Garde").Range("D30").Value
Appareil_concerné = Sheets("Page de Garde").Range("M24").Value
Validation = Sheets("Page de Garde").Range("L58").Value

If Sheets("Page de Garde").Range("H4") <> "" And Sheets("Page de Garde").Range("D10") <> "" And Sheets("Page de Garde").Range("M24") <> "" And Sheets("Page de Garde").Range("D30") <> "" And Sheets("Page de Garde").Range("D35") <> "" Then
  


Dim AncienNom As String, NouveauNom As String

AncienNom = ActiveWorkbook.FullName
NouveauNom = Chemin & "\" & Num_Semaine & "\" & Ouvrage_IDR & " - " & Nature_Travaux _
   & " - " & Appareil_concerné & " - " & Validation & ".xlsm"
[COLOR=rgb(184, 49, 47)][U][B][I]ActiveWorkbook.SaveAs Filename:=NouveauNom[/I][/B][/U][/COLOR]
If NouveauNom <> AncienNom Then Kill AncienNom

        

    
    'ActiveWorkbook.SaveAs Filename:= _
'Chemin & "\" & Num_Semaine & "\" & Ouvrage_IDR & " - " & Nature_Travaux & " - " & Appareil_concerné & " - " & Validation & ".xlsm" _
        ', FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


        
        
        Workbooks.Open Filename:="K:\MALINTRAT\MAINTENANCE\A-Préparations Travail - Consignation\Préparations de travail pour chantiers 2022 indice 3.xlsx"
        MsgBox ("Votre préparation a été enregistré" & vbLf & "Veuillez renseigner le fichier Préparation de travail pour chantier 2022 ")
        
        Else
    
        
    MsgBox ("Veuillez entrer la date, le départ,la nature des travaux, le nom du rédacteur ansi que de cocher le type de maintenance ")
      
        End If
        
    
End Sub
 
Vote positif 0 Vote négatif
Bonjour J'ai un problème avec mon code il m'affiche une erreur d'éxecution 70 "permission refusée

Sub Enregistre_Prepa()

Chemin = "K:\MALINTRAT\0.Préparation de travail\Départ\"
Num_Semaine = Sheets("Page de Garde").Range("D4").Value
Type_DJ = Sheets("Page de Garde").Range("M24").Value
Ouvrage_IDR = Sheets("Page de Garde").Range("D10").Value
Nature_Travaux = Sheets("Page de Garde").Range("D30").Value
Appareil_concerné = Sheets("Page de Garde").Range("M24").Value
Validation = Sheets("Page de Garde").Range("L58").Value

If Sheets("Page de Garde").Range("D4") <> "" And Sheets("Page de Garde").Range("D10") <> "" And Sheets("Page de Garde").Range("M24") <> "" And Sheets("Page de Garde").Range("D30") <> "" And Sheets("Page de Garde").Range("C35") <> "" Then



Dim AncienNom As String, NouveauNom As String

AncienNom = ActiveWorkbook.FullName
NouveauNom = Chemin & "\" & Ouvrage_IDR & "\" & Num_Semaine & " - " & Nature_Travaux _
& " - " & Appareil_concerné & " - " & Validation & ".xlsm"



If NouveauNom <> AncienNom Then Kill AncienNom




'ActiveWorkbook.SaveAs Filename:= _
'Chemin & "\" & Num_Semaine & "\" & Ouvrage_IDR & " - " & Nature_Travaux & " - " & Appareil_concerné & " - " & Validation & ".xlsm" _
', FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False




Workbooks.Open Filename:="K:\MALINTRAT\MAINTENANCE\A-Préparations Travail - Consignation\Préparations de travail pour chantiers 2022 indice 3.xlsx"
MsgBox ("Votre préparation a été enregistré" & vbLf & "Veuillez renseigner le fichier Préparation de travail pour chantier 2022 ")

Else


MsgBox ("Veuillez entrer la date, le départ,la nature des travaux, le nom du rédacteur ansi que de cocher le type de maintenance ")

End If


End Sub
 
Vote positif 0 Vote négatif
Sur quelle instruction, le message ?
Si c'est sur le Kill, vérifiez si l'ancien fichier n'est pas toujours encore aussi ouvert …
et si c'est sur le SaveAs, au contraire si un autre classeur ouvert ne porte pas déjà le nouveau nom.
 
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

B
  • Question Question
XL 2019 sauvegarde de donnée dans un calendrier automatique
Réponses
5
Affichages
284
fanfan38
fanfan38
jeff1494
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
747
jeff1494
jeff1494
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
342
AtTheOne
AtTheOne
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
345
Dégé59
D
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
525
Phil69970
Phil69970
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
Y
  • Question Question
Autres Macros étranges sur ancien fichier Excel
2
Réponses
17
Affichages
807
Oneida
Oneida
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
668
arnoldbrice19
A
Z
  • Résolu(e)
XL 2021 Faire clignoter un texte spécifique dans les cellules d'une colonne
Réponses
4
Affichages
550
ZE21000
Z
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
562
JJ69
J
oguruma
POWERQUERY :: Importation et optimisation des étapes - Table.TransformColumns - Table.TransformRows - Record.AddField - Record.TransformFields
Réponses
0
Affichages
383
oguruma
oguruma
oguruma
POWERQUERY :: Récupérer les attributs d'un fichier, Parcourir un dossier, Récupérer le contenu d'un fichier texte, Vérifier la présence d'un fichier
Réponses
0
Affichages
699
oguruma
oguruma
S
  • Question Question
Microsoft 365 Problème chrono dans un fichier excel lorsque 2 fichiers sont ouverts
2
Réponses
15
Affichages
997
steph67
S
P
  • Question Question
Microsoft 365 Besoin d'aide pour plusieurs petite chose technique sur un fichier excel
8 9 10
Réponses
136
Affichages
9 K
TooFatBoy
TooFatBoy
vgendron
  • Question Question
Power Query [Resolu] Importer plusieurs fichiers excel provenant de dossiers différents sur sharepoint
Réponses
6
Affichages
2 K
Staple1600
Staple1600
T
  • Question Question
XL 2019 Trouver par qui un fichier est utilisé
Réponses
8
Affichages
771
ThierryP
T
oguruma
POWERQUERY/POWERPIVOT :: Injecter dynamiquement un fichier .csv dans le modèle de données - pratique en cas de forte volumétrie - V0.004
Réponses
1
Affichages
690
oguruma
oguruma
T
  • Question Question
XL 2019 Macros désactivées mais la macro WorkBook_Open est exécutée
Réponses
2
Affichages
549
ThierryP
T
oguruma
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
590
oguruma
oguruma
B
  • Question Question
Microsoft 365 Archivage et enregistrement d'un fichier multi-feuilles
Réponses
1
Affichages
484
Blf57
B
Retour