page d'ouverture

Le
albadgones68
Je cherche à faire une page d'ouverture qui ne s'affiche qu'à l'ouverture du
fichier et pendant une durée bien définie, et je ne suis pas encore un bon
utilisateur de VBA, donc j'aurai besoin d'un coup de main svp
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #21691871
Bonjour.
Mets le code suivant dans le module "Thisworkbook" :

Private Sub Workbook_Open()
Sheets("Affiche").Visible = True
Sheets("Affiche").Select
Application.Wait Now + TimeValue("0:0:20")
Sheets("Affiche").Visible = False
End Sub

Daniel

Je cherche à faire une page d'ouverture qui ne s'affiche qu'à l'ouverture du
fichier et pendant une durée bien définie, et je ne suis pas encore un bon
utilisateur de VBA, donc j'aurai besoin d'un coup de main svp
albadgones68
Le #21692171
ok, mais comme j'aimerai progresser dans le domaine tu peux me l'expliquer
s'il te plais

"Daniel.C" a écrit :

Bonjour.
Mets le code suivant dans le module "Thisworkbook" :

Private Sub Workbook_Open()
Sheets("Affiche").Visible = True
Sheets("Affiche").Select
Application.Wait Now + TimeValue("0:0:20")
Sheets("Affiche").Visible = False
End Sub

Daniel

> Je cherche à faire une page d'ouverture qui ne s'affiche qu'à l'ouverture du
> fichier et pendant une durée bien définie, et je ne suis pas encore un bon
> utilisateur de VBA, donc j'aurai besoin d'un coup de main svp


.

Daniel.C
Le #21692291
Private Sub Workbook_Open()
La macro s'exécute à l'ouverture du classeur
Sheets("Affiche").Visible = True
La feuille devient affichable si elle est masquée.
Sheets("Affiche").Select
Affiche la feuille "Affiche"
Application.Wait Now + TimeValue("0:0:20")
la macro attend 20 secondes; "Now" = l'heure au moment ou la commande
est exécutée; TimeValue("0:0:20") traduit l'heure entre guillemets en
heures, minutes secondes.
Sheets("Affiche").Visible = False
masque la feuille.
N'hésite pas à demander un complément d'infos.
Daniel

ok, mais comme j'aimerai progresser dans le domaine tu peux me l'expliquer
s'il te plais

"Daniel.C" a écrit :

Bonjour.
Mets le code suivant dans le module "Thisworkbook" :

Private Sub Workbook_Open()
Sheets("Affiche").Visible = True
Sheets("Affiche").Select
Application.Wait Now + TimeValue("0:0:20")
Sheets("Affiche").Visible = False
End Sub

Daniel

Je cherche à faire une page d'ouverture qui ne s'affiche qu'à l'ouverture
du fichier et pendant une durée bien définie, et je ne suis pas encore un
bon utilisateur de VBA, donc j'aurai besoin d'un coup de main svp




.

albadgones68
Le #21692871
Comment ouvrir le module "Thisworkbook"????
Pour y insérer les lignes de code ...

"Daniel.C" a écrit :

Private Sub Workbook_Open()
La macro s'exécute à l'ouverture du classeur
Sheets("Affiche").Visible = True
La feuille devient affichable si elle est masquée.
Sheets("Affiche").Select
Affiche la feuille "Affiche"
Application.Wait Now + TimeValue("0:0:20")
la macro attend 20 secondes; "Now" = l'heure au moment ou la commande
est exécutée; TimeValue("0:0:20") traduit l'heure entre guillemets en
heures, minutes secondes.
Sheets("Affiche").Visible = False
masque la feuille.
N'hésite pas à demander un complément d'infos.
Daniel

> ok, mais comme j'aimerai progresser dans le domaine tu peux me l'expliquer
> s'il te plais
>
> "Daniel.C" a écrit :
>
>> Bonjour.
>> Mets le code suivant dans le module "Thisworkbook" :
>>
>> Private Sub Workbook_Open()
>> Sheets("Affiche").Visible = True
>> Sheets("Affiche").Select
>> Application.Wait Now + TimeValue("0:0:20")
>> Sheets("Affiche").Visible = False
>> End Sub
>>
>> Daniel
>>
>>> Je cherche à faire une page d'ouverture qui ne s'affiche qu'à l'ouverture
>>> du fichier et pendant une durée bien définie, et je ne suis pas encore un
>>> bon utilisateur de VBA, donc j'aurai besoin d'un coup de main svp
>>
>>
>> .
>>


.

Daniel.C
Le #21694341
Depuis la fenêtre Excel, appuie sur les touches Alt+F11. Dans la
fenêtre de l'editeur VB qui s'ouvre, repère sur la partie gauche le
projet ayant le nom de ton classeur. Double clique sur "thisworkbook",
en dessous.
Daniel

Comment ouvrir le module "Thisworkbook"????
Pour y insérer les lignes de code ...

"Daniel.C" a écrit :

Private Sub Workbook_Open()
La macro s'exécute à l'ouverture du classeur
Sheets("Affiche").Visible = True
La feuille devient affichable si elle est masquée.
Sheets("Affiche").Select
Affiche la feuille "Affiche"
Application.Wait Now + TimeValue("0:0:20")
la macro attend 20 secondes; "Now" = l'heure au moment ou la commande
est exécutée; TimeValue("0:0:20") traduit l'heure entre guillemets en
heures, minutes secondes.
Sheets("Affiche").Visible = False
masque la feuille.
N'hésite pas à demander un complément d'infos.
Daniel

