open workbook and save

sarrsouraa

XLDnaute Occasionnel
Bonjour tout le monde

voici mon problème
a partir d'une macro j'ouvre un autre fichier excel , je modifie une cellule j'enregistre et je ferme ainsi:

application.displayalerts=false

Set Wb = Workbooks.Open(Filename:=fichier, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, editable:=True)

'''''mes modifications
wb.save
wb.close

application.displayalerts=true


mais ce qui se passe c'est qu'il m'affiche un message d'erreur au moment du save en me disant que le fichier est en read only

si quelqu' un a une idee merciiiiiiiiiiiiiiiiii
 

Pierrot93

XLDnaute Barbatruc
Re : open workbook and save

Bonjour,

petite remarque au passage :
mais ce qui se passe c'est qu'il m'affiche un message d'erreur au moment du save en me disant que le fichier est en read only

si c'est vrai, as tu vérifié, à ma connaissance tu ne pourras passer outre, il faudra effectuer éventuellement un "enregistrer sous" plutôt...

A noter, tu peux via vba, vérifier si le classeur actif est en lecture seule comme ceci :
Code:
If ActiveWorkbook.ReadOnly Then MsgBox "Lecture seule..."

bon après midi
@+
 

Pierrot93

XLDnaute Barbatruc
Re : open workbook and save

Re,

oui, ceci me semble normal puisque tu enregistre sous le même nom, alors qu'il est en lecture...
Code:
Wb.SaveAs (Wb.Path & "/" & Wb.name)

il faudrait modifier le nom :
Code:
Wb.SaveAs (Wb.Path & "/" & "SAUV" & Wb.name)
 

Statistiques des forums

Discussions
311 711
Messages
2 081 799
Membres
101 818
dernier inscrit
tiftouf5757