Discussion :

[RP766]

Bonjour,

J'ai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Sub Bouton3_Cliquer()
 
Dim sNomFichierPDF As String
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Dim i As Long
 
Set xRg = Worksheets("TEST").Range("D1")
Set xRgVList = Evaluate(xRg.Validation.Formula1)
 
 
For Each xCell In xRgVList
    xRg = xCell.Value
    i = i + 1
    sNomFichierPDF = ThisWorkbook.Path & "\" & Worksheets("TEST").Range("D1") & "_" & i & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=sNomFichierPDF, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False
    Next xCell
End Sub

Ce que je souhaite, c'est qu'après avoir cliqué sur le bouton, le programme me génère un pdf par nom présent dans la liste déroulante.
Problème : quand je clique sur le bouton, j'ai un message d'erreur 424 :"Objet requis" concernant la ligne 11. J'ai essayé de mettre Range à la place de Evaluate, mais j'obtiens la même chose. Quelqu'un a-t-il une idée d'où peut venir le soucis ?

Merci par avance

[Jean-Philippe André]

Salut,
pourrais-tu nous dire la valeur de ton xRg.Validation.Formula1 ?

Ca pourrait déjà etre une premiere source d'erreur.

[RP766]

Le xRg.validation.Formula1 désigne la liste déroulante créée par validation de données dans la page "TEST" en "D1". La liste contient des noms comme par exemple Mr Dupont, Mme Untel... En fonction du nom sélectionné, les tableaux et graphiques de la page se modifient et affichent les données associées.

[Jean-Philippe André]

Evaluate sert à effectuer un calcul, donc je comprend mal le Set d'un Range.


Peux tu nous donner un exemple du résultat de ton Evaluate stp ?