XL 2013 Suppression fenetre

[Moreno076]

Bonjour.

Je suis bloqué à l'ouverture de mon fichier.
Je voudrais désactiver la fenêtre qui s'ouvre qui m'empêche d'utiliser la feuille.

Merci

 

[ERIC S]

Bonjour

macro qui se lance à l'ouverture tu restes appuyé sur echap et losque la boite de dialogue "exécution interrompue" s'affiche et tu fais fin
après je ne sais pas ce que tu veux faire, mais je suppose que si les macros ont été écrites, il doit y avoir une bonne raison

 

[Moreno076]

C'est bon j'ai trouvé merci

 

[Moreno076]

Bonjour Eric,

J'ai modifié macro mais j'ai oublié qu'il y avait un onglet de masqué. tout est rentré dans l'ordre merci.

macro qui se lance à l'ouverture tu restes appuyé sur echap et losque la boite de dialogue "exécution interrompue" s'affiche et tu fais fin
après je ne sais pas ce que tu veux faire, mais je suppose que si les macros ont été écrites, il doit y avoir une bonne Bonjour

 

[sylvanu]

Bonjour Moreno,
Il suffit de dire à XL d'interdire les macros via les options, puis dans ThisWorkbbok d'invalider Sub Workbook_Open.
Je l'ai renommé Sub Workbook_Open_OLD() car je n'ai pas cherché à savoir ce qu'elle faisait, vous pourrait ainsi la renommer et la modifier.

 

[Moreno076]

Bonjour Moreno,
Il suffit de dire à XL d'interdire les macros via les options, puis dans ThisWorkbbok d'invalider Sub Workbook_Open.
Je l'ai renommé Sub Workbook_Open_OLD() car je n'ai pas cherché à savoir ce qu'elle faisait, vous pourrait ainsi la renommer et la modifier.

Merci

 

[Moreno076]

Une autre chose. Lorsque je clique sur le bouton apercu/imprimer ca met la journée du jour en apercu et alors j'ai juste à imprimer. Je souhaiterais qu'en dessous du tableau ce soit indiqué : "Jours restant avant fermeture : [puis que ca indique ici le nombre de jours restant avant le 18/03/2021]. Merci

 

[sylvanu]

Le plus simple me semble t-il est de l'écrire en pied de page avec :

With ActiveSheet.PageSetup
        .CenterFooter = "&""-,Gras""&14Reste " & 44286 - CLng(Date) & " jours avant le 31/03/2021."
End With

 

[Moreno076]

Merci Sylvanu. Ca fonctionne pour le 31 mars mais c'est le 18 mars que je veux lol J'ai essayé de modifié la valeur j'ai mis la date du 18/03/2021 en nombre mais ca me donne pas la bonne valeur en jours.

Le plus simple me semble t-il est de l'écrire en pied de page avec :

With ActiveSheet.PageSetup
        .CenterFooter = "&""-,Gras""&14Reste " & 44286 - CLng(Date) & " jours avant le 31/03/2021."
End With

.

 

[Moreno076]

44286 ca correspond à 01/04/2025??

 

[Phil69970]

Bonjour Moreno076, Sylvain, le forum

Je te propose ceci paramétrable comme tu le souhaites à travers la cellule AG4

Le résultat est en cellule "E5"

Tu peux déplacer la formule ou tu veux

@Phil69970

 

[sylvanu]

Parce que vous êtes en calendrier 1904.
Pour être plus simple j'ai rectifié avec :

CLng(#3/18/2021# - Date)

 

[Moreno076]

Merci Phil mais je préfère la version de Sylvanu. Ce coup ci c'est bon ca fonctionne. Merci bien.