XL 2016 Enregistrement Automatique

croco40

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 889
Membres
101 831
dernier inscrit
gillec