imprime lorsque l'on ouvre un fichier excel

[benmx]

Bonjour,

Je voudrais savoir comment imprime lorsque l'on ouvre un fichier excel
J'aimerais aussi qu'il se ferme automatiquement

Merci

 

[Staple1600]

Re : imprime lorsque l'on ouvre un fichier excel

Bonsoir à tous




Tu peux créer une macro:

Tu ouvres ton fichier, puis tu fais
Outils/Macros -> Nouvelle macro

Tu lui donnes un nom

Ensuite, tu fais Fichier/Imprimer

Et tu cliques sut le petit carré


Tu obtiendras le code VBA correspont à l'action d'Impression

Sub Macro1()
'ici impression de la feuille active
ActiveSheet.PrintOut
End Sub

Extrait de l'aide VBA
PrintOut, méthode - Exemple

Cet exemple montre comment imprimer la feuille active.

ActiveSheet.PrintOut

Pour fermer le classeur actif en l'enregistrant avant de le fermer

ThisWorkbook.Save
ThisWorkbook.Close

 

[benmx]

Re : imprime lorsque l'on ouvre un fichier excel

ok mais avec ce code il me faudra un bouton?
J'aimerai que cela s'imprime lorsque je l'ouvre, est ce qu'il faut rajouter du code?

merci

 

[Staple1600]

Re : imprime lorsque l'on ouvre un fichier excel

Re


Tu veux imprimer un classeur entier ?

Sub IMPRESSION_CLASSEUR()
[B]' à tester sur à un claseeur de deux feuilles
'pour économiser le papier[/B]
Dim X As Long
X = Sheets.Count
With ActiveWorkbook
        .Sheets(X).PrintOut
End With
End Sub

Tu veux imprimer une seule feuille du classeur?



Dans les deux cas, c'est ici qu'il faut mettre le code

Private Sub Workbook_Open()
impressionF ' nom de la macro d'impression
End Sub

Sub impressionF()
Worksheets("[B][COLOR="Blue"]Feuil1[/COLOR][/B]").PrintOut
End Sub

Remplacer Feuil1 part le nom de la feuille à imprimer

 

[benmx]

Re : imprime lorsque l'on ouvre un fichier excel

en fait je veux imprimer une feuille.
Mais je veux l'imprimer en cliquant sur le fichier (à l'ouverture)

a la base j'ai un fichier A evec un lien vers un fichier B et je veux que lorsque l'on clique sur le lien le fichier B s'imprime.

Donc je pensait metre une macro sur le fichier B qui s'imprime lorsque l'on ouvre ( puis se fermer en auto)

Merci

 

[Staple1600]

Re : imprime lorsque l'on ouvre un fichier excel

RE


Essaye la macro ImpressionF de mon précédent message
(en l'appelant dans Private Sub Workbook_Open()

cf.mon précédent message

A+

 

[benmx]

Re : imprime lorsque l'on ouvre un fichier excel

ok mais le code je le mais dans "module" ou "thisworbook"

merci

 

[Staple1600]

Re : imprime lorsque l'on ouvre un fichier excel

Re


Dasn ThisWorkook
Workbook_Open()



Dans un module
ImpressionF

 

[benmx]

Re : imprime lorsque l'on ouvre un fichier excel

ok merci ca marche
et j'ai une dernèire quetion (désolé) , Je voudrai que le classeur se ferme ensuite

Merci

 

[Staple1600]

Re : imprime lorsque l'on ouvre un fichier excel

Re

edit:

(Dans un module)
En ouvrant directement à partir du classeur actif

Sub OUVRIR_PRINT_FERMER()
Dim X As String
Dim Nom_Fic As String
Dim Classeur_A_OUVRIR As String
Chemin = "C:\Temp\"
Nom_Fic = "tesPP2.xls"
X = Chemin & Nom_Fic
Workbooks.Open (X)
Classeur_A_OUVRIR = ActiveWorkbook.Name
ThisWorkbook.Activate
Windows(Classeur_A_OUVRIR).PrintPreview
Windows(Classeur_A_OUVRIR).Close
End Sub

A tester

Private Sub Workbook_Open()
Worksheets(1).PrintOut
'Worksheets(1).PrintPreview
Application.DisplayAlerts = False
ThisWorkbook.Close
End Sub

 

[benmx]

Re : imprime lorsque l'on ouvre un fichier excel

presque bon
Le classeur se ferme mais excel reste ouvert

(le Fichier A est un PPT , je veux donc fermer complètement excel)

Merci