Drôle de fenêtre ...Excel bloqué ??

Bonjour Thierry

C'est la fenetre d'execution pas a pas des macros excel4. Si ca ne répond plus c'est que
tu es peut-etre dans une vboucle infinie. Tente un ESC ou un Ctrl+Pause.

j-p

Merci pour l'info !!

J'ai déjà essayé ces touches...sans succès. Ce que je ne comprends pas
(mais il y en a beaucoup avec Excel !!), c'est quelle macro EXcel4
j'active, dans la mesure où j'utilise Excel 2002 et que ce que j'ai pu
lire sur le forum montre qu'il y a des problmèmes de compatibilité entre
ces versions 4 et les suivantes..
Ce problème m'est arrivé une fois ou deux, sans que je puisse déterminer
vraiment ce que je venais de faire :-(((

Encore merci pour la réponse

Bonjour Thierry

C'est la fenetre d'execution pas a pas des macros excel4. Si ca ne répond plus c'est que
tu es peut-etre dans une vboucle infinie. Tente un ESC ou un Ctrl+Pause.

j-p

--
@+ thierryp

Peut-etre as-tu une feuille macro Excel4 dans ton fichier ? Pour le savoir, tu cliques
droit sur une cellule de la feuille et en bas du menu contextuel, tu devrais avoir :
Executer...
Si c'est le cas, et qu'il n'y a pas de macro dedans, tu la supprimes.

j-p

Re-merci pour la réponse !!

J'essaye ça demain....mais avec un doute, car c'est un fichier tout neuf
que j'ai créé moi-même avec mes petits doigts et Excel 2002, et je n'ai
rien importé......mais l'informatique a parfois ses raisons que la
raison ignore :-)))

@+ thierryp

Peut-etre as-tu une feuille macro Excel4 dans ton fichier ? Pour le savoir, tu cliques
droit sur une cellule de la feuille et en bas du menu contextuel, tu devrais avoir :
Executer...
Si c'est le cas, et qu'il n'y a pas de macro dedans, tu la supprimes.

j-p

Bonjour le forum !

Il semble que ceci se produise lors de l'éxécution (vu comme je
programme, c'est au sens littéral !!) d'une macro before_print que voici :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Récap" Then
Titre = "De la Semaine " & " " & " à la Semaine " & " "
Call QuelMois
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Gras""&12" & Mois
.CenterHeader = "&""Arial,Gras""&12" & Titre
End With
End If
End Sub

Sub QuelMois()
Mois = Range("Choix_Mois").Value
End Sub

tout se fige si je fais un essai en pas à pas.....
Toute aide sera la bienvenue !!!

Thierryp

Re-merci pour la réponse !!

J'essaye ça demain....mais avec un doute, car c'est un fichier tout neuf
que j'ai créé moi-même avec mes petits doigts et Excel 2002, et je n'ai
rien importé......mais l'informatique a parfois ses raisons que la
raison ignore :-)))

@+ thierryp

Peut-etre as-tu une feuille macro Excel4 dans ton fichier ? Pour le
savoir, tu cliques
droit sur une cellule de la feuille et en bas du menu contextuel, tu
devrais avoir :
Executer...
Si c'est le cas, et qu'il n'y a pas de macro dedans, tu la supprimes.

j-p

--
@+ thierryp

Bonjour Thierry

Chez moi, ta macro fonctionne sans planter, que ce soit en auto ou en Pas à pas.
Je dois dire que je ne vois pas d'ou vient le problème. Peut-etre un problème de drivers
d'imprimante, mais j'y crois pas trop.

j-p

Merci de ta patience !!!!!!!!

mais ???????????????
Après moult essais, il me semble qu'à l'aperçu, rien ne s'inscrit dans
le leftheader; je devrais y trouver un chiffre de 1 à 12.....
En mode auto, tout va bien....mais je dois modifier cette macro, et le
mode pas à pas me serait surement utile !!!

Je creuse, je creuse mais fournissez moi la lumière !!!

Bonjour Thierry

Chez moi, ta macro fonctionne sans planter, que ce soit en auto ou en Pas à pas.
Je dois dire que je ne vois pas d'ou vient le problème. Peut-etre un problème de drivers
d'imprimante, mais j'y crois pas trop.

j-p

--
@+ thierryp

J'ai un peu remanié ta macro. Le probleme vient de ton utilisation de la variable Mois.
Une variable est valable seulement à l'interieur d'une procédure à mois de la déclarer en
dehors de toute procédure. Une autre solution est de créer une fonction qui te renvoie ta
variable :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Récap" Then
Titre = "De la Semaine " & " " & " à la Semaine " & " "
mois= QuelMois
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Gras""&12" & mois
.CenterHeader = "&""Arial,Gras""&12" & Titre
End With
End If
End Sub

Function QuelMois()
QuelMois = Range("Choix_Mois").Value
End Sub

C'est à devenir fou !!!

Je viens d'essayer ta modif, avec le même résultat :-((((((((
Entre-temps, j'avais passé ma variable en public, mais que ce soit avec
ta modif ou la mienne, rien ne s'affiche en leftheader ???? Et je bloque
toujours en pas à pas .....
Heureusement, j'ai encore des cheveux à m'arracher !!

J'ai un peu remanié ta macro. Le probleme vient de ton utilisation de la variable Mois.
Une variable est valable seulement à l'interieur d'une procédure à mois de la déclarer en
dehors de toute procédure. Une autre solution est de créer une fonction qui te renvoie ta
variable :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Récap" Then
Titre = "De la Semaine " & " " & " à la Semaine " & " "
mois= QuelMois
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Gras""&12" & mois
.CenterHeader = "&""Arial,Gras""&12" & Titre
End With
End If
End Sub

Function QuelMois()
QuelMois = Range("Choix_Mois").Value
End Sub

--
@+ thierryp

As-tu la possibilité d'essayer avec une autre imprimante ?
Sinon mets ton fichier sur cjoint.com, j'y jetterai un oeil.

j-p