Discussion :

[juju1988]

Bonjour,

Pour faire court mes utilisateurs utilisent mon fichier en le copiant, or quand ils le copient cela ne copie pas également les modules de mon fichier ainsi que ce qu'il y a derrière ThisWorkbook.
Pour pallier à ça, pour les modules je les ai tous intégrer à la feuille en question, cependant comme faire pour ma fonction :

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
    Set wbkAnalyse = ThisWorkbook
    Set shAnalyse = wbkAnalyse.Sheets("contrôle arrivage-final")
    Call recupNumCmdTtt
End Sub

Existe t-il un Worksheet_Open() ?
J'ai essayé de le placer derrière ma feuille mais évidemment ce n'est pas appelé à l'ouverture du fichier.

C'est donc ma question comment puis je initialisé mes variables et appeler ma procédure à l'ouverture de mon fichier mais sans passer par Workbook_Open() ??

Si vous avez des questions complémentaires n'hésitez pas je n'ai peut être pas été assez claire...

Merci d'avance

[mercatog]

Bonjour

Pour faire court mes utilisateurs utilisent mon fichier en le copiant, or quand ils le copient cela ne copie pas également les modules de mon fichier ainsi que ce qu'il y a derrière ThisWorkbook.

Étrange, comment se fait cette copie?
Tu es en excel 2003, c'est ça?

[juju1988]

Oui 2003 ou 2007.
En fait ils cliquent droit sur l'onglet de ma feuille et font déplacer ou copier. Malheureusement mes modules et mon code Workbook ne se copient pas... du coup je dois trouver une solution pour faire ça :

Code :

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

1
2
3
4
5
6
 
Private Sub Workbook_Open()
    Set wbkAnalyse = ThisWorkbook
    Set shAnalyse = wbkAnalyse.Sheets("contrôle arrivage-final")
    Call recupNumCmdTtt
End Sub

Mais pas avec workbook_open ...
J'ai pensé à

Code :

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

1
2
3
4
5
Private Sub Worksheet_Activate()
    Set wbkAnalyse = ThisWorkbook
    Set shAnalyse = wbkAnalyse.Sheets("contrôle arrivage-final")
    Call recupNumCmdTtt
End Sub

Mais pour ça il faudrait que mon classeur s'ouvre par défaut sur une autre feuille est ce possible?

[mercatog]

Entre copier la feuille et copier le fichier, certes il y a nuance. (copie du fichier et du projet vba en entier)
il fallait copier tout le fichier et l'enregistrer en xlsm pour le 2007.

[juju1988]

Le problème c'est qu'ils ne veulent copier que la feuille pour l'insérer à des documents existants...

[mercatog]

Copier ton fichier et lui insérer leurs feuilles existantes. (l'opération inverse)

[juju1988]

Le problème c'est qu'il y'aurait trop de feuilles à copier ... donc j'aimerai vraiment trouver une solution (c'est ce qui m'a été demandé) pour pouvoir utiliser ma procédure d'ouverture...

[juju1988]

Est ce qu'il y a possibilité de paramétrer l'ouverture du fichier Excel sur une feuille en particulier?? Comme ça je pourrais utiliser l'évènement

Code :

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

Private Sub Workbook_Activate()

Où encore de forcer l'appel d'une fonction à l'ouverture du classeur autre que

Code :

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

ThisWorkbook Workbook_Open()

?

Où existe t-il une manière de copier un fichier excel avec toutes ces macros??

Ou encore que j'ajoute un bouton sur ma feuille qui permette à l'utilisateur d'exporter ma feuille dans leur classeur avec tous ces modules et son ThisWorkbook. Est ce possible? Et si oui de quelle manière, je ne trouve que beaucoup d'importations quand je recherche ça dans google. Il faudrait que l'utilisateur clique sur le bouton d'export sélectionne le fichier où il veut exporter ma feuille et ensuite traitement d'export vers ce fichier. Sachant qu'il faut que j'importe donc ma feuille, ses modules et le ThisWorkbook.... Sachant qu'il faudrait que ce soit écrasé à chaque fois !! A chaque clic on remplace celui existant ...Ce sera un clic qui sera fait plusieurs fois !! Donc pas que de l'ajout ...

[juju1988]

Bon j'ai copié mes déclarations de variable derrière ma feuille ça fait moins propre mais tant pis j'ai pas d'autres solutions. Merci