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