Probleme sur fichier impression groupée Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
reinruof77
Membre fidèle
Membre fidèle
Messages : 393
Inscrit le : 10 mars 2014
Version d'Excel : 2010

Message par reinruof77 » 21 mars 2019, 11:06

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 :cry:

a l'ouverture mon userform s'ouvre je clique sur
2.JPG
2.JPG (9.56 Kio) Vu 71 fois
puis je selectionne Tous et Impression Groupée
3.JPG
3.JPG (11.74 Kio) Vu 71 fois
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 :oops:

Voici mon Fichier test
reinruof77.xlsm
(158.05 Kio) Téléchargé 2 fois
Merci de votre aide
Je ne suis pas très douer mais j’écoute quand on m'explique ;)
Avatar du membre
BrunoM45
Membre impliqué
Membre impliqué
Messages : 2'892
Appréciations reçues : 87
Inscrit le : 29 octobre 2011
Version d'Excel : 2016 FR, O365 FR
Contact :

Message par BrunoM45 » 21 mars 2019, 12:51

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+
[F1] est une touche qui appelle l'aide : Essayez, c'est assez performant et on trouve plein de choses

Il n'y a ni bon ni mauvais usage de la liberté d'expression, il n'en existe qu'un usage insuffisant.
Avatar du membre
reinruof77
Membre fidèle
Membre fidèle
Messages : 393
Inscrit le : 10 mars 2014
Version d'Excel : 2010

Message par reinruof77 » 21 mars 2019, 16:39

Bonjour BrunoM45

A force de chercher je ne trouvais pas .

Merci beaucoup de ton aide . :mrgreen:

:btres:
Je ne suis pas très douer mais j’écoute quand on m'explique ;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message