Comment utiliser la fonction « Enregistrer sous » pour remplacer automatiquement un fichier existant dans Excel ?
Lorsque vous enregistrez un classeur Excel dans un nouveau dossier, une boîte de dialogue semblable à celle illustrée ci-dessous s’affiche si un fichier portant le même nom existe déjà. Comment remplacer automatiquement ce fichier sans recevoir d’avertissement ? La méthode décrite dans cet article vous permet de le faire facilement.
Fonction Enregistrer sous pour écraser automatiquement un fichier existant à l’aide d’un code VBA
Fonction Enregistrer sous pour écraser automatiquement un fichier existant à l’aide d’un code VBA
Si vous souhaitez enregistrer un classeur sous un nouveau nom et remplacer automatiquement le fichier existant dans Excel, procédez comme suit.
1. Commencez par créer un bouton de commande pour déclencher la fonction « Enregistrer sous » dans votre feuille de calcul. Cliquez sur Développeur > Insérer > Bouton de commande (contrôle ActiveX). Voir la capture d’écran :
2. Dessinez un bouton de commande sur votre feuille de calcul, puis cliquez dessus avec le bouton droit de la souris et sélectionnez Afficher le code dans le menu contextuel.
3. Dans la fenêtre Microsoft Visual Basic pour Applications, copiez le code VBA ci-dessous et collez-le entre les lignes Private Sub et End Sub dans la fenêtre Code.
Code VBA : fonction Enregistrer sous pour écraser automatiquement un fichier existant
Dim xFileName As String
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")
End If
If (xFileName <> "") Or (xFileName <> "False") Then
ActiveWorkbook.SaveAs Filename:=xFileName
End If
Application.DisplayAlerts = True4. Appuyez sur les touches Alt + Q pour quitter la fenêtre Microsoft Visual Basic pour Applications. Désactivez ensuite le Mode Création sous l’onglet Développeur.
5. Cliquez sur le bouton de commande. La boîte de dialogue Enregistrer sous s’ouvre alors. Indiquez où enregistrer ce classeur, puis cliquez sur le bouton Enregistrer.
S’il existe déjà un classeur portant le même nom dans le dossier de destination, il sera automatiquement remplacé par le classeur actuel sans aucune confirmation.
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Articles associés:
- Comment enregistrer une feuille de calcul au format PDF et l’envoyer par e-mail en pièce jointe via Outlook ?
- Comment enregistrer un fichier Excel avec un horodatage ?
- Comment enregistrer ou exporter plusieurs, voire toutes les feuilles, vers des fichiers CSV ou texte distincts dans Excel ?
- Comment désactiver ou empêcher l’utilisation des options « Enregistrer » et « Enregistrer sous » dans Excel ?
- Comment désactiver la commande Enregistrer pour un classeur tout en n’autorisant que l’option Enregistrer sous dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels