Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ne pas declancher une macro si ouverture en lecture seule

Ne pas declancher une macro si ouverture en lecture seule

1 réponse
Avatar
Carole et Thierry
Bonsoir à tous,

Voilà ma question, J'ai une procedure qui à l'ouverture d'un fichier
déclenche une sauvegarde automatique du dit fichier.

A l'ouverture de ce fichier il est possible d'ouvrir en lecture seule et
dans ce cas je souhaite ne pas lancer la procedure de sauvegarde .

Avez vous une solution

Merci




Sub Sauve()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:=Dossier & Nom & strDate & ".xls"
DeleteEnTrop (Dossier)
CopieSauvegardeAuto
End Sub
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonsoir.
Tu peux tester :
If ThisWorkbook.ReadOnly Then...
Cordialement.
Daniel
"Carole et Thierry" a écrit dans le
message de news: 43989ab1$0$12970$
Bonsoir à tous,

Voilà ma question, J'ai une procedure qui à l'ouverture d'un fichier
déclenche une sauvegarde automatique du dit fichier.

A l'ouverture de ce fichier il est possible d'ouvrir en lecture seule et
dans ce cas je souhaite ne pas lancer la procedure de sauvegarde .

Avez vous une solution

Merci




Sub Sauve()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs Filename:=Dossier & Nom & strDate & ".xls"
DeleteEnTrop (Dossier)
CopieSauvegardeAuto
End Sub