Macro excel liste déroulante

Bonjour à tous,

Voilà, j'ai un gros fichier qui répertorie tous mes transporteurs et notamment leur " encours ". J'ai une manip à faire pour venir enregistrer celui-ci au format PDF afin de leur envoyer par la suite.

J'aimerai automatiser cette procédure étant donné qu'une fusion de compte transporteurs est à venir et que j'en aurai + de 200 très prochainement. Faire la manip 15 fois était jusqu'alors acceptable, mais 200 fois...

Le gros souci que je rencontre c'est que cette liste de transporteur est dans une cellule avec liste déroulante. En fait ça fonctionne comme ceci :
Je viens sélectionner le numéro souhaité, puis je fais ma manip pour imprimer en PDF le résultat, puis je descend d'un numéro etc etc...

En essayant un peu (je suis très novice sur le sujet) je suis parvenu à ça, ce qui pour l'instant me permet d'enregistrer le PDF du transporteur sélectionné.

Sub Test2()


'

' Test2 Macro
'

'
Range("A325").Select


Application.Goto Reference:="SUIVI10"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users ".pdf", Quality:= _att
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
Range("A325").Select
Application.Goto Reference:="SUIVI10"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False



End Sub


Seulement voilà, j'aimerai que la macro puisse d'elle-même descendre dans ce menu déroulant jusqu'à la fin de celui-ci, et que ça m'imprime le PDF correspondant à chaque fois... je ne sais pas si je suis clair ?

J'ai essayé pendant quelques heures de jouer avec la fonction Sendkeys, pour que la macro sélectionne à nouveau la cellule, puis fasse alt + bas pour ouvrir le menu déroulant de la cellule, puis bas pour descendre d'un cran puis entrée pour valider mais cela n'a pas l'air de marcher et je finis un peu par m'arracher les cheveux... :D J'ai essayé plein d'enregistrements aussi dans l'espoir qu'Excel me propose quelque chose lorsque je clic sur le menu déroulant mais rien n'y fait...

Je sollicite votre aide et me tiens à votre disposition pour toutes questions si il manque des informations.

Merci d'avance.

Bonjour
Sans entrée dans la conception de ton dossier (je trouve bizarre début de mois et fin du mois et début mois +1 ....,) voir coté tableau croisé dynamique ou une colonne réservée pour les mois , une pour l'année et évidement une pour les chauffeurs ça te permet de faire toutes les comparaisons possibles avec une belle présentation...bref
pour répondre à votre demande ; certainement la liste de validation fait référence à une colonne précise...donc on peux parcourir toutes les lignes de cette colonne et les enregistrés format PDF
dans ce petit exemple le code imprime et enregistre pour chaque chauffeur son bon
ce n'est qu'un début de réponse à développer et à adapter pour ton cas
J'espère que ça t'aide à avancer

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub factureAimprimer() Dim w1 As Worksheet Dim w2 As Worksheet Dim L As Long Set w1 = Worksheets("Liste") Set w2 = Worksheets("Bon")   Application.ScreenUpdating = False L = w1.Range("A" & Rows.Count).End(xlUp).Row   For i = 2 To L w2.Range("C2").Value = w1.Cells(i, "A") w2.PageSetup.PrintArea = ("B1:C10") w2.PrintOut w2.PageSetup.PrintArea = ""   w2.Select   '*************************Enregistrement Rapport Format PDF******************* Dim Ar(0) As String Ar(0) = Feuil1.Name Sheets(Ar).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "BON " & w2.Range("C2") _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False '******************************************************************************** Next i Application.ScreenUpdating = True End Sub

---

Bonjour,

Tout d'abord, merci pour votre retour. A vous lire, c'est si simple !

Effectivement ce fichier est assez complexe, il répertorie des mouvements par transporteur sur plus de 10 sites donc ce bon est un récap personnel regroupant tous leurs soldes.. Il faut définir la plage et faire un rappel de leur solde à M-1 ainsi que leur rappeler qu'ils ont 30 jours pour contester celui-ci. Pour des raisons de confidentialité je ne montrerai pas la complexité du fichier.

