TCD et Module VBA pour tous les fichiers

[adebrux]

Salut à Tous,

Je me permets de vous contacter parce que j'ai un petit probème avec VBA et les TCD. Je travaille actuellement dans une petite entreprise qui reçoit ses commandes sous excel. Afin de les organiser, je leur fait des TCD qui donne une meilleure visibilité.

Seulement, ma mission étant bientôt terminée, je suis en train de développer un petit module qui s'intègre à Excel et qui permet de générer les TCD tout seul.
Ca marche très bien avec un fichier donné, mais comme chaque commande à un nom différent, ben ça marche pas.
La macro automatique donne comme code:

TableDestination:= ''[essai 1.XLS]Sheet3'!R1C1'

Ma 1ere question est donc de savoir comment récupérer le nom du fichier que j'utilise.

D'autre part, j'aimerai créer ce TDP dans une nouvelle feuille. Quel serait alors l'index de la nouvelle feuille? serait-ce l'index n+1?
Comment l'utiliser dans mon code ?
sheets(n+1) ou quelque chose comme ça ?

D'avance merci de votre aide.

Arnaud

 

[Pierrot93]

Bonjour Arnaud,

Pour ta 1ère question, je pense que si ton fichier est ouvert et actif tu peux lui attribuer une variable du style :

NouvClas = ActiveWorkbook.Name

et utiliser nouveau classeur dans ton code quand tu y fait référence.

Pour ta 2ème question tu dois pouvoir utiliser la même solution et si tu as vraiment besoin de l'index le code ci dessous

monindex = ActiveSheet.Index

J'espère que cela pourra t aider

Bonne journée

 

[adebrux]

Merci Pierrot,

J'ai suivi tes conseil et installé ma macro dans une petite icone dans excel et ca marche nickel !