VBAExcel : fermer un classeur sans messages
Fermé
kylook
Messages postés
6
Date d'inscription
mardi 22 juin 2004
Statut
Membre
Dernière intervention
2 novembre 2006
-
22 juin 2004 à 16:36
zozolatornade - 24 sept. 2021 à 12:52
zozolatornade - 24 sept. 2021 à 12:52
1 réponse
Utilisateur anonyme
22 juin 2004 à 16:46
22 juin 2004 à 16:46
Bonjour,
Dim Classeur As Workbook
set Classeur=ActiveWorkbook
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Workbook(Windowsrecuperation.xls").Activate
Sheets("F_Fichier").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbook(Classeur).Activate
ActiveWorkbook.Close
Application.DisplayAlerts = True
**Pas testé!
Lupin
Dim Classeur As Workbook
set Classeur=ActiveWorkbook
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Workbook(Windowsrecuperation.xls").Activate
Sheets("F_Fichier").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbook(Classeur).Activate
ActiveWorkbook.Close
Application.DisplayAlerts = True
**Pas testé!
Lupin
24 sept. 2021 à 12:52