XL 2016 bouton d'ipression

[Seddiki_adz]

Bonjour
qui peut m'aider de faire un code pour imprimer la feuil2
merci d'avance

 

[sylvanu]

Bonjour Seddiki_adz,
Si vous voulez juste simuler le bouton impression avec les valeurs par défaut, alors essayez simplement :

Sub Imprime()
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

 

[Seddiki_adz]

Bonjour Seddiki_adz,
Si vous voulez juste simuler le bouton impression avec les valeurs par défaut, alors essayez simplement :

Sub Imprime()
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

merci
impression avec apercu

 

[sylvanu]

impression avec apercu

Vous pourriez être un tout petit peu plus explicite ?
Si vous voulez un aperçu avant impression ( qui n'est pas une impression comme demandé au post 1 ) alors essayez :

Sub Aperçu()
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

[Seddiki_adz]

Vous pourriez être un tout petit peu plus explicite ?
Si vous voulez un aperçu avant impression ( qui n'est pas une impression comme demandé au post 1 ) alors essayez :

Sub Aperçu()
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

voila merci

 

[soan]

Bonjour Seddiki, sylvanu,

* sur "Feuil2", note que le tableau est vide

* y'a un nouveau bouton ; clique dessus ; ça fait rien du tout, car y'a aucune donnée

* va sur "Feuil1" ; regarde les données ; clique sur le bouton "Copie" (ou fais Ctrl e)

* les données adéquates ont été copiées dans le tableau de "Feuil2"

* maint'nant qu'il y a des données, clique sur le nouveau bouton (ou fais Ctrl f)

* lis le message qui s'est affiché ; clique sur le bouton OK

* en dehors d'Excel, avec l'Explorateur de fichiers de Windows, va dans le dossier
où tu as mis le classeur Excel ; tu verras qu'il y a un nouveau fichier "Données",
(dont l'extension est .txt) ; consulte ce fichier, et au besoin imprime-le.

Option Explicit

Sub FileData()
  If ActiveSheet.Name <> "Feuil2" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 2).End(3).Row: If n = 8 Then Exit Sub
  Dim chn$, i&, j%: Const nl As String * 2 = vbCrLf & vbCrLf
  Open ThisWorkbook.Path & "\Données.txt" For Output As #1
    Print #1, "Fichier Données.txt": Print #1, String$(19, "=")
    Print #1, nl & "N, NOM, PRENOM, PROFESSION, ETABLISSEMENT, REGION, OBS, CONDITION" & nl
    For i = 9 To n
      chn = ""
      For j = 1 To 8: chn = chn & Cells(i, j) & " ; ": Next j
      chn = Left$(chn, Len(chn) - 3): Print #1, chn
    Next i
  Close #1
  MsgBox "Les données ont été écrites dans Données.txt"
End Sub

soan

 

[Seddiki_adz]

merci