Astuces Excel
  1. Astuces Excel
  3. Comment placer le code Excel VBA sur l'événement de sauvegarde
Intereting Posts
Lecture de mises à jour Excel avec UFT Quel est l'effet de l'application de setCellStyle à un org.apache.poi.ss.usermodel.Cell plusieurs fois? Do Until Loop in Excel VBA Comment find la valeur RVB des colors du thème Excel? Populairez la boîte contenant des valeurs d'une cellule Script Excel – Liste divisée en 3 feuilles excel vba pour exécuter le script R Déplacez le slider pour écrire en ligne spécifique d'un file text avec VBA Macro Excel Erreur d'exécution: 1004 Requête Excel VBA JSON POST avec curl Comment modifier les macro valeurs de popup dans excel Pourquoi ne puis-je pas voir une feuille de calcul powerpivot dans les excel Excel, combinez plusieurs colonnes en une seule ligne Conversion de la date à la string Excel Apache POI Excel – comment configurer les colonnes à développer?

Comment placer le code Excel VBA sur l'événement de sauvegarde

Je veux exécuter le code VBA ci-dessous lorsque je sauvegarde le document Excel. Je peux pouvoir exécuter ce code à la fois, mais (Non sauvegardé), il ne fonctionne plus. Pourriez-vous m'aider comment puis-je exécuter ce code en sauvegarde?

C'est dans le module: 

'Option Explicit ' 'Sub CopyToOtherCell() ' 'Dim LastRow As Integer, i As Integer, erow As Integer ' 'LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row ' 'For i = 2 To LastRow ' If Cells(i, 12).Value = Date Then ' Range(Cells(i, 1), Cells(i, 12)).Select ' Selection.Copy ' Workbooks.Open Filename:="C:\Users\Murat\Desktop\Proposal_Admin.xlsx" ' Worksheets("sheet1").Select ' erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ' ActiveSheet.Cells(erow, 1).Select ' ActiveSheet.Paste ' ActiveWorkbook.Save ' ActiveWorkbook.Close ' Application.CutCopyMode = False ' End If 'Next i ' 'End Sub

entrez la description de l'image ici

Je ne sais pas si j'ai bien compris votre question, mais l'événement BeforeSave se triggers juste avant de sauvegarder le file.

Donc, vous devez mettre ceci dans le module ThisWorkbook: 

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) CopyToOtherCell End sub