Il y a de tous les types dans mon formulaire, TextBox, CheckBox, CheckListBox, ListViews. Merci pour la solution de la boucle, mais n'y a t'il pas une commande qui détermine le nombre de copies à imprimer ?
Voici mon extrait de code pour le boutton imprimer :
'Déclaration des variables
Dim
appExcel
As
Excel.Application
'Application Excel
Dim
FichierExcel
As
Excel.Workbook
'Classeur Excel
Dim
FeuilleExcel
As
Excel.Worksheet
'Feuille Excel
'Ouverture de l'application
appExcel = CreateObject(
"Excel.Application"
)
'Ouverture d'un fichier Excel
FichierExcel = appExcel.Workbooks.Open(Application.StartupPath &
"\fiche.xls"
, ,
True
)
'Feuille Excel correspondant à la feuille selectionné
FeuilleExcel = FichierExcel.Worksheets(1)
'Worksheets permet de determiner la feuille
'Inscription du numéro de la fiche
FeuilleExcel.Cells.Item(4, 3) = numDerniereFiche
'Inscription de la date de la date de reception
FeuilleExcel.Cells.Item(8, 2) = datetimetoday
'Inscription du matériel déposé
FeuilleExcel.Cells.Item(12, 2) = listeMatériel
appExcel.Visible =
True
FeuilleExcel.PrintPreview()
Donc voila
J'espère que vous pourrez m'aider.
++ et merci d'avance.