Bonsoir à tous,
j'ai déja posté un message dans ce sens je voudrais pouvoir imprimer la
grille,
Isabelle a voulu m'aider mais cela ne m'avance guère,
j'ai bien téléchargé le JWalk Enhanced Data Form qui est
très bien mais je n'ai rien trouvé dedans pour l'imprimer.
Il y a probablement un truc que j'ai loupé.
J'ai essayé d'aller voir dans le code mais il faut payer ce qui est
contraire à ma religion.
Et du moment que l'auteur l'a souhaité je ne tenterais pas de le déplomber.
Mais en vérité nombreux , je le vois bien sur ce forum, cherchent à faire
des UF perso
qui bien souvent sont gros consommateurs de mémoire, alors que
celui déjà prévu dans excel est très bien, sauf qu'on ne peut pas
l'imprimer.
Ce serait tellement pratique ...
Bonsoir Jean Paul, Histoire de dépanner quand même, un petit rappel : ) Êr(41) } Êr(125) ] Êr(93) [ Êr(91) { Êr(123) ( Êr(40) ; Êr(59) : Êr(58) o Êr(111) - Êr(45) A défaut de touches appropriées, tu peux te servir de ces codes précédés de la touche alt -- Amicales Salutations
"sabatier" a écrit dans le message de news:
bien sûr que je vais bien, LeSteph, tout aussi sûr que je disais cela en blaguant mais c'est pas de ma faute si philippe R, en me filant une proc pour laquelle je l'avais pourtant remercié, a fait en sorte qu'il n'y a plus une souriette sur mon clavier... allez, tu vas bien finir par l'imprimer ta grille avec l'aide d'alain C...je te le souhaite en tous cas... jps
LeSteph a écrit:
Bonjour jps,
Tu vas bien? D'habitude tu es un peu plus gentill!
Bonsoir Jean Paul,
Histoire de dépanner quand même, un petit rappel :
) Êr(41)
} Êr(125)
] Êr(93)
[ Êr(91)
{ Êr(123)
( Êr(40)
; Êr(59)
: Êr(58)
o Êr(111)
- Êr(45)
A défaut de touches appropriées, tu peux te servir de ces codes précédés de la touche alt
--
Amicales Salutations
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message de
news:40DDECBC.3050308@wanadoo.fr...
bien sûr que je vais bien, LeSteph, tout aussi sûr que je disais cela en
blaguant mais c'est pas de ma faute si philippe R, en me filant une proc
pour laquelle je l'avais pourtant remercié, a fait en sorte qu'il n'y a
plus une souriette sur mon clavier...
allez, tu vas bien finir par l'imprimer ta grille avec l'aide d'alain
C...je te le souhaite en tous cas...
jps
LeSteph a écrit:
Bonjour jps,
Tu vas bien? D'habitude tu es un peu plus gentill!
Bonsoir Jean Paul, Histoire de dépanner quand même, un petit rappel : ) Êr(41) } Êr(125) ] Êr(93) [ Êr(91) { Êr(123) ( Êr(40) ; Êr(59) : Êr(58) o Êr(111) - Êr(45) A défaut de touches appropriées, tu peux te servir de ces codes précédés de la touche alt -- Amicales Salutations
"sabatier" a écrit dans le message de news:
bien sûr que je vais bien, LeSteph, tout aussi sûr que je disais cela en blaguant mais c'est pas de ma faute si philippe R, en me filant une proc pour laquelle je l'avais pourtant remercié, a fait en sorte qu'il n'y a plus une souriette sur mon clavier... allez, tu vas bien finir par l'imprimer ta grille avec l'aide d'alain C...je te le souhaite en tous cas... jps
LeSteph a écrit:
Bonjour jps,
Tu vas bien? D'habitude tu es un peu plus gentill!
sabatier
:-)...je viens de faire mes 3 Alt mais je ne m'en souviendrai jamais...autant que je recolle les touches du clavier qui me servent à remplacer des lettres de scrabble égarées :-) jps
Philippe.R a écrit:
Bonsoir Jean Paul, Histoire de dépanner quand même, un petit rappel : ) Êr(41) } Êr(125) ] Êr(93) [ Êr(91) { Êr(123) ( Êr(40) ; Êr(59) : Êr(58) o Êr(111) - Êr(45) A défaut de touches appropriées, tu peux te servir de ces codes précédés de la touche alt
:-)...je viens de faire mes 3 Alt mais je ne m'en souviendrai
jamais...autant que je recolle les touches du clavier qui me servent à
remplacer des lettres de scrabble égarées :-)
jps
Philippe.R a écrit:
Bonsoir Jean Paul,
Histoire de dépanner quand même, un petit rappel :
) Êr(41)
} Êr(125)
] Êr(93)
[ Êr(91)
{ Êr(123)
( Êr(40)
; Êr(59)
: Êr(58)
o Êr(111)
- Êr(45)
A défaut de touches appropriées, tu peux te servir de ces codes précédés de la touche alt
:-)...je viens de faire mes 3 Alt mais je ne m'en souviendrai jamais...autant que je recolle les touches du clavier qui me servent à remplacer des lettres de scrabble égarées :-) jps
Philippe.R a écrit:
Bonsoir Jean Paul, Histoire de dépanner quand même, un petit rappel : ) Êr(41) } Êr(125) ] Êr(93) [ Êr(91) { Êr(123) ( Êr(40) ; Êr(59) : Êr(58) o Êr(111) - Êr(45) A défaut de touches appropriées, tu peux te servir de ces codes précédés de la touche alt
LeSteph
:-D :-) "sabatier" a écrit dans le message de news:
:-)...je viens de faire mes 3 Alt mais je ne m'en souviendrai jamais...autant que je recolle les touches du clavier qui me servent à remplacer des lettres de scrabble égarées :-) jps
Philippe.R a écrit:
Bonsoir Jean Paul, Histoire de dépanner quand même, un petit rappel : ) Êr(41) } Êr(125) ] Êr(93) [ Êr(91) { Êr(123) ( Êr(40) ; Êr(59) : Êr(58) o Êr(111) - Êr(45) A défaut de touches appropriées, tu peux te servir de ces codes précédés de la touche alt
:-D
:-)
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message
de news:40DDFDB3.6070507@wanadoo.fr...
:-)...je viens de faire mes 3 Alt mais je ne m'en souviendrai
jamais...autant que je recolle les touches du clavier qui me servent à
remplacer des lettres de scrabble égarées :-)
jps
Philippe.R a écrit:
Bonsoir Jean Paul,
Histoire de dépanner quand même, un petit rappel :
) Êr(41)
} Êr(125)
] Êr(93)
[ Êr(91)
{ Êr(123)
( Êr(40)
; Êr(59)
: Êr(58)
o Êr(111)
- Êr(45)
A défaut de touches appropriées, tu peux te servir de ces codes précédés
de la touche alt
:-D :-) "sabatier" a écrit dans le message de news:
:-)...je viens de faire mes 3 Alt mais je ne m'en souviendrai jamais...autant que je recolle les touches du clavier qui me servent à remplacer des lettres de scrabble égarées :-) jps
Philippe.R a écrit:
Bonsoir Jean Paul, Histoire de dépanner quand même, un petit rappel : ) Êr(41) } Êr(125) ] Êr(93) [ Êr(91) { Êr(123) ( Êr(40) ; Êr(59) : Êr(58) o Êr(111) - Êr(45) A défaut de touches appropriées, tu peux te servir de ces codes précédés de la touche alt
LeSteph
Bonjour Alain, Encore merci c'est bon , pour le problème de plantage il venait du fait que j'avais précisément essayé de coller le contenu du presse-papiers dans une feuille vide sans avoir changé de feuille.J'avais bien lu mais je pensais devoir arrêter le hook seulement avant de quitter Excel. L'instance se lance bien mais est cachée car quand j'imprime j'ai l'info "Impression de Classeur2", en revanche cela prend tout, la grille et la feuille. Mais bon du moment que j'ai le bouton dans la grille .Je peux superposer un cadre vide entre la feuille et la grille. Donc , solution: j'enlève les On Activate et Déactivate Je vais placer une commande GrilleImprimable dans le menu qui appellera 'Mise En place' et affichera la Grille, puis déclencherai l'arrêt du hook sur récupération du focus par la feuille en sortant de la grille.Comme cela plus de plantage et j'ai mon bébé. Merci encore de ta patience et de ton aide vraiment exceptionnelle .
:-)) Very Happy LeSteph
"Alain CROS" a écrit dans le message de news:
Bonjour.
Je reprend ici le code du bouton Imprimer que je commente.
Lorsqu'une fenêtre prend le focus If lMsg = HCBT_SETFOCUS Then
Si c'est le bouton Imprimer If wParam = PbHwnd Then
Cette ligne ne sert a rien --> à supprimer EmptyClipboard
Copier l'image de la grille dans le ClipBoard keybd_event vbKeySnapshot, 0&, 0&, 0&
Arrêter le Hook pour éviter qu'il interfère avec la nouvelle instance d'XL
LeHook
Lancer une nouvelle instance d'XL Dim Xlapp As New Excel.Application
With Xlapp
Nouveau Classeur .Workbooks.Add
Coller l'image de la grille sur la feuille .ActiveSheet.Paste
Imprimer la feuille .ActiveSheet.PrintOut
fermer le Classeur sans sauvegarder .ActiveWorkbook.Close False
End With
L'instance d'XL est supprimer car il n'y a plus de classeur, il serait peut être judicieux de rajouter .Quit dans le with
Set Xlapp = Nothing
Relancer le Hook LeHook True
Exit Function End If End If
A la sortie , l'image de la grille est toujours dans le ClipBoard. Pour vérifier ton problème d'impression sur 2 pages, quitter la grille et changer de page pour arrêter le hook.
Lancer une nouvelle instance d'XL Coller l'image de la grille. Imprimer. Je pense qu'ici aussi l'impression se fera sur 2 pages. La grille est peut être grande ou bien le paramétrage de la zone d'impression par défaut est petite ou ???
Alain CROS
"LeSteph" a écrit dans le message de news: 40dc8131$0$1045$
Re bonsoir, Peut être je m'y prends mal J'ai bien collé distinctement les deux appels dans le module code Feuille (celle qui contient les datas)
Les autres procs dans module (normal) J'obtiens une copie écran en deux pages il n'y a pas de nouvelle instance le hook sans doute, cela me dépasse et de loin! Je vais essayer de comprendre mais j'en ai pour .....
En cas d'idée...Merci
Suis en XP puisque tu utilises l' API Win
Bonjour Alain,
Encore merci c'est bon , pour le problème de plantage il venait du fait que
j'avais
précisément essayé de coller le contenu du presse-papiers dans une feuille
vide
sans avoir changé de feuille.J'avais bien lu mais je pensais devoir arrêter
le hook
seulement avant de quitter Excel.
L'instance se lance bien mais est cachée car quand j'imprime
j'ai l'info "Impression de Classeur2", en revanche cela prend tout, la
grille et la feuille.
Mais bon du moment que j'ai le bouton dans la grille .Je peux superposer un
cadre vide
entre la feuille et la grille. Donc , solution: j'enlève les On Activate et
Déactivate
Je vais placer une commande GrilleImprimable dans le menu qui appellera
'Mise En place'
et affichera la Grille, puis déclencherai l'arrêt du hook sur récupération
du focus par la feuille
en sortant de la grille.Comme cela plus de plantage et j'ai mon bébé.
Merci encore de ta patience et de ton aide vraiment exceptionnelle .
:-)) Very Happy
LeSteph
"Alain CROS" <Personne@ICI> a écrit dans le message de
news:ejZDB73WEHA.1048@tk2msftngp13.phx.gbl...
Bonjour.
Je reprend ici le code du bouton Imprimer que je commente.
Lorsqu'une fenêtre prend le focus
If lMsg = HCBT_SETFOCUS Then
Si c'est le bouton Imprimer
If wParam = PbHwnd Then
Cette ligne ne sert a rien --> à supprimer
EmptyClipboard
Copier l'image de la grille dans le ClipBoard
keybd_event vbKeySnapshot, 0&, 0&, 0&
Arrêter le Hook pour éviter qu'il interfère avec la nouvelle instance
d'XL
LeHook
Lancer une nouvelle instance d'XL
Dim Xlapp As New Excel.Application
With Xlapp
Nouveau Classeur
.Workbooks.Add
Coller l'image de la grille sur la feuille
.ActiveSheet.Paste
Imprimer la feuille
.ActiveSheet.PrintOut
fermer le Classeur sans sauvegarder
.ActiveWorkbook.Close False
End With
L'instance d'XL est supprimer car il n'y a plus de classeur, il serait
peut être judicieux de rajouter .Quit dans le with
Set Xlapp = Nothing
Relancer le Hook
LeHook True
Exit Function
End If
End If
A la sortie , l'image de la grille est toujours dans le ClipBoard.
Pour vérifier ton problème d'impression sur 2 pages, quitter la grille et
changer de page pour arrêter le hook.
Lancer une nouvelle instance d'XL
Coller l'image de la grille.
Imprimer.
Je pense qu'ici aussi l'impression se fera sur 2 pages.
La grille est peut être grande ou bien le paramétrage de la zone
d'impression par défaut est petite ou ???
Alain CROS
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
40dc8131$0$1045$626a14ce@news.free.fr...
Re bonsoir,
Peut être je m'y prends mal
J'ai bien collé distinctement
les deux appels dans le module code Feuille (celle qui contient les
datas)
Les autres procs dans module (normal)
J'obtiens une copie écran en deux pages
il n'y a pas de nouvelle instance
le hook sans doute, cela me dépasse et de loin!
Je vais essayer de comprendre mais j'en ai pour .....
Bonjour Alain, Encore merci c'est bon , pour le problème de plantage il venait du fait que j'avais précisément essayé de coller le contenu du presse-papiers dans une feuille vide sans avoir changé de feuille.J'avais bien lu mais je pensais devoir arrêter le hook seulement avant de quitter Excel. L'instance se lance bien mais est cachée car quand j'imprime j'ai l'info "Impression de Classeur2", en revanche cela prend tout, la grille et la feuille. Mais bon du moment que j'ai le bouton dans la grille .Je peux superposer un cadre vide entre la feuille et la grille. Donc , solution: j'enlève les On Activate et Déactivate Je vais placer une commande GrilleImprimable dans le menu qui appellera 'Mise En place' et affichera la Grille, puis déclencherai l'arrêt du hook sur récupération du focus par la feuille en sortant de la grille.Comme cela plus de plantage et j'ai mon bébé. Merci encore de ta patience et de ton aide vraiment exceptionnelle .
:-)) Very Happy LeSteph
"Alain CROS" a écrit dans le message de news:
Bonjour.
Je reprend ici le code du bouton Imprimer que je commente.
Lorsqu'une fenêtre prend le focus If lMsg = HCBT_SETFOCUS Then
Si c'est le bouton Imprimer If wParam = PbHwnd Then
Cette ligne ne sert a rien --> à supprimer EmptyClipboard
Copier l'image de la grille dans le ClipBoard keybd_event vbKeySnapshot, 0&, 0&, 0&
Arrêter le Hook pour éviter qu'il interfère avec la nouvelle instance d'XL
LeHook
Lancer une nouvelle instance d'XL Dim Xlapp As New Excel.Application
With Xlapp
Nouveau Classeur .Workbooks.Add
Coller l'image de la grille sur la feuille .ActiveSheet.Paste
Imprimer la feuille .ActiveSheet.PrintOut
fermer le Classeur sans sauvegarder .ActiveWorkbook.Close False
End With
L'instance d'XL est supprimer car il n'y a plus de classeur, il serait peut être judicieux de rajouter .Quit dans le with
Set Xlapp = Nothing
Relancer le Hook LeHook True
Exit Function End If End If
A la sortie , l'image de la grille est toujours dans le ClipBoard. Pour vérifier ton problème d'impression sur 2 pages, quitter la grille et changer de page pour arrêter le hook.
Lancer une nouvelle instance d'XL Coller l'image de la grille. Imprimer. Je pense qu'ici aussi l'impression se fera sur 2 pages. La grille est peut être grande ou bien le paramétrage de la zone d'impression par défaut est petite ou ???
Alain CROS
"LeSteph" a écrit dans le message de news: 40dc8131$0$1045$
Re bonsoir, Peut être je m'y prends mal J'ai bien collé distinctement les deux appels dans le module code Feuille (celle qui contient les datas)
Les autres procs dans module (normal) J'obtiens une copie écran en deux pages il n'y a pas de nouvelle instance le hook sans doute, cela me dépasse et de loin! Je vais essayer de comprendre mais j'en ai pour .....
