Comment utiliser la fonction Enregistrer sous pour écraser automatiquement un fichier existant dans Excel?
Lors de l'enregistrement d'un classeur Excel dans un nouveau dossier, vous obtiendrez une boîte de dialogue comme la capture d'écran ci-dessous s'il existe un classeur du même nom et se trouve dans le dossier. Comment écraser automatiquement le fichier existant sans message d'avertissement d'invite? La méthode de cet article peut vous aider.
Enregistrer en tant que fonction pour écraser automatiquement le fichier existant avec le code VBA
Enregistrer en tant que fonction pour écraser automatiquement le fichier existant avec le code VBA
Si vous souhaitez enregistrer un classeur avec un nouveau nom et écraser automatiquement le fichier existant dans Excel. Veuillez faire comme suit.
1. Tout d'abord, créez un bouton de commande pour déclencher la fonction Enregistrer sous dans votre feuille de calcul. Cliquez s'il vous plait Développeur > insérer > Bouton de commande (contrôle Active X). Voir la capture d'écran:
2. Dessinez un bouton de commande sur votre feuille de calcul. Puis faites un clic droit dessus et sélectionnez Voir le code dans le menu contextuel.
3. dans le Microsoft Visual Basic pour applications , veuillez copier le code VBA ci-dessous et le coller entre les Sous-Privé et End Sub lignes dans le Code fenêtre.
Code VBA: fonction Enregistrer sous pour écraser automatiquement le 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. appuie sur le autre + Q touches pour quitter Microsoft Visual Basic pour applications la fenêtre. Et éteignez le Mode de conception sous le Développeur languette.
5. Cliquez sur le bouton de commande, puis sur un Enregistrer sous boîte de dialogue apparaît, sélectionnez un dossier pour enregistrer ce classeur, puis cliquez sur le Épargnez .
S'il existe un classeur de même nom dans le dossier de destination, il remplacera automatiquement le classeur actuel directement sans invite.
Articles connexes:
- Comment enregistrer une feuille de calcul en tant que fichier PDF et l'envoyer par e-mail en tant que pièce jointe via Outlook?
- Comment enregistrer un nom de fichier Excel avec horodatage?
- Comment enregistrer, exporter plusieurs / toutes les feuilles pour séparer des fichiers csv ou texte dans Excel?
- Comment désactiver ou ne pas autoriser les options Enregistrer et enregistrer sous dans Excel?
- Comment désactiver l'enregistrement du classeur mais autoriser uniquement l'enregistrement sous Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la 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 facilite grandement votre travail
- Activer 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 réduit des centaines de clics de souris chaque jour!
