XL 2016 bouton d'ipression

Seddiki_adz

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

Pièces jointes

  • Classeur2.011.xlsm
    21.1 KB · Affichages: 10
Solution
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...

soan

XLDnaute Barbatruc
Inactif
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. :)

VB:
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
 

Pièces jointes

  • Classeur2.03.xlsm
    24.9 KB · Affichages: 7

Discussions similaires

Réponses
18
Affichages
483