ok, mais comme j'aimerai progresser dans le domaine tu peux me l'expliquer
s'il te plais

"Daniel.C" a écrit :

Bonjour.
Mets le code suivant dans le module "Thisworkbook" :

Private Sub Workbook_Open()
Sheets("Affiche").Visible = True
Sheets("Affiche").Select
Application.Wait Now + TimeValue("0:0:20")
Sheets("Affiche").Visible = False
End Sub

Daniel

Je cherche à faire une page d'ouverture qui ne s'affiche qu'à l'ouverture
du fichier et pendant une durée bien définie, et je ne suis pas encore
un bon utilisateur de VBA, donc j'aurai besoin d'un coup de main svp




.







.

albadgones68
Le #21752251
Merci, sa marche super!
Et il y a moyen de faire en sorte que ce classeur excell s'ouvre toujours en
fullscreen???

"Daniel.C" a écrit :

Depuis la fenêtre Excel, appuie sur les touches Alt+F11. Dans la
fenêtre de l'editeur VB qui s'ouvre, repère sur la partie gauche le
projet ayant le nom de ton classeur. Double clique sur "thisworkbook",
en dessous.
Daniel

> Comment ouvrir le module "Thisworkbook"????
> Pour y insérer les lignes de code ...
>
> "Daniel.C" a écrit :
>
>> Private Sub Workbook_Open()
>> La macro s'exécute à l'ouverture du classeur
>> Sheets("Affiche").Visible = True
>> La feuille devient affichable si elle est masquée.
>> Sheets("Affiche").Select
>> Affiche la feuille "Affiche"
>> Application.Wait Now + TimeValue("0:0:20")
>> la macro attend 20 secondes; "Now" = l'heure au moment ou la commande
>> est exécutée; TimeValue("0:0:20") traduit l'heure entre guillemets en
>> heures, minutes secondes.
>> Sheets("Affiche").Visible = False
>> masque la feuille.
>> N'hésite pas à demander un complément d'infos.
>> Daniel
>>
>>> ok, mais comme j'aimerai progresser dans le domaine tu peux me l'expliquer
>>> s'il te plais
>>>
>>> "Daniel.C" a écrit :
>>>
>>>> Bonjour.
>>>> Mets le code suivant dans le module "Thisworkbook" :
>>>>
>>>> Private Sub Workbook_Open()
>>>> Sheets("Affiche").Visible = True
>>>> Sheets("Affiche").Select
>>>> Application.Wait Now + TimeValue("0:0:20")
>>>> Sheets("Affiche").Visible = False
>>>> End Sub
>>>>
>>>> Daniel
>>>>
>>>>> Je cherche à faire une page d'ouverture qui ne s'affiche qu'à l'ouverture
>>>>> du fichier et pendant une durée bien définie, et je ne suis pas encore
>>>>> un bon utilisateur de VBA, donc j'aurai besoin d'un coup de main svp
>>>>
>>>>
>>>> .
>>>>
>>
>>
>> .
>>


.

Daniel.C
Le #21759981
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
DisplayFullScreen
Sheets("Affiche").Visible = True
Sheets("Affiche").Select
Application.Wait Now + TimeValue("0:0:20")
Sheets("Affiche").Visible = False
End Sub

J'ai ajouté :
Application.DisplayFullScreen = True
Daniel

Merci, sa marche super!
Et il y a moyen de faire en sorte que ce classeur excell s'ouvre toujours en
fullscreen???

"Daniel.C" a écrit :

Depuis la fenêtre Excel, appuie sur les touches Alt+F11. Dans la
fenêtre de l'editeur VB qui s'ouvre, repère sur la partie gauche le
projet ayant le nom de ton classeur. Double clique sur "thisworkbook",
en dessous.
Daniel

Comment ouvrir le module "Thisworkbook"????
Pour y insérer les lignes de code ...

"Daniel.C" a écrit :

Private Sub Workbook_Open()
La macro s'exécute à l'ouverture du classeur
Sheets("Affiche").Visible = True
La feuille devient affichable si elle est masquée.
Sheets("Affiche").Select
Affiche la feuille "Affiche"
Application.Wait Now + TimeValue("0:0:20")
la macro attend 20 secondes; "Now" = l'heure au moment ou la commande
est exécutée; TimeValue("0:0:20") traduit l'heure entre guillemets en
heures, minutes secondes.
Sheets("Affiche").Visible = False
masque la feuille.
N'hésite pas à demander un complément d'infos.
Daniel

ok, mais comme j'aimerai progresser dans le domaine tu peux me
l'expliquer s'il te plais

"Daniel.C" a écrit :

Bonjour.
Mets le code suivant dans le module "Thisworkbook" :

Private Sub Workbook_Open()
Sheets("Affiche").Visible = True
Sheets("Affiche").Select
Application.Wait Now + TimeValue("0:0:20")
Sheets("Affiche").Visible = False
End Sub

Daniel

Je cherche à faire une page d'ouverture qui ne s'affiche qu'à
l'ouverture du fichier et pendant une durée bien définie, et je ne
suis pas encore un bon utilisateur de VBA, donc j'aurai besoin d'un
coup de main svp




.







.







.

Publicité
Poster une réponse
Anonyme