XL 2016 Enregistrement Automatique

croco40 · 18 Mars 2021

Bonjour à tous, et merci pour votre aide.
Comme je dois supprimer les informations de la feuille 1 à partir de la ligne 2 et de la feuille 2 toutes les cellules, j'ai fait cette macro.
Tout se passe bien, mais le fichier WB2 sur lequel sont apportées les modif ne s'enregistre pas maglré mon "savechanges =true".
Avez-vous une idée ? (je suis sur que oui.
Suerte Croco.

Sub blanchir_fich()
wb1 = ActiveWorkbook.Name
Workbooks.Open Filename:= "chemin du fichier\nom du fichier.xlsx"

wb2 = ActiveWorkbook.Name
Workbooks(wb2).Sheets(1).Activate
Rows("2:500").Delete shift:=xlUp

Workbooks(wb2).Sheets(2).Activate
Cells.ClearContents

Workbooks(wb2).Sheets(1).Activate
Workbooks(wb2).Close savechanges = True

Workbooks(wb1).Activate
Workbooks(wb1).Close savechanges = False
End Sub

fanch55 · 18 Mars 2021

Bonjour,

Workbooks(wb2).Close savechanges:=True, le : est important,
c'est même bizarre que vous n'ayez pas eu de message d'erreur ...
Quoique le Vb a du interpreter le savechanges=true en false

ou bien faire :
Workbooks(wb2).Close True

sousou · 18 Mars 2021

Bonjour.
(savechanges:=true)

Mais je te propose plutôt ceci
Sub blanchir_fich()
Set wb1 = ThisWorkbook
Set wb2 = Workbooks.Open("chemin du fichier")
With wb2
.Sheets(1).Rows("2:500").ClearContents
.Sheets(2).UsedRange.ClearContents
wb2.Close savechanges:=True

End With
wb1.Close savechanges:=False
End Sub

croco40 · 7 Avril 2021

Bonjour à tous et merci pour votre aide.
En effet le : fait toute la différence.
Suerte
Croco

XL 2016 Enregistrement Automatique

croco40

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

sousou

XLDnaute Barbatruc

croco40

XLDnaute Occasionnel

Discussions similaires