Bonjour Le forum
J'ai crée un USF qui me permet de remplir la feuille DATA(codename=DATAs) et la feuille print (codename= Prints) j'ai un bouton imprimer qui me permet de transferer les données sur les deux feuilles puis imprimer la feuille Print mais il n'arrive pas à imprimer
alors comme dois_je le fair voici le code utilisé
Merci d'avance pour votre aide
J'ai crée un USF qui me permet de remplir la feuille DATA(codename=DATAs) et la feuille print (codename= Prints) j'ai un bouton imprimer qui me permet de transferer les données sur les deux feuilles puis imprimer la feuille Print mais il n'arrive pas à imprimer
alors comme dois_je le fair voici le code utilisé
Code:
Private Sub imprimer()
Dim f3 As Worksheet
Set f3 = PRINTS
f3.Activate
'f3.Select
With f3
.PrintOut From:=1, To:=1, copies:=1
.Range("H3").Value = "0000" & .Range("H3").Value + 1
End With
End Sub