A la fermeture d'un classeur, j'ai fait une ligne de code pour que celui ci s'enregistre automatiquement (afin d'éviter les messages), mais quand le classeur est ouvert en lecture seule, je voudrais que celui ci soit fermé sans s'enregistrer (Pour éviter le message " Le classeur existe déja, voulez vous enregistrer une copie...")
Public Sub essai()
Dim fso As New FileSystemObject
Dim f As File
Set f = fso.GetFile(Me.Application.ActiveWorkbook.FullName)
Select Case f.Attributes
Case 1, 3, 5, 33, 35, 129
MsgBox "RO"
Case Else
MsgBox "not ro"
End Select
End Sub
'Constante Valeur Description
'Normal 0 Fichier normal. Aucun attribut n'est défini.
'ReadOnly 1 Fichier en lecture seule. L'attribut est en lecture/écriture.
'Hidden 2 Fichier caché. L'attribut est en lecture/écriture.
'System 4 Fichier système. L'attribut est en lecture/écriture.
'Volume 8 Étiquette de volume de lecteur de disque. L'attribut est en lecture seule.
'Directory 16 Dossier ou répertoire. L'attribut est en lecture seule.
'Archive 32 Le fichier a été modifié depuis la dernière sauvegarde. L'attribut est en lecture/écriture.
'Alias 64 Lien ou raccourci. L'attribut est en lecture seule.
'Compressed 128 Fichier compressé. L'attribut est en lecture seule.
Merci pour la soluce apporté.
Mais ne fonctionne pas sous VBA
J'ai peut être oublié de préciser que je travaille sous Excel VBA
Merci à tous pour l'aide que vous m'apportez.