Problème de sauvegarde d'un fichier

[blord]

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

'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

 

[job75]

Re : Problème de sauvegarde d'un fichier

Bonsoir blord,

Au lieu de ce code erroné :

'Fermeture et sauvegarde de SYS01    
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close

écrire :

'Fermeture et sauvegarde de SYS01    
    ActiveWorkbook.Close True

Edit : ActiveWorkbook.Saved = True modifie la propriété Saved, mais ne sauvegarde rien 😉

A+

 

[blord]

Re : Problème de sauvegarde d'un fichier

Bonjour Job75, le Forum,

Merci pour l'information, ça fontionne très bien maintenant et merci aussi pour l'explication...

Blord