Macro d'impression excel

[MR]

Bonsoir,
Je suis vraiment nul en macro. Je voudrais dans une feuille avoir un bouton impression, qui ouvre un fichier et qui, avant de lancer l'impression, me demande de quelle page à quelle page je veux lancer l'impression. Car à chaque déclenchement de la macro cette page peut être différente (j'ai 15 pages et chaque page représente un mois de l'année et j'imprime que le mois en-cours).
Je ne sais pas si je suis claire !
En attendant merci
MR

 

[dg62]

Bonsoir MR


tu travailles à la banque de France, mois 13,14,15...


Précises davantage ton souhait

 

[Hellboy]

Bonjour

Il n'en finisse plus ces mois ! 🙂 Il en invente un a tout les mois!

Hellboy :evil:

 

[mr]

bonjour dg62
j'ai toute une batterie de classeurs avec des indicateurs mensuels (12 feuilles de saisie que je n'ai pas à imprimer mais une feuille avec 12 pages (synthèse mensuelle qui compile l'ensemble pour des tableaux bord)
Je souhaiterais faire une macro d'impression dans un document vierge pour la personne qui va imprimer les tableaux de bords chaque mois, la page 1 correspondant au mois 01, etc......
et j'ai en tout 6 classeurs !
Je vous joins mon fichier peut-être !!!
Merci

 

[mr]

bonjour dg62
j'ai toute une batterie de classeurs avec des indicateurs mensuels (12 feuilles de saisie que je n'ai pas à imprimer mais une feuille avec 12 pages (synthèse mensuelle qui compile l'ensemble pour des tableaux bord)
Je souhaiterais faire une macro d'impression dans un document vierge pour la personne qui va imprimer les tableaux de bords chaque mois, la page 1 correspondant au mois 01, etc......
et j'ai en tout 6 classeurs !
Je vous joins mon fichier peut-être !!!
Merci

 

[Moi ja]

salut,

une petite idée pour ton pb:

voila le code une fois que tu as appuyé sur le bouton:

sub button_click()

dim rep

rep=application.dialogs(xldialogopen).show

if rep=false then ' pour ke lorsque tu annul l'ouverture sa ne bug pa
exit sub
end if

application.dialogs(xldialogprint).show
end sub

voila tout.

 

[Moi ja]

salut,

une petite idée pour ton pb:

voila le code une fois que tu as appuyé sur le bouton:

sub button_click()

dim rep

rep=application.dialogs(xldialogopen).show

if rep=false then ' pour ke lorsque tu annul l'ouverture sa ne bug pa
exit sub
end if

application.dialogs(xldialogprint).show
end sub

voila tout.

 

[dg62]

Bonjour Mr, Le Forum


en partant du principe modifiable que les classeurs sont nommés synthese1, 2, 3...6 et qu'ils se trouvent dans le même répertoire.

Sub Imprim()
Dim i As Integer
Dim classeur As String

For i = 1 To 6
classeur = 'synthese' & i & '.xls'
    Workbooks.Open Filename:= _
        'C:\\Documents and Settings\\Administrateur\\Mes documents\\' & classeur
    ActiveWorkbook.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.Close
Next i

End Sub

Message édité par: dg62, à: 03/05/2005 18:00

 

[MR]

Bonjour,
Comme je disais, je suis nul pour faire des macro, ou saisit-on cette programmation ?

 

[dg62]

Bonjour MR, Le forum


Alt F11 pour activer l'editeur VBA

insertion module

et coller le code.



ensuite sur une feuille inserer un bouton (barre d'outil formulaire)


affecter une macro

choisir imprim et valider


Bonne journée

 

[MR]

Bonjour DG62
Je travaille en pointillé sur mon pb, c'est pourquoi je ne suis pas très réactive, mais la dernière explication m'a permis d'avancer et je suis super contente, j'ai le bouton. Maintenant, Il faut que je réalise mes macro d'impression de mes différents classeurs. MERCI MERCI pour ce grand pas !!!!
🙂