Bouton impression par page

Bonjour à tous,

j'ai un fichier avec plusieurs onglets. certain onglet on un bouton pour imprimer avec le chemin, la date et le nom.

je voudrais que chaque bouton fonctionne séparément, voir fichier joint.

Cordialement,

Bonjour,

Pouvez-vous poster le code s'il vous plait (à l'aide des balises </> du ruban d'incônes) ?

Que voulez-vous exactement ? Que le code agisse indifféremment selon la page, c'est-à-dire qu'il imprime la page active ?

Cdlt,

Bonjour 3GB,

je ne comprend pas "poster le code s'il vous plait (à l'aide des balises </> du ruban d'incônes)"

je souhaite que chaque page qui à un bouton imprime la page réceptive!

Merci,

Bonjour

Ce qui serait bien c'est que tu nommes les feuilles que tu veux imprimer, et les plages a imprimer par feuille,dans le fichier que tu as joins

il y a des feuilles sur lesquelles il n'y a rien .

Dans une demande plus on est précis plus on a de chance de trouver une solution.

Cordialement

Il y a 2 feuille a imprimer : FLUT et BP avec chacune un bouton

les plages des feuilles a imprimer sont définie dans "mise en page / zoneimprim

les autres feuilles n'ont pas besoin d'être imprimées et contiendront des données de calcul pour compléter FLUT et BP.

Cordialement,

Bonjour

A tester

Bonjour,

ça fonctionne, mais cela n'imprime pas en suivant :

Chemin :

Date :

Nom :

La macro utilisé pour suivre le chemin, la date et le nom est :

Option Explicit

Sub imprim()
Dim nom$
With Feuil18
nom = .Cells(1, 2) & "\" & .Cells(3, 2) & " " & Format(.Cells(2, 2), "dd-mm-yyyy") & ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End With
MsgBox "FLUTURAS a fost salvata sub " & nom, , "PRINT TERMINAT"
End Sub

Re,

Je vous ai demandé de poster le code à l'aide des balises </> car ça permet d'obtenir ça :

Sub imprim()
Dim nom$
With Activesheet
    nom = .Cells(1, 2) & "\" & .Cells(3, 2) & " " & Format(.Cells(2, 2), "dd-mm-yyyy") & ".pdf"
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, IgnorePrintAreas:=False
End With
MsgBox "FLUTURAS a fost salvata sub " & nom, , "PRINT TERMINAT"
End Sub

J'ai remplacé Feuil18 par Activesheet car j'ai l'impression que c'est ce que vous attendez...

Sinon, je n'ai pas compris ce que vous entendiez par feuille réceptive ?

Mais, vu comme ça, le code parait bien s'il y a un chemin existant en B1...

Cdlt,

Message : erreur de compilation / nom ambigu détecté : imprim

module

Option Explicit

Sub imprim()

Dim nom$

With ActiveSheet

nom = .Cells(1, 2) & "\" & .Cells(3, 2) & " " & Format(.Cells(2, 2), "dd-mm-yyyy") & ".pdf"

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, IgnorePrintAreas:=False

End With

MsgBox "FLUTURAS a fost salvata sub " & nom, , "PRINT TERMINAT"

End Sub

Feuil (BP)

Option Explicit

Private Sub CommandButton2_Click()

Call imprim

End Sub

Feuil FLUT

Option Explicit

Private Sub CommandButton1_Click()

Call imprim

End Sub

Si vous avez ce message, c'est que vous avez 2 fois la macro imprim ou une variable imprim ou un module imprim.

En attendant que 3GB (que je salue)revienne

supprimer le Call qui se trouve sur le code de tes boutons

j'ai retiré le call,

Option Explicit

Private Sub CommandButton1_Click()
imprim
End Sub

Option Explicit

Private Sub CommandButton2_Click()
imprim
End Sub

même message d'erreur

Bonjour,

Je ne comprend pas pourquoi se que j'ai fais ne fonctionne pas!

si vous avez des idées...

Bonjour toutes et tous

coucous Joco7915, 3GB

@Christopherom

1/supprimer les modules vides

2/ pour le Module11:

Option Explicit
' Feuil14 (BP)
Sub imprim()
Dim nom$
With Sheets("BP")
nom = .Cells(1, 2) & "\" & .Cells(3, 2) & " " & Format(.Cells(2, 2), "dd-mm-yyyy") & ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
'End With
MsgBox "FLUTURAS a fost salvata sub " & nom, , "PRINT TERMINAT"
End With
End Sub

3/ pour le Module9:

Option Explicit
' Feuil18 (FLUT)
Sub imprim()
    Dim nom$
    With Sheets("FLUT")
        nom = .Cells(1, 2) & "\" & .Cells(3, 2) & "  " & Format(.Cells(2, 2), "dd-mm-yyyy") & ".pdf"
     .ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    'End With
    MsgBox "FLUTURAS a fost salvata sub " & nom, , "PRINT TERMINAT"
    End With
End Sub

4/ @tester

5/ petite erreur aussi dans la feuille INF le mois FEVRIER et non FEVIER

crdlt,

André

Bonjour Andre13,

Merci je vais tester

Erreur de compilation, sub ou fonction non définie

macro feuil4

Option Explicit

Private Sub CommandButton1_Click()
flutimprime
End Sub

macro feuil8

Option Explicit

Private Sub CommandButton2_Click()
bpimprime
End Sub

Bonjour à tous, Salut Joco, Salut André !

@Christophe : Les "erreurs de compilation" ne sont pas des erreurs mais contrôles préalables (vérification des variables, des noms du projet, ...).

Je vous conseille d'utiliser une seule macro (à placer dans un module normal) renommée pour éviter ce blocage que vous aviez :

Sub ImprimActive()
Dim nom$
With Activesheet
    nom = .Cells(1, 2) & "\" & .Cells(3, 2) & " " & Format(.Cells(2, 2), "dd-mm-yyyy") & ".pdf"
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, IgnorePrintAreas:=False
End With
MsgBox "FLUTURAS a fost salvata sub " & nom, , "PRINT TERMINAT"
End Sub

Et ensuite, dans l'évènement click de chaque commandbutton, call ImprimActive.

A noter qu'il est possible d'affecter une macro à des boutons (non activeX), c'est plus simple...

Cdlt,