blord
XLDnaute Impliqué
Bonjour à tous,
Voici un bout de code que je tente d'utiliser pour ouvrir un fichier (SYS01)copier les données dans le classeur déjà ouvert (SYSSUIVI), supprimer les données du classeur (SYS01) et fermet le classeur (SYS01) en sauvegardant les modifications...
Tout fonctionne bien sauf la sauvegarde du fichier SYS01 qui ne s'effectue pas. Les lignes supprimées sont toujours présentes à la ré-ouverture du fichier !
Merci pour votre aide !
Blord
Voici un bout de code que je tente d'utiliser pour ouvrir un fichier (SYS01)copier les données dans le classeur déjà ouvert (SYSSUIVI), supprimer les données du classeur (SYS01) et fermet le classeur (SYS01) en sauvegardant les modifications...
Tout fonctionne bien sauf la sauvegarde du fichier SYS01 qui ne s'effectue pas. Les lignes supprimées sont toujours présentes à la ré-ouverture du fichier !
Merci pour votre aide !
Blord
Code:
'Affiche le message de consolidation des données
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("data").Unprotect ("neblevis")
UserFormMessageConso.Show
'Déclaration des variables pour les noms de fichiers
SYS01 = ThisWorkbook.Path & "\" & Sheets("info").Range("A17").Value
WBSYS01 = Sheets("info").Range("A17").Value
WBSYSSUIVI = Sheets("info").Range("A16").Value
'Copie des données de SYS01
Application.EnableEvents = False
Workbooks.Open FileName:=SYS01
Workbooks(WBSYS01).Activate
Sheets("data").Activate
Sheets("data").Unprotect ("neblevis")
Range("A1").CurrentRegion.Select
Selection.Copy
'Colle les données dans SYSSUIVI
Workbooks(WBSYSSUIVI).Activate
Sheets("data").Activate
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Activate
'Supprime les données de SYS01
Workbooks(WBSYS01).Activate
Sheets("data").Activate
Rows("2:60000").Select
Selection.Delete Shift:=xlUp
Sheets("data").Protect ("neblevis")
'Fermeture et sauvegarde de SYS01
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Application.EnableEvents = True