Freezer une colonne et fermer le classeur en sauvegardant

Bonjour,

mon problème peut paraître stupide mais je ne parviens pas à freezer la première colonne d'un fichier que j'ouvre puis ferme en vba.

En fait, il réalise parfaitement l'opération, mais au moment de fermer, il ne sauvegarde rien. Alors que pour toute autre modif, il le fait.

Voici mon code:

Source = Application.Workbooks.Open(fichier)

For Each feuille In Source.Worksheets
If feuille.Name <> "Date effet Res Fisc CRS" Then
    feuille.Activate
    feuille.Range("B1").Select
    ActiveWindow.FreezePanes = True
End If
Next feuille
Source.Close savechanges:=True

Par avance merci

Hello,

à tester :

Source = Application.Workbooks.Open(fichier)

For Each feuille In Source.Worksheets
If feuille.Name <> "Date effet Res Fisc CRS" Then
    feuille.Activate
    feuille.Range("B1").Select
    ActiveWindow.FreezePanes = True
End If
Next feuille
Source.Close True

R@g

Bonjour

Le problème ne vient pas de la car même sans True, avec un simple Close, il ferme le fichier sans me proposer de sauvegarder 😕

Hello, dsl du retard

à tester

set Source = Workbooks.Open(fichier)

R@g