Je ne suis pas à l'origine de celui-ci mais on m'a clairement dit qu'il fallait faire avec :D Pour ma part je débute sur excel, j'ai appris sur le tas à l'aide de vidéos youtube etc alors oui c'est possible que cela puisse paraître parfois aberrant au près de personnes qui s'y connaissent.

J'ai essayé une bonne demi-heure là mais je n'arrive pas à intégrer cette notion de descendre dans le menu déroulant...

Ou est-ce que je dois travailler svp ?

Sub Test2()


'

' Test2 Macro
'

For i = 1 To L
w2.Range("A325").Value = w1.Cells(i, "A")
w2.PageSetup.PrintArea = ("B322: U354")
w2.PrintOut
w2.PageSetup.PrintArea = ""
Application.Goto Reference:="SUIVI10"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
Next i
Application.ScreenUpdating = True

End Sub

Bonjour
voici un petit fichier qui permettra de réaliser la tache demandée
Pièce jointe 632164
Il faut que la feuille ETAT soit la 1e du classeur

Fonctionnement :
dans la feuille ETAT, on met en C2 le mois souhaité puis on appuie sur le bouton latéral
cela va générer sur le bureau un pdf de chaque fournisseur
le nom sera du type "Nom du classeur" puis un - puis le nom du fournisseur et le mois entre ()
ex : Fulerty.xlsm - A (Mois 01).pdf

Pour le projet final, il faudra sans doute mettre un sous dossier sur le bureau pour ne pas avoir 200 fichiers dessus !

Restant à dispo
Fabien

Bonjour,

Merci pour votre retour. Je ne parviens cependant pas à l'appliquer à mon fichier, je vais devoir prendre des cours d'excel très prochainement :D

Cette ligne là : Application.Goto Reference:="SUIVI10" me permet de choisir le mois et la zone d'impression en fait, et je n'arrive pas à modifier selon ton schéma... Ces mois sont tous côte à côte sur cette feuille et cliquer sur le suivi du mois en question permet de sélectionner le bon correspondant.

En fait ma macro actuelle me permet de faire exactement ce dont j'ai besoin par rapport à mon fichier cependant je ne sais pas lui dire de répéter pour toutes les valeurs existantes dans le menu déroulante, existe-t-il un moyen de le faire ou alors il faut effectivement reprendre la macro de la base? Je pensais en faire une par mois pour pas trop complexifier la chose, car le menu déroulant se répète aussi à chaque mois, donc une requête pour janvier lui disant : toutes les options du menu déroulant de a30 par exemple à imprimer sur telle zone, une requête pour février sur les cellules de A60 etc...

Merci pour votre temps et j'espère pouvoir rendre la pareille un jour.$

EDIT : Suis-je sur la bonne voie ?

Sub Test2()


'

' Test2 Macro
'

'
Dim cell As Range
For Each cell In Range("A325")
Range("A325").Value = cell.Value
Application.Run ("impression_pdf")
Next cell

End Sub

Sub impression_pdf()


Application.Goto Reference:="SUIVI10"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
C:\Users ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

End Sub

Bonjour
personnellement j'apprends beaucoup de choses sur le forum, notamment quand on nous demande des choses comme ce que vous demandez. Ca me fait progresser donc vous m'avez déjà rendu service.

Votre problème ici est la définition de votre plage

Code:

---

1 2	Dim cell As Range For Each cell In Range("A325")

---

à la place de A325, il devrait y avoir le listing de vos fournisseurs
dans ma démo je les avais mis dans un tableau structuré "TBL_Fournisseurs" et du coup je lui ai demandé "pour chaque cellule dans la plage TBL_Fournisseurs"

Code:

---

For Each cell In Range("TBL_Fournisseurs")

---

Il vous faut donc lister vos fournisseurs et nommer la plage afin de l'utiliser comme il faut.

Pour moi, votre code Application.Goto Reference:="SUIVI10" ne sert à rien dans votre macro impression.
Mon équivalent correspondait à

Code:

---

Range("qui_ETAT").Value = cell.Value

---

Du coup, vous ce serait + un truc du style

Code:

---

Range("suivi10").Value = cell.Value

