problème macro woorksheet_calculate et impress

[milie]

Bonjour,
J'ai un fichier avec 2 macros :
une de type woorksheet_Calculate qui affiche une image et les infos correspondantes selon la valeur choisie dans une liste déroulante
une de type impress qui imprime en pdf toutes les fiches pour toutes les valeurs de la liste déroulante

Mon problème est le suivant : lorsque je lance l'impression, les infos sont bien modifiées mais pas l'image.
Cf. fichier joint
Merci de votre aide

 

[mapomme]

Re : problème macro woorksheet_calculate et impress

Bonjour milie,

Peut-être en remplaçant la ligne:

For Each i In Worksheets("BD").Range("A3:A50" & [A65000].End(xlUp).Row)

par la ligne:

For Each i In Worksheets("BD").Range("A3:A" & [A65000].End(xlUp).Row)

(effacement de 50)

 

[milie]

Re : problème macro woorksheet_calculate et impress

Même en effaçant le 50, l'image1 est affichée sur chaque pdf alors qu'il devrait y avoir un changement d'image

 

[mapomme]

Re : problème macro woorksheet_calculate et impress

(re)Bonjour milie,

Il subsiste une anomalie qui chez moi est dûe au fait que la macro Impress sauvegarde le fichier .PDF avant que la nouvelle image soit chargée. En ajoutant une tempo (à régler) cela fonctionne.

Public Sub Impress()
Dim i, j, Fich
 
For Each i In Worksheets("BD").Range("A3:A" & [A65000].End(xlUp).Row)
    If i = "" Then Exit For
    [K4] = i
    Fich = Split(ActiveWorkbook.Name, ".")
    Fich = ActiveWorkbook.Path & "\" & Fich(0) & "_" & i
    'TEMPO
    For j = 1 To 10000: DoEvents: Next j
    ActiveSheet.ExportAsFixedFormat _
       Type:=xlTypePDF, _
       Filename:=Fich, _
       Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, _
       IgnorePrintAreas:=False, _
       OpenAfterPublish:=False
 Next i
End Sub

 

[milie]

Re : problème macro woorksheet_calculate et impress

ça fonctionne ! Super !
Merci mapomme !!