Bonjour à tous !

Vous trouverez ci joint un fichier EXCEL dans lequel j' ai une liste de fournisseurs avec nom, prenom, adresse . . . et une fiche que je selectionne et imprime

Je souhaiterai pouvoir imprimer une liste de fiches comprises entre 2 valeurs variables que je saisi dans les cellules J15 et J16 de ma feuille de calcul ( Fiches n° 14 à 20 dans mon exemple )
Sachant que je pourrai avoir plus de 300 fiches et que jedevrai imprimer des series de 100 fiches environ est il possible de creer une boucle dans une macro qui me permettrai d' imprimer ma serie de fiche sans etre obligé de lancer l' impression fiche par fiche
J' ai commencé de creer une macro mais pour la boucle . . . je ne sais pas faire
Quelqun peut il m' aider s' il vous plait ?

Bonne journée en attendant vos conseils !

Je ne sais plus comment transmettre mon fichier EXCEL . . . ( je cherche )

A défaut d' avoir pu transmettre mon fichier EXCEL j' ai envoyé une copie d' ecran

Merci de votre aide

Passe ton fichier par cjoint.Com et tu postes le lien ici

Bonjour

voir ce fil

https://forum.pcastuces.com/excel_2007_imprimer_a_aide_une_macro-f23s22551.htm

voilà en espérant que ça vous plaise

http://cjoint.com/?EDbpZvmNmVy

Merci beaucoup gilbert_rgi

J ai fait l' essai mais ça ne fonctionne pas

On me demande si je veux imprimer la fiche 14 , je clique sur oui et le massage suivant apparait ( voir image jointe )

J' ai regardé dans macro mais je ne comprend pas d' ou peut venir l' erreur ( trop nul en macro )

Et bien sur je souhaiterai éviter d' etre obligé de confirmer l' impression à chaque fiche ( si c' est possible )

Je sens que la solution est proche

Merci encore pour votre aide

ce fonctionnement est normal car il permet de choisir de ne pas imprimer certaines fiches dans la selection

maintenant si vous ne voulez pas de cette possibilité c'est faisable

je vous assure que ça fonctionne chez moi

voilà le résultat

http://cjoint.com/?EDbrhqryynI

Oups je n' ai pas joint la bonne image pour le message d' erreur , c' est celui ci :

dans la macro
impression

mettre un 3 ( en rouge) ActiveSheet.PageSetup.PrintArea = "$d$3:$g$11"

Non décidément le message d' erreur apparait toujours

Peut etre en annulant la confirmation de lecture
Si je veux l' annuler je suppose qu' il faut supprimer les lignes rouges ?

Sub impression()
x = [j15].Value
y = [j16].Value
For nom = x To y
Range("b16").Value = nom
rep = MsgBox("Impression de la fiche : " & nom, vbInformation + vbYesNoCancel,

"Impression")
If rep = vbYes Then
ActiveSheet.PageSetup.PrintArea = "$d3$:$g$11"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End If
If rep = vbCancel Then Exit For
Next
Range("b16").Value = "1"
End Sub

regarde bien

$d$3 et non $d3$

et

rep = MsgBox("Impression de la fiche : " & nom, vbInformation + vbYesNoCancel,"Impression")

sur une seule ligne

ça marche !!!!!

c' était bien le "$d$3 et non $d3$" qui plantait

Un grand merci pour ton aide

Il ne reste plus qu' à supprimer la confirmation à chaque fiche

je fais comme indiqué ci dessus ? ( suppression des lignes rouges ? )

ça marche !!!!!

Supression de la confirmation avec :

Sub impression()
x = [j15].Value
y = [j16].Value
For nom = x To y
Range("b16").Value = nom
ActiveSheet.PageSetup.PrintArea = "$d$3:$g$11"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next
Range("b16").Value = "1"
End Sub

Et çà fonctionne parfaitement

Un grand merci encore gilbert_rgi tu va me faire gagner des heures de travail

Je fais encore des esaais demain et je marquerai résolu

Bonsoir à tous et vive PCA

Bonjour à vous

Du coup J' ai fait 2 macros , avec et sans confirmations de lecture
Apres de nombreux essais tout fonctionne parfaitement

merci encore à gilbert_rgi pour ton aide precieuse

Je marque donc résolu

Bonne journée à tous