---

Bonjour,

J'ai donc essayé comme expliqué, j'ai répertorié mes transporteurs sur un autre onglet et j'ai demandé à ce qu'il vienne piocher là-dedans.


EDIT : J'avais mis un s en trop à transporteurs mais là quand je l'ai lancé... dramatique ! Toutes mes valeurs ont disparues et il m'a affiché une erreur de syntaxe quant à l'enregistrement :(



Le problème viendrait-il du cell.value?

Avez vous bien nommé une cellule "SUIVI10" ?
Là j'ai l'impression que vous lui avez plutôt dit "prends ma plage SUIVI10 et mets la valeur du transporteur 1" d'où des 1 de partout

De plus, de manière générale,
Pour comprendre où ca merdouille, je conseille de lancer l'exécution de la macro en mode pas à pas (touche F8)

Ok, j'ai nommé ma cellule (ou il y a le menu déroulant) suivvi10 et maintenant c'est à l'enregistrement que ça déconne, je vois pas pourquoi ?







Aussi, j'ai l'impression qu'il transforme automatiquement le code 001 en 1, donc le reste des formules ne trouve pas le code correspondant et me met du N#A partout... comment corriger cela ?

Cependant je n'ai pas l'impression que la macro comprend qu'il y a une boucle à faire... je me suis raté quelque part ?

Par exemple ce que je veux c'est que la macro fasse défiler le menu déroulant (ici j'ai enlevé toutes mes références par confidentialité) puis m'imprime le bon a côté équivalent, dans mon fichier cliquer sur SUIVI1 ou SUIVI2 permet de sélectionner toute la zone du mois concernée

Est-ce que je suis clair ? :(

Le menu déroulant c'est désormais la cellule A4 ?
Quel est le nom de cette cellule ?

Comment s'appelle le tableau avec les transporteurs ?

NB : pour les transporteurs dont le nom est 001 il faudra enregistrer dans le tableau les données au format texte

Oui tout à fait ! La cellule n'a pas de nom en temps normal, seulement la zone d'impression

A la base, le menu de validation de données vient se sourcer dans 'TRANSPORTEURS'

Ok super je ne savais pas, merci !

Bonsoir
voila le fichier tel que je le ferai
après je peux guere faire plus sur des maquettes comme ca

j'ai mis des indications dans le code pour aider à mieux le lire
et attention j'ai enlevé le .value derrière un cell car sinon mon 001 était tout de meme convertit en 1

Effectivement il semble qu'on touche le bon bout.

A l'ouverture, le PDF a en fait tout imprimé mais peut-être par le biais de Print.area on peut définir la zone en question ?

EDIT : J'ai réussi à sélectionner en effet seulement une zone seulement il y a tout le temps une 2ème page qui est la liste de transporteurs.

Qu'est ce qui cloche ?

Sub pdf_feuille()

Sheets("bon").Select 'mettre le nom de la feuille qu'on imprime
ActiveSheet.PageSetup.PrintArea = "$B$1:$U$33"

Dim Mon_Fournisseur As String
Mon_Fournisseur = Range("ma_liste").Value 'mettre le nom de la cellule où il y a la liste à la place de ma_liste

Dim chemin, nom_du_fichier_pdf As String 'j'ai raccourci le nom du pdf sur le bureau au nom du transporteur
chemin = CreateObject("wscript.shell").specialfolders("desktop")
nom_du_fichier_pdf = chemin & "\" & Mon_Fournisseur & ".pdf"

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom_du_fichier_pdf, quality:=xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, openafterpublish:=False

End Sub


On touche le bon bout, c'est sur !!! :D Merci beaucoup.


EDIT 2 : Ok j'ai trouvé, l'enregistrement a très bien marché la première fois mais pas la deuxième.. qu'est ce qui ne va pas dans ce que j'ai écrit ?

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C & " " & [G13] & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

Merci d'avance.


EDIT 3 : Il manquait un Underscore... j'ai pu adapter cette macro à mon fichier et cela marche à merveille.

Merci beaucoup beaucoup pour cette aide précieuse qui va me faire gagner à mon équipe et moi un temps considérable!!!