Excel - Classeur étant le filtre d'un autre Fermé

Question

Bonjour, 

J'ai une grande base de données Excel contenant entre autres une colonne G reprenant des noms de référents. Je voulais savoir s'il était possible de créer un classeur par référent qui reprendrait automatiquement les lignes où le nom du référent apparaît en colonne G et qui se modifierait automatiquement chaque fois que des modifications sont apportées à la base de données initiale.

Merci d'avance

Le Pingou · Answer

Bonjour,
Oui c'est tout à fait possible via fonction Excel ou procédure VBA.
Question ; est-ce obligatoire d'avoir un classeur par référent ou est-il possible sur le même classeur par feuille ?
Pour en dire plus un exemple serait souhaitable.

flo8 · Answer

Quand tu veux un exemple, tu veux un fichier Excel joint ?

Pour les feuilles référents, il faudrait en tout cas que ce soit dans un classeur autre que celui de la base de données, mais on pourrait avoir un classeur pour tous les référents avec une feuille par référent.

Le Pingou · Answer

Bonjour,
Je ne vous impose rien, par contre, s'il vous est possible de mettre un exemple sur un fichier Excel avec une petite explication directement sur le fichier se sera plus parlant.
Fichier sur https://www.cjoint.com/  et poster le lien.

flo8 · Answer

Voici le fichier joint :
http://cjoint.com/?ALgqKJSP1xb

J'espère que mes explications sont claires (pas gagné).

Le Pingou · Answer

Bonjour,
Merci pour l'information, c'est parfait.
Demain vous aurez une proposition.
Juste une question, quel est le nombre approximatif des référents ?

flo8 · Answer

Environ 10.

Le Pingou · Answer

Bonjour,
Merci pour l'information.
Voici ma proposition : https://www.cjoint.com/?3LhkYHEwBid
Note : les 2 classeurs doivent se trouver dans le même répertoire. Le nom du classeur des référents doit être inscrit dans la plage réservé du classeur de données.
Vous devez lancer la mise à jour selon vos besoins par clic sur le bouton de commande et la procédure fera son travail.
Si vous avez un nouveau référent, il suffit de copier une des feuilles présentent dans le classeur y relatif et de prendre soin de renommer la feuille avec le nom du référent (doit être identique à celui du classeur de base). Pas oublier d'enregistrer... !

Caveman · Answer

Bonjour,

J'essaie de l'adapter à mon fichier, mais ça bug encore. Par contre, comme le fichier "Référent" ne reprend pas automatiquement les informations de la base, mais qu'il est modifié par un bouton, il faudrait plutôt y avoir un bouton sur chaque feuille de référent.

En effet, le but de crée des pages liés aux référents est que chaque référent aille voir sa feuille (soit dans un classeur commun, soit dans des classeurs séparés) sans passer par la base de données, qui est gérée par une autre personne.

Donc, il faudrait que chaque référent puisse voir sur sa feuille à lui la situation au moment où il va dessus et pas au moment où le gestionnaire de la base de données a remis à jour pour la dernière fois.

Le Pingou · Answer

Bonjour flo8,
Merci pour l'information.
Je vous conseille de ne pas inverser les rôles.
Toutefois si vous pensez que le gestionnaire peux oublier de mettre à jour son travail alors il est possible de le faire via la procédure.

flo8 · Answer

? Pas sûr d'avoir compris.

Le Pingou · Answer

Bonjour flo8, 
Si vous dites ceci : Les référents ne sont pas censés toucher à cette base de données Donc le référent reçoit un fichier mis à jour par le gestionnaire. 
Note, bien entendu que c'est à vous de décider quelle méthode vous voulez adopter.  

Salutations. 
Le Pingou

Le Pingou · Answer

Bonjour flo8,
J'ai juste une question ; avez-vous déjà essayé le fichier pour voir ce qui se passe ? 
Remarque : il est possible de forcer la mise à jour dès la fermeture du fichier de base, ce qui rendra inutile toute manipulation de la part des référents.
Dans ce cas vous avez tout en main, vous devez mettre la même procédure dans le classeur référent en mentionnant le nom du classeur de base.

flo8 · Answer

De retour au turbin...

Alors, j'ai essayé l'exemple, mais je n'ai encore fini. Il bogur au niveau de l'expression suivante :
Range("MesData").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("AA1:AA2"), _
    CopyToRange:=wbcible.Sheets(ref.Name).Range("A2:C2"), Unique:=False

Je pense que je dois changer quelque chose, mais quoi ?

Le Pingou · Answer

