ne plus ouvrir un fichier

[astralon]

bonjour a tous

je suis a la recherche d'un code qui me permettrais de

ouvrir 1 fichier, et une fois qu'il a été fermé, on ne peux plus l'ouvrir aujourd'hui ou pendant un certain temps

C'est une question de mon collègue => je n'en connait pas l'utilitée

 

[GillesC]

Re : ne plus ouvrir un fichier

Bonjour
Programme à copier dans ThisWorkBook
Il faut un onglet "Feuil3"
Il va regarder dans la cellule A1 de l'onglet Feuil3 quelle date y figure. Si la date n'est pas celle d'aujourd'hui il l'inscrit et reste ouvert sinon...

Private Sub Workbook_Open()
Sheets("Feuil3").Select
Range("A1").Select
If ActiveCell = Date Then
Sheets("Feuil1").Select
MsgBox "Fichier déjà ouvert aujourd'hui"
ActiveWindow.Close
End If
ActiveCell.Value = Date
Sheets("Feuil1").Select
End Sub

 

[GillesC]

Re : ne plus ouvrir un fichier

En annexe un exemple que tu ne pourras ouvrir que demain

 

[Guillaumega]

Re : ne plus ouvrir un fichier

Bonjour à tous,

J'ai une question complémentaire. Sauriez vous comment faire pour qu'une macro ne puisse se lancer plus d'une fois par jour?
Merci pour vos réponses

 

[GillesC]

Re : ne plus ouvrir un fichier

Bonjour,
j'opterais pour le même principe que ci dessus en allant chercher dans un onglet la date du jour. Soit par exemple "A1" en Feuil3.
La macro comporterait en début :
Sub Macro_Toto
If CDate(Range("Feuil3!A1")) <> Date Then..' Va voir si la date du jour est différente sinon ne se lance pas

et en fin de macro :
Range("Feuil3!A1")=Date ' Si la macro s'est lancée incrémente Feuil3 A1 avec la date du jour