Discussion :

[oscar.cesar]

bonjour
j'attaque un autre domaine dans le quel j'ai besoin de votre avis
en tappant sur un bouton je voudrais lancer une impression de la feuil excel .
donc ouvrir le choix de l'imprimante (le top serait l'imprimante par defaut) et zou on imprime.
peut on faire cela à partir d'excel .

[fring]

Bonjour,

Oui c'est faisable mais...auras-tu préalablement défini ta zone d'impression ?
Où faut-il qu'elle se définisse automatiquement aussi ?

[oscar.cesar]

bonsoir
un fait toutes les infos sont dans une feuille excel dont la taille est figee( en fait c'est un formulaire que j'ai cree et en fonction du choix du destinataire seule l'adresse change (dans une cellule).

[fring]

Dans l'évènement Click de ton bouton tu colles le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

[oscar.cesar]

tiens je joins un fichier avec le formulaire

pour completer
voila un truc que j'avais en archive

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
Private Sub CommandButton1_Click()
 
Sheets("formulaire").PageSetup.PrintArea = ("A3:G40")
 
End Sub

"A3:G40 etant ma zone d'impression


mais bon pour l'instant

[fring]

Nos messages ce sont croisés...
Ajoute le bout de code que je t'ai proposé

[oscar.cesar]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
Private Sub CommandButton1_Click()
 
Sheets("formulaire").PageSetup.PrintArea = ("A3:G40")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

ca plante sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("formulaire").PageSetup.PrintArea = ("A3:G40")

[fring]

euhh...ça plante sur ton bout de code

essaye comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("formulaires").PageSetup.PrintArea = "A3:G40"

[oscar.cesar]

pas mieux
je suis sous excel 2002 xp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub CommandButton1_Click()
 
Sheets("formulaires").PageSetup.PrintArea = "A3:G40" 'je selectionne ma feuil"formulaire dans lequel j'imprime la zone de A3:G40
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

bref ca plante le message

indice n'appartient à la zone

[fring]

ta feuille "formulaires" est correctement orthographiée ?

[oscar.cesar]

salut

en fait j'ai changer le nom de la feuille Formulaires par IMpression , c'est deja mieux.

je crois que formulaire est un mot reserve !!!!!

bon c'est mieux mais je selectionne pas la bonne feuille
pourtant je selectionne la feuille "impression" dans le code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub CommandButton1_Click()
 
Sheets("impression").PageSetup.PrintArea = "A3:G50"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
End Sub

si tu as une idee

[fring]

Si, en partant de la gauche, ta feuille se trouve par exemple en 3 ème position, essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
With Sheets(3)
.PageSetup.PrintArea = "A3:G50"
.PrintOut Copies:=1, Collate:=True
End With
End Sub

Je pensais que ton bouton se trouvais sur la feuille à imprimer, c'est toujours un peu le problème lorsqu'on déclare Activecell, Activesheet, etc...^j'aurais du le préciser dès le début, sorry

[oscar.cesar]

salut
entre temps j'ai trouve cela

ca marche c'est peut etre pas top

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub CommandButton1_Click()
 Worksheets("impression").Activate
Worksheets("impression").PageSetup.PrintArea = "A3:G50"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

par ocntre pour complique les choses peut on preciser les parametres d'impression comme format paysage, en noir et blanc .......etc...

[fring]

on s'est de nouveau croisé...regarde ce que je t'ai répondu juste avant ton message, oui c'est possible pour définir les propriétés d'impression mais je ne sais plus comme ça de mémoire, je regarde si j'ai ça en magasin

[oscar.cesar]

ok cool
merci à toi et au forum ...

[fring]

J'ai retrouvé, ce que j'ai concerne les propriétés de mise en page de la feuille et pas de l'imprimante, ce qui finalement n'est pas plus mal vu que la feuille sera toujours identique, peu importe d'où on l'imprime alors que l'imprimante non. Bref, voici les propriétés de mise en page principales...(à adapter)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
With Sheets(3).PageSetup '<-- adapter le n° de la feuille
.PrintArea = "A3:G50" '<-- adapter zone d'impression
.Orientation = xlPortrait '<-- impression verticale
'.Orientation = xlLandscape '<-- impression horizontale
.BlackAndWhite = True '<-- impression noir/blanc
'.BlackAndWhite = False '<-- impression couleur
.CenterHorizontally = True '<-- centrer la zone d'impression horizontalement
.CenterVertically = True '<-- centrer la zone d'impression verticalement
End With
Sheets(3).PrintOut Copies:=1, Collate:=True '<-- adapter le n° de la feuille
End With
End Sub

[oscar.cesar]

bonjour

merci fring super