Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Référence non valide

Référence non valide

6 réponses
Avatar
René Delcourt
Bonjour,
Je ne parviens pas à mettre le doigt sur l'origine de ce message d'erreur.
J'ouvre l'application (avec macro) et à la fin de workbook_open j'obtiens ce
message.
--
René Delcourt
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Peux-tu publier le code de ta macro ?
Cordialement.
Daniel
"René Delcourt" a écrit dans le message de news:

Bonjour,
Je ne parviens pas à mettre le doigt sur l'origine de ce message d'erreur.
J'ouvre l'application (avec macro) et à la fin de workbook_open j'obtiens
ce
message.
--
René Delcourt


Avatar
René Delcourt
Merci, Daniel, de ton intérêt.
Voici le code

Private Sub Workbook_Open()
Dim cmdB As CommandBar
Feuil4.Select
Application.ScreenUpdating = False
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
.Caption = " I N T R A S "
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.Caption = "A S S C O L "
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
Feuil6.Select
Cells.Select
Selection.Delete
Menu
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
Worksheets("Intro").Select
Application.ScreenUpdating = True
End Sub


--
René Delcourt



Bonjour.
Peux-tu publier le code de ta macro ?
Cordialement.
Daniel
"René Delcourt" a écrit dans le message de news:

Bonjour,
Je ne parviens pas à mettre le doigt sur l'origine de ce message d'erreur.
J'ouvre l'application (avec macro) et à la fin de workbook_open j'obtiens
ce
message.
--
René Delcourt







Avatar
Daniel
A priori, je ne vois pas d'où peut venir le problème. Peut-être de "Menu" ?
Daniel
"René Delcourt" a écrit dans le message de news:

Merci, Daniel, de ton intérêt.
Voici le code

Private Sub Workbook_Open()
Dim cmdB As CommandBar
Feuil4.Select
Application.ScreenUpdating = False
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
.Caption = " I N T R A S "
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.Caption = "A S S C O L "
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
Feuil6.Select
Cells.Select
Selection.Delete
Menu
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
Worksheets("Intro").Select
Application.ScreenUpdating = True
End Sub


--
René Delcourt



Bonjour.
Peux-tu publier le code de ta macro ?
Cordialement.
Daniel
"René Delcourt" a écrit dans le message de news:

Bonjour,
Je ne parviens pas à mettre le doigt sur l'origine de ce message
d'erreur.
J'ouvre l'application (avec macro) et à la fin de workbook_open
j'obtiens
ce
message.
--
René Delcourt









Avatar
michdenis
Bonjour René,

Cette procédure appel la procédure "Menu" dont le code n'a pas été publié.


Salutations!



"René Delcourt" a écrit dans le message de news:
Merci, Daniel, de ton intérêt.
Voici le code

Private Sub Workbook_Open()
Dim cmdB As CommandBar
Feuil4.Select
Application.ScreenUpdating = False
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
.Caption = " I N T R A S "
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.Caption = "A S S C O L "
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
Feuil6.Select
Cells.Select
Selection.Delete
Menu
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
Worksheets("Intro").Select
Application.ScreenUpdating = True
End Sub


--
René Delcourt



Bonjour.
Peux-tu publier le code de ta macro ?
Cordialement.
Daniel
"René Delcourt" a écrit dans le message de news:

Bonjour,
Je ne parviens pas à mettre le doigt sur l'origine de ce message d'erreur.
J'ouvre l'application (avec macro) et à la fin de workbook_open j'obtiens
ce
message.
--
René Delcourt







Avatar
michdenis
appel -> appelle ;-)

Cette procédure APPELLE la procédure "Menu" dont le code n'a pas été publié.


Salutations!



"René Delcourt" a écrit dans le message de news:
Merci, Daniel, de ton intérêt.
Voici le code

Private Sub Workbook_Open()
Dim cmdB As CommandBar
Feuil4.Select
Application.ScreenUpdating = False
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
.Caption = " I N T R A S "
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.Caption = "A S S C O L "
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
Feuil6.Select
Cells.Select
Selection.Delete
Menu
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
Worksheets("Intro").Select
Application.ScreenUpdating = True
End Sub


--
René Delcourt



Bonjour.
Peux-tu publier le code de ta macro ?
Cordialement.
Daniel
"René Delcourt" a écrit dans le message de news:

Bonjour,
Je ne parviens pas à mettre le doigt sur l'origine de ce message d'erreur.
J'ouvre l'application (avec macro) et à la fin de workbook_open j'obtiens
ce
message.
--
René Delcourt







Avatar
René Delcourt
C'est la bonne piste...une histoire de barre de commande que je veux cacher
ou supprimer et qui n'est plus active!!!
Merci
--
René Delcourt



appel -> appelle ;-)

Cette procédure APPELLE la procédure "Menu" dont le code n'a pas été publié.


Salutations!



"René Delcourt" a écrit dans le message de news:
Merci, Daniel, de ton intérêt.
Voici le code

Private Sub Workbook_Open()
Dim cmdB As CommandBar
Feuil4.Select
Application.ScreenUpdating = False
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
..Caption = " I N T R A S "
..DisplayStatusBar = False
..DisplayFormulaBar = False
End With
With ActiveWindow
..Caption = "A S S C O L "
..DisplayWorkbookTabs = False
..DisplayHeadings = False
End With
Feuil6.Select
Cells.Select
Selection.Delete
Menu
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
Worksheets("Intro").Select
Application.ScreenUpdating = True
End Sub


--
René Delcourt



Bonjour.
Peux-tu publier le code de ta macro ?
Cordialement.
Daniel
"René Delcourt" a écrit dans le message de news:

Bonjour,
Je ne parviens pas à mettre le doigt sur l'origine de ce message d'erreur.
J'ouvre l'application (avec macro) et à la fin de workbook_open j'obtiens
ce
message.
--
René Delcourt