ouverture fichier et msgbox.

[fhoest]

Bonsoir a tous
comment peut on faire pour afficher un msgbox a la premiere ouverture de le semaine d'un fichier soit un lundi ou un mardi etc... mais uniquement la premiere ouverture
exemple: lundi matin 8 h00 j'ouvre un fichier excel premiere ouverture donc msgbox, ensuite je referme mon fichier et je l'ouvre 5 minutes plus tard une deuxieme fois dans la semaine donc pas de msgbox.
si pas douverture le lundi mais le mardi a 8 h00 meme chose
Quelqu'un aurait il une idée.
D'avance merci.
tous ceci en vba. 🙂

 

[Paritec]

Re : ouverture fichier et msgbox.

bonsoir Fhoest
je suppose que si tu l'ouvres que le mardi c'est pareil, il ne faut pas raisonner lundi mais premier jour d'ouverture de la semaine?
a+ à demain
papou

 

[fhoest]

Re : ouverture fichier et msgbox.

Bonsoir,
c'est juste ce que tu dis mais je ne vois pas trop comment faire pour toutes les semaines de toutes les années
Merci.
@+

 

[fhoest]

Re : ouverture fichier et msgbox.

Bonsoir, carcharodon-carcharias
merci pour le fichier le seul probleme est que si je ferme et que je le reouvre de suite j'ai le msgbox
en fait ce fichier va me permettre de mettre a jour des liaisons outllook mais je voudrais le faire une seule fois a la premiere ouverture du fichier par semaine
le msgbox c'est juste pour l'action qui remplace la liaisons outlook
Merci
@ bientot

 

[fhoest]

Re : ouverture fichier et msgbox.

re


teste avec ce code

Private Sub Workbook_Open()
If Sheets("TEST").Range("A1") = "" Then Sheets("TEST").Range("A1") = Date
If Date <> Sheets("TEST").Range("A1") + 7 Then
'[COLOR="Red"]MsgBox "déjà ouvert cette semaine"[/COLOR]
'que je remplace par
Exit Sub
End If
If Date = Sheets("TEST").Range("A1") + 7 Then
Sheets("TEST").Range("A1") = Date
[COLOR="Red"]msgbox "test"[/COLOR]' ton code
End If
End Sub

merci mais ca ne fonctionne pas non plus
en fait ce morceau de code et bien pour la comparaison entre deux journée mais pas pour 5 minutes d'intervalles
@ bientot merci

 

[youky(BJ)]

Re : ouverture fichier et msgbox.

Bonjour fhoest, Paritec également.

J'ai fait ceci en exemple
J'ai mis le code sous un bouton et non en workbook_open
C'est juste pour montrer
Explication dans le fichier

Bon test

 

[fhoest]

Re : ouverture fichier et msgbox.

Bonjour,
youki ,paritec,le fil
ceci m'a l'air d'etre ce que j'ai besoins mais reste a faire pour moi un petit test sur deux semaine avec la premiere ouverture le mardi et la semaine suivante un mardi
si c'est ok ce sera parfait si pas ...
je vous tiens au courrants
encore merci

 

[youky(BJ)]

Re : ouverture fichier et msgbox.

Bonjour,
La principale difficulté était de trouver la date du lundi qui arrive quel que soit la date.
J'ai encore testé la formule et tout baigne, ensuite tant que la date du jour est plus petite que A1 rien ne se passe.
Ceci était pour lever le doute....
A+

 

[fhoest]

Re : ouverture fichier et msgbox.

bonjour,
je pense bien qu'avec ton explication cela m'a l'air d'être exactement ce que j'ai besoin
merci a vous deux
@ +