Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Voici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Voici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, kouko...@free.fr wrote:
Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Voici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenir
Voici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, kouko...@free.fr wrote:
Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Ok, FFO, merci.
Je vais tester
A+
"FFO" a écrit dans le message de
news:Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Ok, FFO, merci.
Je vais tester
A+
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:8CB862D8-0EBA-4303-A27B-8BA34B76AA7A@microsoft.com...
Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenir
Voici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, kouko...@free.fr wrote:
Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Ok, FFO, merci.
Je vais tester
A+
"FFO" a écrit dans le message de
news:Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Peux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" a écrit dans le message de
news:%Ok, FFO, merci.
Je vais tester
A+
"FFO" a écrit dans le message de
news:Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Peux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" <koukou4000@free.fr> a écrit dans le message de
news:%23RK4mc6JIHA.4196@TK2MSFTNGP04.phx.gbl...
Ok, FFO, merci.
Je vais tester
A+
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:8CB862D8-0EBA-4303-A27B-8BA34B76AA7A@microsoft.com...
Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenir
Voici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, kouko...@free.fr wrote:
Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Peux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" a écrit dans le message de
news:%Ok, FFO, merci.
Je vais tester
A+
"FFO" a écrit dans le message de
news:Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris
Pour créer la Macro :
Outils/Macro/Nouvelle macro
Nom de la macro tu mets "Préparation" puis OK
Sur l'icone Arr clique sur le carré bleu
Puis
Outils/Macro/Macros
Sélectionnes la macro "Préparation" puis Modifier
Avant le End Sub fait une copie du code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
Enregistres et fermes l'éditeur
Si tu as recopié le code de ton bouton l'impression est prète à fonc tionner
Tiens moi au courrantPeux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" a écrit dans le message de
news:%Ok, FFO, merci.
Je vais tester
A+
"FFO" a écrit dans le message de
news:Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accue il" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau d e
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant d e
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Pour créer la Macro :
Outils/Macro/Nouvelle macro
Nom de la macro tu mets "Préparation" puis OK
Sur l'icone Arr clique sur le carré bleu
Puis
Outils/Macro/Macros
Sélectionnes la macro "Préparation" puis Modifier
Avant le End Sub fait une copie du code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
Enregistres et fermes l'éditeur
Si tu as recopié le code de ton bouton l'impression est prète à fonc tionner
Tiens moi au courrant
Peux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" <koukou4...@free.fr> a écrit dans le message de
news:%23RK4mc6JIHA.4196@TK2MSFTNGP04.phx.gbl...
Ok, FFO, merci.
Je vais tester
A+
"FFO" <F...@discussions.microsoft.com> a écrit dans le message de
news:8CB862D8-0EBA-4303-A27B-8BA34B76AA7A@microsoft.com...
Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenir
Voici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, kouko...@free.fr wrote:
Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accue il" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau d e
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant d e
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Pour créer la Macro :
Outils/Macro/Nouvelle macro
Nom de la macro tu mets "Préparation" puis OK
Sur l'icone Arr clique sur le carré bleu
Puis
Outils/Macro/Macros
Sélectionnes la macro "Préparation" puis Modifier
Avant le End Sub fait une copie du code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
Enregistres et fermes l'éditeur
Si tu as recopié le code de ton bouton l'impression est prète à fonc tionner
Tiens moi au courrantPeux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" a écrit dans le message de
news:%Ok, FFO, merci.
Je vais tester
A+
"FFO" a écrit dans le message de
news:Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accue il" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau d e
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant d e
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ok cela fonctionne !
Merci.
Dernières questions :
- si je masque un graphique, rien ne s'imprime j'ai un message
d'erreur VBA !
- lorsque la fenêtre du choix de l'imprimante s'affiche et que je
cliques sur "Annuler", l'impression s'effectue tout de même !
Peux-tu m'aider...une dernière fois ?
Merci
chris
On 16 nov, 08:16, FFO wrote:Pour créer la Macro :
Outils/Macro/Nouvelle macro
Nom de la macro tu mets "Préparation" puis OK
Sur l'icone Arr clique sur le carré bleu
Puis
Outils/Macro/Macros
Sélectionnes la macro "Préparation" puis Modifier
Avant le End Sub fait une copie du code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
Enregistres et fermes l'éditeur
Si tu as recopié le code de ton bouton l'impression est prète à fonctionner
Tiens moi au courrantPeux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" a écrit dans le message de
news:%Ok, FFO, merci.
Je vais tester
A+
"FFO" a écrit dans le message de
news:Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ok cela fonctionne !
Merci.
Dernières questions :
- si je masque un graphique, rien ne s'imprime j'ai un message
d'erreur VBA !
- lorsque la fenêtre du choix de l'imprimante s'affiche et que je
cliques sur "Annuler", l'impression s'effectue tout de même !
Peux-tu m'aider...une dernière fois ?
Merci
chris
On 16 nov, 08:16, FFO <F...@discussions.microsoft.com> wrote:
Pour créer la Macro :
Outils/Macro/Nouvelle macro
Nom de la macro tu mets "Préparation" puis OK
Sur l'icone Arr clique sur le carré bleu
Puis
Outils/Macro/Macros
Sélectionnes la macro "Préparation" puis Modifier
Avant le End Sub fait une copie du code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
Enregistres et fermes l'éditeur
Si tu as recopié le code de ton bouton l'impression est prète à fonctionner
Tiens moi au courrant
Peux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" <koukou4...@free.fr> a écrit dans le message de
news:%23RK4mc6JIHA.4196@TK2MSFTNGP04.phx.gbl...
Ok, FFO, merci.
Je vais tester
A+
"FFO" <F...@discussions.microsoft.com> a écrit dans le message de
news:8CB862D8-0EBA-4303-A27B-8BA34B76AA7A@microsoft.com...
Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenir
Voici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, kouko...@free.fr wrote:
Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ok cela fonctionne !
Merci.
Dernières questions :
- si je masque un graphique, rien ne s'imprime j'ai un message
d'erreur VBA !
- lorsque la fenêtre du choix de l'imprimante s'affiche et que je
cliques sur "Annuler", l'impression s'effectue tout de même !
Peux-tu m'aider...une dernière fois ?
Merci
chris
On 16 nov, 08:16, FFO wrote:Pour créer la Macro :
Outils/Macro/Nouvelle macro
Nom de la macro tu mets "Préparation" puis OK
Sur l'icone Arr clique sur le carré bleu
Puis
Outils/Macro/Macros
Sélectionnes la macro "Préparation" puis Modifier
Avant le End Sub fait une copie du code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
Enregistres et fermes l'éditeur
Si tu as recopié le code de ton bouton l'impression est prète à fonctionner
Tiens moi au courrantPeux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" a écrit dans le message de
news:%Ok, FFO, merci.
Je vais tester
A+
"FFO" a écrit dans le message de
news:Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé "Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2 ou
graph3) et le bouton de commande sert à lancer l'impression d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Rebonjours à toi
Pour éviter les plantages suite au masquage d'un graphique et opérer
l'annulation de l'impression par l'intermédiaire d'une boîte de dialogue
la
confirmant ou non je te propose ce nouveau code pour le bouton :
On Error Resume Next
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
If MsgBox("Confirmez vous l'impression", vbYesNo) = vbYes Then
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Else
Exit Sub
End If
Celà devrait répondre à tes attentesOk cela fonctionne !
Merci.
Dernières questions :
- si je masque un graphique, rien ne s'imprime j'ai un message
d'erreur VBA !
- lorsque la fenêtre du choix de l'imprimante s'affiche et que je
cliques sur "Annuler", l'impression s'effectue tout de même !
Peux-tu m'aider...une dernière fois ?
Merci
chris
On 16 nov, 08:16, FFO wrote:Pour créer la Macro :
Outils/Macro/Nouvelle macro
Nom de la macro tu mets "Préparation" puis OK
Sur l'icone Arr clique sur le carré bleu
Puis
Outils/Macro/Macros
Sélectionnes la macro "Préparation" puis Modifier
Avant le End Sub fait une copie du code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
Enregistres et fermes l'éditeur
Si tu as recopié le code de ton bouton l'impression est prète à
fonctionner
Tiens moi au courrantPeux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" a écrit dans le message
de
news:%Ok, FFO, merci.
Je vais tester
A+
"FFO" a écrit dans le message de
news:Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas
resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à
mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé
"Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau
de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2
ou
graph3) et le bouton de commande sert à lancer l'impression
d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant
de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Rebonjours à toi
Pour éviter les plantages suite au masquage d'un graphique et opérer
l'annulation de l'impression par l'intermédiaire d'une boîte de dialogue
la
confirmant ou non je te propose ce nouveau code pour le bouton :
On Error Resume Next
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
If MsgBox("Confirmez vous l'impression", vbYesNo) = vbYes Then
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Else
Exit Sub
End If
Celà devrait répondre à tes attentes
Ok cela fonctionne !
Merci.
Dernières questions :
- si je masque un graphique, rien ne s'imprime j'ai un message
d'erreur VBA !
- lorsque la fenêtre du choix de l'imprimante s'affiche et que je
cliques sur "Annuler", l'impression s'effectue tout de même !
Peux-tu m'aider...une dernière fois ?
Merci
chris
On 16 nov, 08:16, FFO <F...@discussions.microsoft.com> wrote:
Pour créer la Macro :
Outils/Macro/Nouvelle macro
Nom de la macro tu mets "Préparation" puis OK
Sur l'icone Arr clique sur le carré bleu
Puis
Outils/Macro/Macros
Sélectionnes la macro "Préparation" puis Modifier
Avant le End Sub fait une copie du code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
Enregistres et fermes l'éditeur
Si tu as recopié le code de ton bouton l'impression est prète à
fonctionner
Tiens moi au courrant
Peux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" <koukou4...@free.fr> a écrit dans le message
de
news:%23RK4mc6JIHA.4196@TK2MSFTNGP04.phx.gbl...
Ok, FFO, merci.
Je vais tester
A+
"FFO" <F...@discussions.microsoft.com> a écrit dans le message de
news:8CB862D8-0EBA-4303-A27B-8BA34B76AA7A@microsoft.com...
Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas
resté
sélectionné avant de lancer l'impression
Celà devrait convenir
Voici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, kouko...@free.fr wrote:
Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à
mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé
"Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau
de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2
ou
graph3) et le bouton de commande sert à lancer l'impression
d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant
de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Rebonjours à toi
Pour éviter les plantages suite au masquage d'un graphique et opérer
l'annulation de l'impression par l'intermédiaire d'une boîte de dialogue
la
confirmant ou non je te propose ce nouveau code pour le bouton :
On Error Resume Next
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
If MsgBox("Confirmez vous l'impression", vbYesNo) = vbYes Then
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Else
Exit Sub
End If
Celà devrait répondre à tes attentesOk cela fonctionne !
Merci.
Dernières questions :
- si je masque un graphique, rien ne s'imprime j'ai un message
d'erreur VBA !
- lorsque la fenêtre du choix de l'imprimante s'affiche et que je
cliques sur "Annuler", l'impression s'effectue tout de même !
Peux-tu m'aider...une dernière fois ?
Merci
chris
On 16 nov, 08:16, FFO wrote:Pour créer la Macro :
Outils/Macro/Nouvelle macro
Nom de la macro tu mets "Préparation" puis OK
Sur l'icone Arr clique sur le carré bleu
Puis
Outils/Macro/Macros
Sélectionnes la macro "Préparation" puis Modifier
Avant le End Sub fait une copie du code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
Enregistres et fermes l'éditeur
Si tu as recopié le code de ton bouton l'impression est prète à
fonctionner
Tiens moi au courrantPeux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" a écrit dans le message
de
news:%Ok, FFO, merci.
Je vais tester
A+
"FFO" a écrit dans le message de
news:Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas
resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à
mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé
"Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau
de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2
ou
graph3) et le bouton de commande sert à lancer l'impression
d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant
de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut FFO !
Cette solution est intéressante sauf que je voudrais imprimer le graphique
masqué !
Et là ce n'est pas possible !
Une idée ?
A+
Chris
"FFO" a écrit dans le message de
news:Rebonjours à toi
Pour éviter les plantages suite au masquage d'un graphique et opérer
l'annulation de l'impression par l'intermédiaire d'une boîte de dialogue
la
confirmant ou non je te propose ce nouveau code pour le bouton :
On Error Resume Next
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
If MsgBox("Confirmez vous l'impression", vbYesNo) = vbYes Then
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Else
Exit Sub
End If
Celà devrait répondre à tes attentesOk cela fonctionne !
Merci.
Dernières questions :
- si je masque un graphique, rien ne s'imprime j'ai un message
d'erreur VBA !
- lorsque la fenêtre du choix de l'imprimante s'affiche et que je
cliques sur "Annuler", l'impression s'effectue tout de même !
Peux-tu m'aider...une dernière fois ?
Merci
chris
On 16 nov, 08:16, FFO wrote:Pour créer la Macro :
Outils/Macro/Nouvelle macro
Nom de la macro tu mets "Préparation" puis OK
Sur l'icone Arr clique sur le carré bleu
Puis
Outils/Macro/Macros
Sélectionnes la macro "Préparation" puis Modifier
Avant le End Sub fait une copie du code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
Enregistres et fermes l'éditeur
Si tu as recopié le code de ton bouton l'impression est prète à
fonctionner
Tiens moi au courrantPeux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" a écrit dans le message
de
news:%Ok, FFO, merci.
Je vais tester
A+
"FFO" a écrit dans le message de
news:Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas
resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à
mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé
"Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau
de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2
ou
graph3) et le bouton de commande sert à lancer l'impression
d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant
de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut FFO !
Cette solution est intéressante sauf que je voudrais imprimer le graphique
masqué !
Et là ce n'est pas possible !
Une idée ?
A+
Chris
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:F03CAEB8-CD9D-4127-8609-0B0FF36A0D8D@microsoft.com...
Rebonjours à toi
Pour éviter les plantages suite au masquage d'un graphique et opérer
l'annulation de l'impression par l'intermédiaire d'une boîte de dialogue
la
confirmant ou non je te propose ce nouveau code pour le bouton :
On Error Resume Next
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
If MsgBox("Confirmez vous l'impression", vbYesNo) = vbYes Then
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Else
Exit Sub
End If
Celà devrait répondre à tes attentes
Ok cela fonctionne !
Merci.
Dernières questions :
- si je masque un graphique, rien ne s'imprime j'ai un message
d'erreur VBA !
- lorsque la fenêtre du choix de l'imprimante s'affiche et que je
cliques sur "Annuler", l'impression s'effectue tout de même !
Peux-tu m'aider...une dernière fois ?
Merci
chris
On 16 nov, 08:16, FFO <F...@discussions.microsoft.com> wrote:
Pour créer la Macro :
Outils/Macro/Nouvelle macro
Nom de la macro tu mets "Préparation" puis OK
Sur l'icone Arr clique sur le carré bleu
Puis
Outils/Macro/Macros
Sélectionnes la macro "Préparation" puis Modifier
Avant le End Sub fait une copie du code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
Enregistres et fermes l'éditeur
Si tu as recopié le code de ton bouton l'impression est prète à
fonctionner
Tiens moi au courrant
Peux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" <koukou4...@free.fr> a écrit dans le message
de
news:%23RK4mc6JIHA.4196@TK2MSFTNGP04.phx.gbl...
Ok, FFO, merci.
Je vais tester
A+
"FFO" <F...@discussions.microsoft.com> a écrit dans le message de
news:8CB862D8-0EBA-4303-A27B-8BA34B76AA7A@microsoft.com...
Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas
resté
sélectionné avant de lancer l'impression
Celà devrait convenir
Voici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, kouko...@free.fr wrote:
Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à
mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé
"Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau
de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2
ou
graph3) et le bouton de commande sert à lancer l'impression
d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant
de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut FFO !
Cette solution est intéressante sauf que je voudrais imprimer le graphique
masqué !
Et là ce n'est pas possible !
Une idée ?
A+
Chris
"FFO" a écrit dans le message de
news:Rebonjours à toi
Pour éviter les plantages suite au masquage d'un graphique et opérer
l'annulation de l'impression par l'intermédiaire d'une boîte de dialogue
la
confirmant ou non je te propose ce nouveau code pour le bouton :
On Error Resume Next
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
If MsgBox("Confirmez vous l'impression", vbYesNo) = vbYes Then
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Else
Exit Sub
End If
Celà devrait répondre à tes attentesOk cela fonctionne !
Merci.
Dernières questions :
- si je masque un graphique, rien ne s'imprime j'ai un message
d'erreur VBA !
- lorsque la fenêtre du choix de l'imprimante s'affiche et que je
cliques sur "Annuler", l'impression s'effectue tout de même !
Peux-tu m'aider...une dernière fois ?
Merci
chris
On 16 nov, 08:16, FFO wrote:Pour créer la Macro :
Outils/Macro/Nouvelle macro
Nom de la macro tu mets "Préparation" puis OK
Sur l'icone Arr clique sur le carré bleu
Puis
Outils/Macro/Macros
Sélectionnes la macro "Préparation" puis Modifier
Avant le End Sub fait une copie du code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
Enregistres et fermes l'éditeur
Si tu as recopié le code de ton bouton l'impression est prète à
fonctionner
Tiens moi au courrantPeux-tu m'expliquer ?
- Créer une macro de ce style : Private Sub "Préparation" ?
Et dans Thisworkbook ?
- Range("A1").Activate ???
A+
"koukou40arobasefree.fr" a écrit dans le message
de
news:%Ok, FFO, merci.
Je vais tester
A+
"FFO" a écrit dans le message de
news:Salut à toi
Je te propose de remplacer le code ton bouton par ce code :
Run ("Préparation")
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("graph1").PrintOut
Sheets("graph2").PrintOut
Sheets("graph3").PrintOut
Et de créer la macro "Préparation" en mettant ce code :
For i = 1 To Sheets.Count
Sheets(i).Activate
Range("A1").Activate
Next
ceci afin de désélectionner les graphiques qui seraient restés
sélectionnés
ce qui aurait pour inconvénient de ne pas imprimer les données
Si tu ne souhaites pas la mettre en place enléve la ligne
Run ("Préparation") du code de ton bouton
Il faudra dans cette hypothèse s'assurer qu'un graphique n'est pas
resté
sélectionné avant de lancer l'impression
Celà devrait convenirVoici mon fichier :
http://cjoint.com/?lppvlpN80O
On 15 nov, 14:59, wrote:Bonjour,
C'est mon 2ème post car je n'ai pas eu de réponses précises à
mon
problème.
Dans un classeur se trouve 4 onglets, le premier intitulé
"Accueil" où
j'ai placé un ComboBox et un bouton de commande.
Les 3 autres onglets représentent des graphiques et un tableau
de
données.
Dans le ComboBox, je peux choisir un graphique (graph1, graph2
ou
graph3) et le bouton de commande sert à lancer l'impression
d'un ou
plusieurs graphiques.
Mes soucis :
1) seul le graphique s'imprime, il manque les données !
2) comment imprimer tous les graphiques en même temps ?
3) est-il possible de choisir une imprimante (en réseau) avant
de
lancer l'impression ?
Si vous avez une solution, je suis preneur !
Merci
Chris- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -