Probleme sur fichier impression groupée

bonjour le forum

suite a une macro de Paritec que je remerci encore mon impression groupée ne fonctionne plus.

j'ai un fichier qui me permet de suivre la video protection qui fontionnais superbement jusqu'a present et a mon retour de congé probleme

a l'ouverture mon userform s'ouvre je clique sur

2

puis je selectionne Tous et Impression Groupée

3

Mais la au lieu d'avoir une impression de chaque fiche en PDF j'ai une fiche vide les données ne sont plus importer sur la feuille.

et j'ai une seul fiche en PDF vide

je ne trouve pas mon Erreur

Voici mon Fichier test

8reinruof77.xlsm (158.05 Ko)

Merci de votre aide

Bonjour reinruof77

Pour moi, c'est assez normal

1) tu écrase ton fichier PDF à chaque fois

Sub imprim()
    Dim sh As Worksheet, adr$, nom$
    adr = ThisWorkbook.Path & "\"
    Set sh = Feuil4
    nom = adr & sh.Range("C2") & (" CTS du site ") & sh.Range("G3") '& ".pdf"
    Feuil4.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     nom & ".pdf", Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=0
End Sub

"nom" ne change pas

Edit : c'est dû au problème de ligne

A changer

li = ListView1.ListItems.Item(i).ListSubItems(31)

2) Dans ton code, lors de l'exécution, ta variable "li" contient 95 !?

A+

Bonjour BrunoM45

A force de chercher je ne trouvais pas .

Merci beaucoup de ton aide .

Rechercher des sujets similaires à "probleme fichier impression groupee"