daffy21
Messages postés15Date d'inscriptionjeudi 29 mai 2003StatutMembreDernière intervention17 mai 2004
-
7 mai 2004 à 20:41
daffy21
Messages postés15Date d'inscriptionjeudi 29 mai 2003StatutMembreDernière intervention17 mai 2004
-
17 mai 2004 à 01:24
Bonjour à tous,
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...")
nhervagault
Messages postés6063Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention15 juillet 201137 8 mai 2004 à 00:33
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.
daffy21
Messages postés15Date d'inscriptionjeudi 29 mai 2003StatutMembreDernière intervention17 mai 20042 10 mai 2004 à 11:34
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.