Cette application est utilisé par une dizaine de personnes dans mon service
Forum > Visual Basic 6non concernée par ce que tu exposes.
ActiveWorkbook.Close True
With ActiveWorkbook If .ReadOnly Then ' si on est dans le cas d'une seconde instance (ouverte donc en lecture seule) .Saved = True ' on dit que les modifs ont déjà été effectuées (mensonge honorable) .Close ' et on ferme Else ' on est dans la première instance (donc modifiable) .Close True ' on ferme en sauvegardant (par True) ou sans sauvegarder (par False End If End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionavec excel 2010 tout marche parfaitement...
If ActiveWorkbook.ReadOnly Then msgbox "appelez vite Florent"
Sub essaifermeture() ActiveWorkbook.Close True End Sub
Par contre j'avais fait un test: créer un nouveau fichier vierge et écrire juste:
C'est Normal, tant que le fichier n'a JAMAIS encore été enregistré !
Es-tu certain que le ActiveWorkbook (fichier actif ou à l'écran) est bien celui que tu veux enregistrer lorsque ce bout de code est appelé ?
If ActiveWorkbook.ReadOnly Then msgbox "appelez vite Florent"
Vous ne pensez pas que cela pourrait être un problème de librairy?
j'ai passé les PC sur Office 2010, ça fonctionne.
ActiveWorkbook.close true
ActiveWorkbook.save ActiveWorkbook.close