> 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 !


Les bons plans du moment PC Astuces

Tous les Bons Plans
13,88 €Carte mémoire microSDXC UHS-I U3 SanDisk Extreme 64 Go (jusqu'à 160 Mo/s) à 13,88 €
Valable jusqu'au 05 Mars

Amazon fait une promotion sur la carte mémoire microSDXC UHS-I U3 SanDisk Extreme 64 Go qui passe à 13,88 €. Cette carte mémoire offre des vitesses jusqu'à 160 Mo/s et est idéale pour les téléphones, caméras et appareils photo HD. Elle est compatible GoPro, Switch et est accompagnée d'un adaptateur SD.


> Voir l'offre
49,99 €Manette Microsoft Xbox One sans fil + adaptateur pour PC à 49,99 €
Valable jusqu'au 29 Février

Amazon fait une promotion sur la manette Microsoft Xbox One sans fil + adapateur pour PC qui passe à 49,99 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 60 €.  Sur Xbox One, la connexion se fera directement sans fil et sur PC, il vous suffira de brancher l'adaptateur bluetooth fourni pour en profiter aussi. Si vous avez déjà le bluetooth sur votre ordinateur, vous pouvez prendre la version sans adaptateur qui coûte 10 € de moins.


> Voir l'offre
116,60 €SSD WD Blue SN550 1 To (NMVe M.2, 2400 Mo/s) à 116,60 €
Valable jusqu'au 01 Mars

Amazon fait une promotion sur le SSD WD Blue SN550 500 Go (NMVe M.2) qui passe à 116,60 € livré alors qu'on le trouve ailleurs à partir de 155 €. Ce SSD utilise une interface M.2 NVMe PCIe Gen3 x 4 pour une connexion simple et des performances exceptionnelles : jusqu’à 2 400 Mo/s en lecture séquentielle et jusqu’à 1 950 Mo/s en écriture séquentielle. Le SSD est doté de la technologie 3D TLC NAND haute densité offrant une endurance d’écriture durable et assorti d’une garantie de cinq ans.


> 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