XL 2013 Automatisme pour remplir des TABs

Dranreb

XLDnaute Barbatruc

• 22 Février 2019

• #106

Et moi, oublié de changer WshCbl par WshExclPDF (nom, si vous êtes d'accord, de l'objet Worksheet représentant la feuille commune de préparation des PDF)

 

Vote positif 0 Vote négatif

S

Sigmund173

XLDnaute Occasionnel

• 22 Février 2019

• #107

si je suis d'accord, euh je vous fait entièrement confiance donc oui bien sur aucun souci 🙂

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Février 2019

• #108

Non c'est moi qui vous fait confiance pour définir cet objet Worksheet muni de ce ListObject.

 

Vote positif 0 Vote négatif

S

Sigmund173

XLDnaute Occasionnel

• 22 Février 2019

• #109

hum là je suis perdu, vous me parler du "nom" à changer de l'objet Worksheet représentant la feuille commune de préparation des PDF

 

Vote positif 0 Vote négatif

S

Sigmund173

XLDnaute Occasionnel

• 22 Février 2019

• #110

j'ai copié le code ci dessus

 

Pièces jointes

• GigognesSigmund173.xlsm

  465.3 KB · Affichages: 4

Vote positif 0 Vote négatif

S

Sigmund173

XLDnaute Occasionnel

• 22 Février 2019

• #111

je crois comprendre, j'essaie un truc et je renvoie le fichier

 

Vote positif 0 Vote négatif

S

Sigmund173

XLDnaute Occasionnel

• 22 Février 2019

• #112

:-D je suis pas sur mais j'essaie

 

Pièces jointes

• GigognesSigmund173.xlsm

  469.7 KB · Affichages: 3

Vote positif 0 Vote négatif

S

Sigmund173

XLDnaute Occasionnel

• 22 Février 2019

• #113

Encore pire après la mise en forme ...

 

Pièces jointes

• GigognesSigmund173.xlsm

  470.2 KB · Affichages: 4

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Février 2019

• #114

Cocher encore Impression en noir et blanc et ça ira.
Mais copiez le tableau feuille "HR Exclusion" en feuille "PDF" puisque c'est avec son WshExclPDF que la macro travaille.
Et ajoutez en dessous vos images d'encarts et définissez les parties fixes de la mise en page.

 

Vote positif 0 Vote négatif

S

Sigmund173

XLDnaute Occasionnel

• 22 Février 2019

• #115

Oh bah ça a l'air de fonctionner, par contre j'ai mis 3 entrées pour le header de droite comment faire pour les mettre une sous l'autre ?

 

Pièces jointes

• GigognesSigmund173.xlsm

  475.3 KB · Affichages: 7

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Février 2019

• #116

Une seule instruction

VB:

      .RightHeader = WshSumm.[D2].Value & vbLf & WshSumm.[D3].Value & vbLf & WshSumm.[D4].Value

Reste à mettre les structures d'encarts en dessous du tableau pour les visas (sinon à quoi ça sert que la macro se décarcasse à jouter ou enlever le nombre de ligne manquant ou en trop pour qu'ils restent toujours sous le tableau…), définir la zone d'impression qui les englobe et les lignes de la 1 jusqu'à celle des entêtes du tableau (ah, oui, il n'y en a pas, ou pas encore, devant le tableau…) à répéter sur chaque page.

 

Dernière édition: 22 Février 2019

Vote positif 0 Vote négatif

S

Sigmund173

XLDnaute Occasionnel

• 25 Février 2019

• #117

Bonjour Dranreb,

tout ä l'air de fonctionner c'est chouette, je me demande si on peut inclure le cadre de signature directement mais à mon avis ça ne peut se faire que dans adobe.
Les boutons "Generate pdf" sont obligés de se trouver dans la TAB du dossier concerné ou on peut tous les centraliser dans la summary page ?

J'ai aussi essayé de mettre le logo de l'entreprise dans le LfetHeader en utilisant la fonction LeftHeaderPicture mais ça ne prend pas, il y aurait une autre solution de mettre le fichier sur le disque mais vu que l'image se trouve dans la summary page, je voudrais la réutilisé avec une ligne comme pour le LeftHeader = WshSumm. le logo.png

Pareil pour cacher les TABs, j'ai essayé de modifier la ligne afin qu'on puisse voir la summary page, vu que c'est d'ici que je commande le tout mais elle bug, j'ai essayé comme ci dessous et même tout seul WshSumm mais tjs une erreur

Wsh.Visible = IIf(Left$(Wsh.CodeName, 6) = "WshDsp" & "WshSumm", xlSheetVisible, xlSheetVeryHidden)

ça c'est l'original
Wsh.Visible = IIf(Left$(Wsh.CodeName, 6) = "WshDsp", xlSheetVisible, xlSheetVeryHidden)

 

Dernière édition: 25 Février 2019

Vote positif 0 Vote négatif

S

Sigmund173

XLDnaute Occasionnel

• 25 Février 2019

• #118

J'ai crée un bouton pour tout démasqué et j'ai essayé de le bloquer par un mot de passe mais pareil ça bloque ... pfff

Sub DémasquerTout()
Dim Wsh As Worksheet
For Each Wsh In ThisWorkbook.Worksheets
Wsh.Visible = xlSheetVisible
Next Wsh

strPassword = "Test"

For lTries = 1 To 3
strPassTry = InputBox("Enter Password please", "RUN MACRO")
If strPassTry = vbNullString Then
Exit Sub
End If
bSuccess = strPassword = strPassTry
If bSuccess Then Exit For
MsgBox "Password incorrect"
Next lTries

If Not bSuccess Then
MsgBox "Wrong password supplied!"
Exit Sub
End If

End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Février 2019

• #119

Bonjour.
Mais si, essayez d'inclure le cadre de signature derrière le tableau dans la zone d'impression définie manuellement. Toute la macro a été repensée exprès pour ça !
On ne peut pas exécuter les TransfertY, telle qu'elle est écrite, depuis une autre feuille parce ce qu'elle traite toujours la feuille active. Vous pourriez juste écrire d'autres macros qui activent une feuille puis lancent la TransfertY.
Ne changez pas la boucle mais mettez derrière WshSumm.Visible = xlSheetVisible.
Si vous avez mis des protections, il faut évidemment les enlever dans les macros pour qu'elles ne gènent pas leur exécution ou les y mettre avec argument UserInterfaceOnly:=True

 

Vote positif 0 Vote négatif

S

Sigmund173

XLDnaute Occasionnel

• 25 Février 2019

• #120

Avec le fichier et les modifs que j'ai fait suivant vos commentaires

 

Pièces jointes

• GigognesSigmund173.xlsm

  499.3 KB · Affichages: 5

Vote positif 0 Vote négatif