Erreur 1004

[insideout]

Bonjour Forum,

En exécutant cette procédure une erreur 1004 s'affiche: (run time error '1004'. Apllication-defined or object-defined error)


Private Sub Workbook_Activate()
Dim bar As CommandBar
For Each bar In Application.CommandBars
bar.Enabled = False
Next
With Application
.DisplayScrollBars = False
.DisplayStatusBar = False
.DisplayFormulaBar = False
.DisplayExcel4Menus = False
.CommandBars('Worksheet Menu Bar').Enabled = False
.DisplayFullScreen = True
End With

With ActiveWindow
.DisplayHeadings = False
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = False

End With

HideShapes

With Sheets('Accueil')
.Range('NomPre').Select
.ScrollArea = ('$A$1:$O$18')
ActiveSheet.Activate
ActiveSheet.Protect
End With

Sheets('Q-Dvt').Select
ActiveSheet.Protect

Sheets('Q-Images').Select
ActiveSheet.Protect

Sheets('Q-C-M').Select
AtiveSheet.Protect

User.show

End Sub

Merci d'avance pour votre aide

Message édité par: insideout, à: 26/09/2005 21:24

 

[Hellboy]

Bonjour, insideout

Étant donné que l'on pas tout ton code, s'est difficile a dire.

Le HideShapes me pose un problème et ton user.show. Si tu pouvais joindre ton fichier, cela serait bien.

 

[Insideout]

Merci beaucoup HellBoy,
Heureux de trouver qq du Quebec......
J'Ai résolu le problème mais un autre s'est produit. C'est qu'à chaque fois que je ferme le workbook il relance une deuxiéme fois et ce soit en acceptant d'enregistrer l;es modications ou non avec ou sans enregistrement.
Je suis désolé de ne pas pouvoir joindre le ficher premiérement parceque c'est une examen et deuxiément il est assez large et contient beaucoups de macro.
as tu une idée concernant ce problème.?

Merci d'avnace.

 

[Hellboy]

Bonjour InsideOut

désolé, je te répond plus tard, j'ai pas répondu au bon post 😱

Message édité par: Hellboy, à: 27/09/2005 11:57

 

[Hellboy]

re

Tu souhaite que le fichier ne s'enregistre pas a la fin ?

C'est extrêmenet difficile ce que tu me demande, parce que je ne vois aucun bout de code et a quel endroit il est pour savoir et comprendre ce qui te pose un problême !!!! Et je pense aussi que le fichier ne vient pas de toi !!! 😉

Plusieurs chose peuveut en être la cause.

Peux-tu au moins m'affichier ce que contient le Module ThisWorkbook ?

En attendant, voici la commande qui empêche l'affichage du message

Application.DisplayAlerts = False

a+

 

[insideout]

Bonjour HellBoy,
Merci encore pour ta réponse.
Je pense que j'ai mal exposé mon problème.
L'orsque je ferme le workbook, (Bien sure aprés que j'ai enregistré le fichier, cad accepter d'enregistrer les modifications apportées au workbook qui demandé par le msg d'excel). le fichier redémarre une deuxiéme fois.
voici le code dans workbok activate et workbook deactivate

Private Sub Workbook_Activate()
Dim bar As CommandBar
For Each bar In Application.CommandBars
bar.Enabled = False
Next
With Application
.DisplayScrollBars = False
.DisplayStatusBar = False
.DisplayFormulaBar = False
.DisplayExcel4Menus = False
.CommandBars('Worksheet Menu Bar').Enabled = False
.DisplayFullScreen = True
End With

With ActiveWindow
.DisplayHeadings = False
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = False

End With
Sheets('Accueil').Select
With Sheets('Accueil')
Sheets('Accueil').Range('NomPre').Select
Sheets('Accueil').ScrollArea = ('$A$1:$O$18')
HideShapes
ActiveSheet.Activate
ActiveSheet.Protect
End With
Sheets('Q-Dvt').Select
ActiveSheet.Protect

Sheets('Q-Images').Select
ActiveSheet.Protect

Sheets('Q-C-M').Select
ActiveSheet.Protect

Sheets('Accueil').Select
ActiveSheet.Protect

User.show


End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ArretCalculTps
End Sub

Private Sub Workbook_Deactivate()
Dim bar As CommandBar
For Each bar In Application.CommandBars
bar.Enabled = True
Next
With Application
.DisplayScrollBars = True
.DisplayStatusBar = True
.DisplayFormulaBar = True
.DisplayExcel4Menus = True
.CommandBars('Worksheet Menu Bar').Enabled = True
.DisplayFullScreen = False
End With
With ActiveWindow
.DisplayHeadings = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With

ArretCalculTps
Exit Sub


End Sub

Merci pour ton aide
Bonne journée

 

[PascalXLD]

Bonjour

Peut-être faudrait-il plutôt un code dans Workbook_Open au lieu de Workbook_Activate

2ème remarque je ne sais pas pourquoi mais je te vois bien poster dans quelques semaines en disant 'Au secours j'ai perdu ma barre de menu' ou peut-être un de tes users :unsure: (Voir tous les posts des dernières semaines sur ce sujet ainsi que la création de la SPBO)

Bonne soirée

 

[Hellboy]

re

Merci Pascal76 pour ton aide !

Je dois dire que je n'ai pas asser de vision sur ton fichier et je ne suis plus en mesure de savoir ce qui cloche.
Une chose que je remarque est que tu fais appel deux fois a cette commande: ArretCalculTps

Bon courage !

 

[insideout]

Merci Pascal76 et Hellboy,

Veuillez trouver dans ce lien mon fichier en question.
Merci pour votre précieuse aide




Bonne journée.

Message édité par: insideout, à: 27/09/2005 17:08

Message édité par: insideout, à: 28/09/2005 06:08

 

[Hellboy]

Bonjour insideout

Ça ne fonctionne pas ton affaire.

Je te sugère cet autre site, mais tu est limité a 250K.

http://cjoint.com/

Si tu zip ton fichier, tu gagnera d'avantage.

a+

 

[insideout]

Bonjour Hell boy,
J'ai réusi a reglé le prob.
thisworkbook.save=true
Apllication.close

Merci bien pour ton aide

 

[PascalXLD]

Re

Attention avec application.close tu fermes excel et donc tous tes fichiers ouverts autre que tonclasseur

Bonne journée

 

[insideout]

Salut hellboy,
je sui conscient de ça mais je crois que le seul issue à mon prob. en tout cas, C'est un examen, et les étudiants n'auront pas le droit que d'ouvrir le fichier de l'exam.
Ce qui me dérange encore c'est que même le fait de demander à excel de quitter le mode full screen
Before close
Withapplication
.DisplayFullscreen=false
End with
lorsque j'ouvre un autre workbook le mode full screen y persiste.

Any hints, mon choum.....

Bonne journée

 

[Hellboy]

Bonjour a tous

Pourrais-tu préciser ce que tu désire accomplir en fonction de quel but s.v.p.

Oublie les commande, les paramètres, ouvre ton coeur et dis nous en mot ce que chercher a accomplir et dans quel mesure ?

Merci !

Je sais que ce n'est pas toujour facile de communiquer ce que l'on cherche a accomplir. Lache pas, on va finir par y arriver !