TCD VBA macro Erreur d'exécution 1004

Question

Bonjour à toute la communauté, j'ai un souci concernant une macro pour du taff ...Je m'explique :

J'ai deux classeurs :

Un reporting absentéisme centrale ("Reporting Absentéisme 2020 3"), avec 4 TCD étalés sur 3 principaux onglets ( dont un TCD nommé "Tableau croisé Dynamique4" dans un onglet "Taux Absentéisme" qui m'intéresse).

un reporting modèle ("Reporting Absentéisme 2020 modèle Olivier") avec un onglet "Taux Absentéisme".

Manuellement, je dois filtrer à partir de l'onglet "Taux Absentéisme"' du reporting central et copier les valeurs dans l'onglet "Taux Absentéisme" du reporting modèle

En conséquence, dans "Reporting Absentéisme 2020 3" ==> onglet "taux 'absentéisme" ==> je filtre par "pole" dans Tableau croisé Dynamique4 et je copie les valeurs d'ici:

et je les colle dans le classeur "Reporting Absentéisme 2020 modèle Olivier " ==> onglet "Taux d'absentéisme"

J'ai tenté de faire taper un code à l'aide de ce que j'ai pu trouvé mais la je botte en touche :

Le but de ce code est de filtrer par par le pole Auto Suresnes automatiquement puis d'envoyer les valeurs trouvées sur le reporting modèle à l'onglet indiqué.

In fine, le but ce serait de le faire pour chaque pole.

J'avais déja utilisé ce code sur des doc perso et pourtatn ca avait bien marché.(sauf que c'était entre deux worksheets et non pas deux workbooks)

Bien évidemment, puisqu'il y a des données personnelles de salariés je ne peux vous envoyer le reporting central.

Pour info, quand je debug pas à pas ca me surligne en jaune directement "sub macro_test()"

Toutefois, si vous y tenez, je pourrais changer les noms et les valeurs afin que vous puissiez mieux comprendre le souci.

Merci par avance à la communauté !!!

3GB · Answer

Si vous espérez obtenir une aide optimale, il vaudrait mieux joindre vos fichiers, sachant qu'on ne sait pas sur quelle ligne se trouve l'erreur. Sinon, Il faut premièrement faire bien attention à tous les noms (majuscules, minuscules, caractères accentués - à éviter tant que possible -, espaces indésirables, ...). Par exemple, je vois une feuille Taux Absentéisme et dans le code Worksheets("Taux absentéisme"), je vois un champ "Pôle " (avec un vilain espace et un circonflexe) que je retrouve plus loin sans espace de fin, plusieurs autres éléments avec des espaces, manifestement de saisie malencontreuse... Et les TCD ne sont pas renommés. Ensuite, il y a un Activesheet qui peut causer problème. Il faut le remplacer par Sheets("nomdelafeuille") (a priori "Taux Absentéisme"). Enfin, je crois qu'il faut s'assurer que chaque classeur impliqué soit ouvert au moment de l'exécution. Cdlt...

Jean-Eric · Answer

@kharlos78, Merci d'indiquer ta version Excel dans ton profil. Cdlt...

3GB · Answer

Pour poster du code, vous pouvez utiliser les balises &lt;/&gt; (sur le ruban en haut lorsque vous écrivez un commentaire). Sinon, voici une idée en bouclant sur les éléments même si je ne sais pas vraiment ce que vous cherchez et me base sur votre premier post. Sub Macro_Test_TCD_4() Dim wbabs As Workbook, wboliv As Workbook Dim wsabs As Worksheet, wsoliv As Worksheet Dim pi as PivotItem Application.ScreenUpdating = False On Error Resume Next Workbooks.Open "C:\Users\o.bariac\Documents\documents persos\" & "Reporting Absentéisme 2020 3" Set wbabs = Workbooks("Reporting Absentéisme 2020 3") Set wboliv = Workbooks("Reporting Absentéisme 2020 modèle olivier") 'thisworkbook Set wsabs = wbabs.Worksheets("Taux Absentéisme") Set wsoliv = wboliv.Worksheets("Taux Absentéisme") 'wbabs.Activate with wsabs with .PivotTables("Tableau croisé dynamique4").PivotFields("Pôle") &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.CurrentPage = "(All)" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for each pi in .pivotitems &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if pi.name = "Pôle AUTO Suresnes" then '&lt;&lt;&lt; si c'est ce qui est voulu, vérifier nom &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pi.visible = true &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pi.visible = false &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;next pi &nbsp;&nbsp;&nbsp;&nbsp;End With &nbsp;&nbsp;&nbsp;&nbsp;with .PivotTables("Tableau croisé dynamique1").PivotFields("Pôle") &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.CurrentPage = "(All)" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for each pi in .pivotitems if pi.name = "Pôle AUTO Suresnes" then '&lt;&lt;&lt; si c'est ce qui est voulu, vérifier nom pi.visible = true else pi.visible = false end if next pi &nbsp;&nbsp;&nbsp;&nbsp;End With &nbsp;&nbsp;&nbsp;&nbsp;wsoliv.Range("A4:G42").Value = .Range("A10:G48").Value &nbsp;&nbsp;&nbsp;&nbsp;wsoliv.Range("I4:M42").Value = .Range("N10:R48").Value &nbsp;&nbsp;&nbsp;&nbsp;wsoliv.Range("O4:S42").Value = .Range("U10:Y48").Value &nbsp;&nbsp;&nbsp;&nbsp;wsoliv.Range("U4:Y42").Value = .Range("AA10:AE48").Value end with End Sub Cdlt...

3GB · Answer

La ligne Application.screenupdating = false désactive la mise à jour de l'affichage à l'écran. Ça permet notamment un exécution plus rapide du code. Il faut en fin de macro remettre cette propriété sur true : Application.screenupdating = true (ce qui n'est pas le cas ici)... la ligne on error resume next permet de prolonger l'exécution du code en cas d'erreur. Ici, elle sert surtout à passer l'éventualité où le chemin du fichier ne serait pas bon (ligne juste après de l'ouverture du classeur olivier) ou, plus particulièrement, l'éventualité où le fichier serait déjà ouvert. Selon le besoin, il faudra éventuellement trouver une solution plus adaptée. Pour désactiver les alertes, il faudrait rajouter les lignes Application.displayalerts = false puis une fois la partie sujette aux alertes passée remettre la propriété sur true Application.displayalerts = true. Bon courage pour votre apprentissage en tout cas ! Cdlt...