boite popup a ouverture

[masera]

Bonjour,
a partir du fait que je suis totalement newbe, dans excel, acces, VBA etc....j'aimerai poser une question en essaient d'etre le plus precis possible.

Je me souviens plus ou j'avez recuperer un petit classeur de gestion credit/creance , finance, etc....le programme en lui meme il me plait super...mais je souhaiterais eliminer une fenetre ( ou je ne sais pas si on appel sa boite de dialogue ) qui s'ouvre automatiquement au demarrage de la feuille excel, cette popup m'affiche comme titre "AIDE EN LIGNE" puis on arrive pas a lire la suite, puis quelque lignes plus bas, l'explication de l'aide en ligne etc...en bas il y a 2 button, un qui dit AIDE EN LIGNE ( mais meme si on clique dessu rien ce passe) et l'autre ANNULLER, et la je suis dans le classeur EXCEL.

Comment je peu eliminer cette fenetre qui s'ouvre seule?

 

[jeanpierre]

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

 

[masera]

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?

 

[jeanpierre]

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 ?

 

[masera]

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

 

[masera]

Re : boite popup a ouverture

petit up....😉

 

[jeanpierre]

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

 

[Fo_rum]

Re : boite popup a ouverture

salut

regarde plutôt dans ThisWorkbook. Tu dois avoir :

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

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

 

[masera]

Re : boite popup a ouverture

salut

regarde plutôt dans ThisWorkbook. Tu dois avoir :

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

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

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

 

[masera]

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

😀😀