> 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

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

Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
36,99 €Clé USB Sandisk Luxe 256 Go à double connectique USB 3.1 Type A et C à 36,99 €
47 € -21%

Cdiscount fait une promotion sur la clé USB Sandisk Luxe 256 Go à double connectique USB 3.1 Type A et C qui passe à 36,99 €. Cette clé USB  dispose d'un connecteur USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 47 €.


Voir l'offre
62,99 €Alimentation semi modulaire Corsair CX750M (750W, 80Plus Bronze) à 62,99 €
84,99 € -26%

Cdiscount fait une promotion sur l'alimentation semi modulaire Corsair CX750M 750W 80Plus Bronze qui passe à 62,99 €. On la trouve ailleurs à partir de 84,99 €. Cette alimentation est silencieuse et est certifiée 80PLUS bronze qui offre des rendements de plus de 82% en charge. Elle est garantie 3 ans.


Voir l'offre
34,99 €Nintendo Game & Watch The Legend of Zelda à 34,90 €
44,99 € -22%

Amazon propose la Game & watch The Legend of Zelda à 34,99 € livrée gratuitement. Avis aux nostalgiques : après avoir été vendue à plus de 43 millions d’exemplaires dans le monde, Game & Watch fait son grand retour ! Avec Game & Watch : The Legend of Zelda, profitez des grands classiques The Legend of Zelda, The Legend of Zela II : The Adventure of Link, et The Legend of Zelda : Link's Awakening ainsi que d’une version spéciale du jeu Vermin. Ce nouvel appareil fait également office d’horloge avec 35 animations disponibles, pour tous les amoureux du rétro-gaming. 


Voir l'offre
219,99 €Ecran 32 pouces incurvé Viewsonic VX3219 (FHD, 165 Hz, 1 ms) à 219,99 €
289,99 € -24%

Cdiscount fait une belle promotion sur l'écran 32 pouces incurvé Viewsonic VX3219 qui passe à 219,99 € alors qu'on le trouve ailleurs à partir de 289,99 €. Cet écran dispose d'une dalle VA Full HD  (1920x1080) à 240 Hz avec un temps de réponse de 1 ms. Il est compatible Adaptive Sync. Au niveau connectique, vous trouverez une entrée DP et deux entrées HDMI. Une bonne affaire. 


Voir l'offre

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