XL 2013 Automatisme pour remplir des TABs

[Sigmund173]

Bonjour à tous,

j'aurais besoin d'un petit coup de pouce sur mon fichier excel.
Ce que je voudrais faire c'est la démarche suivante:
Je dois créer une liste d'exclusion afin de ne pas couper les accès à certains utilisateurs.
Pour ce faire j'ai une liste de dossier partagé (G Drive) et une liste des personnes qui seront transféré dans une autre institution (Transfer list).

Maintenant à partir de ces deux listes je souhaite que les responsables des dossiers (Folder Owner) soit identifié et mis automatiquement dans le TAB Folder Owner.
Si le dossier n'est pas listé, je souhaite qu'il aille dans la bonne section, Ressource Humain dans le TAB HR, Finance dans Finance et tout le reste dans Other.
J'ai mis dans le fichier le résultat souhaité, comment faire pour que ce soit automatique.
D'avance je vous remercie de votre aide
Cordialement

Olivier.

 

[Dranreb]

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)

 

[Sigmund173]

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

 

[Dranreb]

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

 

[Sigmund173]

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

 

[Sigmund173]

j'ai copié le code ci dessus

 

[Sigmund173]

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

 

[Sigmund173]

:-D je suis pas sur mais j'essaie

 

[Sigmund173]

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

 

[Dranreb]

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.

 

[Sigmund173]

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 ?

 

[Dranreb]

Une seule instruction

      .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.

 

[Sigmund173]

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)

 

[Sigmund173]

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

 

[Dranreb]

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

 

[Sigmund173]

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