> Tous les forums > Forum Bureautique
 Creation d' une boucle macro dans fichier EXCEL pour impressionSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
belaf
  Posté le 01/04/2015 @ 13:36 
Aller en bas de la page 
Petit astucien

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 !

Publicité
belaf
 Posté le 01/04/2015 à 13:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien


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

belaf
 Posté le 01/04/2015 à 14:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

belaf
 Posté le 01/04/2015 à 14:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

Merci de votre aide

ZenJP
 Posté le 01/04/2015 à 14:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

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

gilbert_rgi
 Posté le 01/04/2015 à 14:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

belaf
 Posté le 01/04/2015 à 15:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
voila le lien cjoint.com pour le fichier EXCEL http://cjoint.com/?0DbpoDP4mFh Merci à vous
gilbert_rgi
 Posté le 01/04/2015 à 15:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

voilà en espérant que ça vous plaise

http://cjoint.com/?EDbpZvmNmVy

belaf
 Posté le 01/04/2015 à 16:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

Publicité
gilbert_rgi
 Posté le 01/04/2015 à 16:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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



Modifié par gilbert_rgi le 01/04/2015 16:55
belaf
 Posté le 01/04/2015 à 17:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

gilbert_rgi
 Posté le 01/04/2015 à 17:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

dans la macro
impression

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

belaf
 Posté le 01/04/2015 à 18:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

gilbert_rgi
 Posté le 01/04/2015 à 18:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

regarde bien

$d$3 et non $d3$

et

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

sur une seule ligne



Modifié par gilbert_rgi le 01/04/2015 18:14
belaf
 Posté le 01/04/2015 à 18:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

ç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 ? )

belaf
 Posté le 01/04/2015 à 18:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

ç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

belaf
 Posté le 02/04/2015 à 14:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Macro pour ouverture d'un fichier Excel
EXCEL RECHERCHEV pour autre fichier. Macro?
Macro pour insertion fichier html dans Mail
Excel: Impression dans un fichier
pb pour ouvrir un fichier html dans Excel
excel : macro pour enregistrer un fichier
2 pages par feuille dans macro excel
gestion @ mail dans fichier clients Excel
Macro pour raccourci impression
Macro pour créer un Gencode sur Excel - EAN 18
Plus de sujets relatifs à Creation d'' une boucle macro dans fichier EXCEL pour impression
 > Tous les forums > Forum Bureautique