Faire défiler un à un les éléments d'un menu déroulant

Bonjour tout le monde,

Je suis sur une feuille excel avec un menu deroulant. Dans ce menu il y a differents fournisseurs. Si on clique sur un fournisseur, il apparait une feuille fournisseur. J'aimerai enregistrer automatiquement cette feuille pour chaque fournisseur. Savez vous comment ouvrir le menu deroulant, cliquer sur le fournisseur, fermez le menu, ouvrir de nouveau, selectionner le suivant etc... ?

Merci d'avance !

Bonjour

Un essai à tester. Te convient-il ?

Les feuilles fournisseurs sont entregistées dans le même dossier que ce fichier.

Bye !

Ce n'est pas exactement ce que je cherche. En tout cas merci pour ta réactivité ! Regarde ce que j'ai essayé :

Sub ScrollDropDownAndSendMail()

'Définir la plage de cellules sur la colonne A
Dim lastRow As Long
Dim nonEmptyCellCount As Long
Dim rangeToCount As Range
Dim CellMenu As String
Dim RowCell As Range
Dim NumRow As Long

lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Set rangeToCount = Sheets("TABLA VALORES").Range("B9:B" & lastRow)

'Compter le nombre de cellules non vides dans la plage de cellules

nonEmptyCellCount = Application.WorksheetFunction.CountA(rangeToCount)

For i = 1 To nonEmptyCellCount

'Sélectionner la cellule contenant le menu déroulant
Sheets("QUOTATION RATING").Range("F6").Select

SendKeys "%{DOWN}"

SendKeys "{DOWN}"

SendKeys "{ENTER}"

'Enregistrer la feuille en format PDF
Sheets("QUOTATION RATING").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\A2H97245\Desktop\Paul\EVALUACION PROVEEDORES 2022\PDF TEST\" & CellMenu & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

Next i

End Sub

Mais ça ne marche pas au niveau de la section 'Sélectionner la cellule contenant le menu déroulant

Tu devrais joindre ton fichier...

Bye !

Bonjour, je ne peux pas car il y a des infos confidentielles mais l'entiéreté du code n'est pas utile.

Le problème vient de la

'Sélectionner la cellule contenant le menu déroulant

Sheets("QUOTATION RATING").Range("F6").Select

SendKeys "%{DOWN}"

SendKeys "{DOWN}"

SendKeys "{ENTER}"

Pour moi, ce que je comprends, c est :

je selectionne la cellule dans laquelle il y a le menu déroulant (F6 de la page Quotation rating)

j'ouvre le menu déroulant (SendKeys "%{DOWN}")

Je descends d'un fournisseur avec la flèche du bas (SendKeys "{DOWN}" )

je selectionne le fournisseur d'en dessous (SendKeys "{ENTER}")

Mais cela ne fait qu'ouvrir le menu déroulant sans passer au fournisseur suivant.

Bonjour

je ne peux pas car il y a des infos confidentielles

Alors supprime efface ou modifie tout ce qui est confidentiel.

il m''est en effet difficile ou du moins désagréable de ne pas m"appuyer sur un fichier concret.

Bye !

Le voila