Bonjour,
Cela m'étonne que mon exemple ne fonctionne pas correctement.
Qu'elle est le message d'erreur ?
Vous pouvez réaliser une copie d'écran lors du message d'erreur et ensuite une deuxième sur le débogage du code. Mettre les 2 copies d'écran sur un fichier Word et le placer  sur https://www.cjoint.com/ et poster le lien !


Salutations. 
Le Pingou

flo8 · Answer

Oups, mon message est incomplet. J'ai oublié une phrase entre la première et la deuxième.

L'exemple marche très bien. J'essaie d'adapter dans mon fichier et ça bug. Il y a des éléments que je dois changer, mais j'ai de la peine à voir lesquels. Et en plus, ce matin. ça bug à un autre endroit où ça passait vendredi.

Voici les deux captures d'écran du premier bug actuel :
http://cjoint.com/?ALmiD31j1EG

flo8 · Answer

Et allez, je refais un essai et c'est un autre bug qui apparaît. Je te mets aussi les captures d'écran :
http://cjoint.com/?ALmiWe2XjtK

Le Pingou · Answer

Bonjour,
Alors vous m'expliquez ou c'est ?
Et ceci vous en faites quoi :
Alors vous devez définir un nom pour votre plage de données, dans la boite de dialogue [Nouveau nom], sous [NOM :] indiqué par exemple [MesData] et sous [Fait référence à :] dans votre cas la formule :
=DECALER('Participants'!$A$1:$H$1;;;NBVAL('Participants'!$A:$A))
Note : adapté $A$1:$H$1 selon les colonnes de votre choix.

flo8 · Answer

D'accord. Donc, ce n'était pas dans la macro qu'il fallait modifier ça.

Donc, j'ai crée le nom de la plage avec la formule précédente adaptée au nombre de colonnes et... ça bugue toujours. Avec le même message qu'auparavant.

Donc, en dehors des deux problèmes possibles précédents, il doit y en avoir un troisième. Ou alors j'ai mal adapté les formules

flo8 · Answer

Les fichiers que tu me renvoient fonctionnent très bien. Par contre, quand je les copie dans le dossier où ils sont censés être, ça re-bugue. D'où ma question : est-ce que la méthode utilisée peut avoir des problèmes si les fichiers sont sur un serveur et non sur un disque local ?

Le Pingou · Answer

Bonjour,
Eh bien en principe cela devrait marcher sans autre, peut être un caprice jurassien... !
Cependant pouvez-vous me donner la valeur que prend l'expression [ActiveWorkbook.Path] de la procédure ?

flo8 · Answer

J'ai dit que j'étais jurassien ?

Comment puis-je déterminer la valeur de l'expression en question ?

Au passge : le bug annoncé est qu'il ne trouve pas le fichier AC.xlsm. Le problème viendrait de Workbooks.Open.

Merci

Le Pingou · Answer

Bonjour,
Eh bien le message d'erreur se manifeste sur l'instruction [Workbooks.Open (nomclaref)] mais l'erreur est certainement ailleurs, probablement dans le [Path]. 

Comment puis-je déterminer la valeur de l'expression en question ?
Vous réalisez un débogage pas à pas détaillé sur la procédure [Sub FiltreParticipants()] et clic la touche [F8] jusqu'à la ligne d'instruction [ChDir ActiveWorkbook.Path] et en sélectionnant [ActiveWorkbook.Path] vous aurez le renseignement.

J'ai dit que j'étais jurassien ?
Non bien sûr, il s'agit d'une supposition, au fait de quel région êtes-vous ?

flo8 · Answer

ActiveWorkbook.Path = "O:\Florian"

Du coup, je comprends le problème. Le fichier est sur le serveur. Selon le compte utilisé, le dossier n'est pas toujours sur O:, le chemin change.

Et, oui, je suis jurassien...

Le Pingou · Answer

Bonjour, 
Merci pour l'information. 
Effectivement le chemin n'est pas correct, la valeur correspond à celui de votre machine. 
Selon mes recherches, le serveur n'est pas ma tasse de thé, il faut avoir le libellé complet du chemin sur le répertoire du serveur.  
La ligne d'instruction doit ressembler à celle-ci (nom fictif ...) : 
Workbooks.Open ("\SRV-doc\Q-Titres\Documents Communs\" & nomclaref)La ligne ChDir ActiveWorkbook.Path doit être supprimée. 

Salutations. 
Le Pingou

flo8 · Answer

OK. Je vais essayer. Il faut que je demande le chemin du serveur pour y arriver.