Discussion :

[cco86260]

Bonjour à tous,

Le titre n'est pas très claire, mais je vais tacher de l'être, voilà, j'ai développé (avec la grande aide de plusieurs forums), dans un fichier Excel (RapHebdo2014), l'automatisation à la rédaction de rapport hebdomadaire individuel (pour mon taf), il peut donc comporter beaucoup de feuilles, ces feuilles porte le nom des intervenants), j'ai également été jusqu'à personnalisé le Ruban office, grâce à ce site, il comporte donc une seule barre d'outils uniquement dédier pour ce fichier Excel.

Ce que je souhaiterais faire maintenant, c'est avoir la possibilité de faire un bilan d'heure par semaine. Je voudrais procéder comme suis :

Avoir un bouton sur le ruban nommé "Bilan hebdomadaire" (ça je sais le faire), puis, lors du clique sur ce bouton, l'action suivante se passe :
ouvre un fichier Excel , ce sera toujours le même fichier qui sera utilisé, ce fichier s'appelle "BilanHebdo", et dans se fichier serait importé le total de la semaine par intervenants conc, un tableau avec :

1 colonne Intervenant qui représentera les feuilles du classeur RapHebdo2014 (déjà ouvert naturellement) puis une colonne avec l'entête de la semaine du rapport (stocké dans une cellule de RapHebdo2014) avec le total d'heure par intervenant dans la semaine).

Difficile de faire plus, si vous auriez des pistes a me proposer, se serait vraiment cool , je peux joindre un fichier juste pour présentation pas pour une aide quelconque, ça permettrait de situer ce que je souhaite..

En tout cas merci à tous d'avoir pris le temps de lire...

Une bonne soirée à tous

Chris

[cafeine]

Hello,

un point de départ pour te lancer : ta colonne intervenant pourrait être remplie par une boucle sur ton fichier RapHebdo2014

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim sh as Worksheet
For Each sh in Thisworkbook.sheets
     '-- ton code
Next sh
set sh = Nothing

Bon courage,

[cco86260]

bonjour caféine,

Je viens de voir ta réponse, (quelque soucis d'internet récemment), donc en faite il faudrait que je partes du bouton qui me servira à exporter le rapport dans le style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub newbilan(control As IRibbonControl)
dim sh as Worksheet
For Each sh in Thisworkbook.sheets
     '-- mon code, 
Next sh
set sh = Nothing

Je crois bien que ça va être compliqué mon histoire...

En tout cas merci pour ta réponse, je vais méditer la dessus... une bonne journée à toi
Chris