Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

TCD et Module VBA pour tous les fichiers

adebrux

XLDnaute Occasionnel
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:
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
 
P

Pierrot93

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…