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 = True

4. 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?