boite popup a ouverture

Re : boite popup a ouverture

Bonjour masera, Bienvenue pour ta première question,

Pour pouvoir te répondre il faudrait voir le code et éventuellement le fichier.

S'il est un peu gros, tu peux le compresser.

Bon dimanche.

Jean-Pierre

Re : boite popup a ouverture

Merci jeanPierre d'avoir repondu, peut tu m'indiquer de quel façon te donner le code? Quel code?
Je suis arrivé a ouvrir les VBA, et trouver plusieurs macro, dont 2 interessant :
"a_ouverture", et l'autre " accueil" le quel veut tu si c'est un des 2?

Re : boite popup a ouverture

Re,

D'après ce que j'ai lu ce serait celle à l'ouverture, est-ce que cela va suffire ?

Re : boite popup a ouverture

voila le code en question des macro a_ouverture :

Sub a_ouverture()

'Ce programme s'executera à l'ouverture du programme
Dim i As Integer
Dim bar As CommandBar
Dim nom As String
'cacher les barres de menu standard

For Each bar In Application.CommandBars
If bar.Visible = True Then
nom = bar.Name
Application.CommandBars(nom).Enabled = False
End If
Next bar

Application.DisplayInsertOptions = False
'affi somme en bas ecran
'Application.DisplayStatusBar = false
Application.DisplayScrollBars = False 'les pages en bas d'Excel

End Sub

Sub Menu_Std()
'Tout remettre en place
Dim i As Integer, j As Integer

For Each bar In Application.CommandBars
If bar.Enabled = False Then
nom = bar.Name
Application.CommandBars(nom).Enabled = True
End If
Next bar

Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
'ActiveWindow.DisplayHeadings = True
'ActiveWindow.DisplayHorizontalScrollBar = True
Application.DisplayScrollBars = True
End Sub

Sub test_blind()
Dim bar As CommandBar
Dim nom As String
'Barre en bas d'Excel qui précise : Prêt, Calcul ...
'Application.DisplayStatusBar = True

'Supprime quand il est en False les n°ligne et colonnes
'ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar
ActiveWindow.DisplayVerticalScrollBar
For Each bar In Application.CommandBars
If bar.Enabled = False Then
nom = bar.Name
Application.CommandBars(nom).Enabled = True
End If
Next bar

End Sub

Sub abc()
'activer les n° lignes et colonnes
ActiveWindow.DisplayHeadings = True
'Sheets("bdd").Delete
End Sub

Re : boite popup a ouverture

petit up....😉

Re : boite popup a ouverture

Bonsoir masera,

Pour répondre à ton message privé.

Dés que je vois que l'on touche aux barres de menus d'Excel, je ne vais pas plus loin.

Pas envie de tester.

Peux-tu préciser de quel fichier il s'agit et si possible le lien vers ce fichier.

Sinon le déposer sur le forum en format compressé car je pense qu'il doit dépasser le poids autorisé.

Bonne soirée.

Jean-Pierre

Re : boite popup a ouverture

salut

regarde plutôt dans ThisWorkbook. Tu dois avoir :
C'est ici que doit être l'instruction pour appeler le Pop'Up !

Re : boite popup a ouverture

Fo_rum à dit:

salut

regarde plutôt dans ThisWorkbook. Tu dois avoir :

Code:

Private Sub Workbook_Open()
  call a_ouverture
  [B]...[/B]
End Sub

C'est ici que doit être l'instruction pour appeler le Pop'Up !

Cliquez pour agrandir...

Merci du conseil, je suis entraint de chercher, mais pour le moment je ne trouve pas..😕

Re : boite popup a ouverture

en effet, je suis arrivé enfin a trouver la commande "Workbook_Open()" en m'aident avec le buton RECHERCHE dans projet actuel dans le VBA,
ce qui m'as permis de retrouver dans
"ThisWorkbook (code)" la rubrique WOORKBOOK et dans le sous menu OPEN la commande : AutoProtect.Help_If_New 'Propose aide pour les nouveaux utilisateurs.

Donc j'ai juste modifié en : 'AutoProtect.Help_If_New , et voila j'ai plus la boite popup a l'ouverture.

Il ne me reste que a chercher un bon tutoriel pour vrai débutant, pour commencer a étudier sérieusement cette outils magnifique que est excel et VB

😀😀