Discussion :

[iliesss]

bonjour
j'ai le macro suivant qui copie un tableau et le coller dans un nouveau fichier excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro2()
 
    Range("Tableau1").Copy
    Workbooks.Add
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Feuil1").Name = "GR"
    Range("A1").Select
 
End Sub

svp comment ajouter ce module classe d'une façon automatique dans ce nouveau fichier excel "Feuil1" juste après l’exécution du macro 2

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1")) Is Nothing Then
       ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=5, Criteria1:=Range("A1")
  End If
 
Range("A1").Select
End Sub

[Invité]

Bonjour,
Je ne vois pas de module de classe mais c'est pas grave!

Utilises un classeur modèle Xltm qui lui contiendra ta macro!
Workbooks.Add "c:\myrep\modèle.xltm"

[Patrice740]

Bonjour,

C'est pas un module de classe mais un module de feuille, mais c'est pas grave!
Pour créer un module par macro et y insérer une macro regardes ici :
http://silkyroad.developpez.com/VBA/...cEditor/#LIV-A

[Marc-L]

Bonjour,

le module d'une feuille de calculs comme celui du classeur ThisWorkbook sont bien
des modules de classe - certes spécifiques - car exportés aussi en .cls comme un simple module de classe …

Terminologie microsoftienne quand tu nous tiens !  

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Invité]

Pour utiliser VBProject il faut explicitement l'autoriser dans le options d'excel c'est donc pour cela que je préconise un modèle xltm avec les macros implémenter dedans!

[Patrice740]

Pour utiliser VBProject il faut explicitement l'autoriser dans le options d'excel c'est donc pour cela que je préconise un modèle xltm avec les macros implémenter dedans!

VBProject n'est qu'une alternative, et effectivement utiliser un modèle est bien plus simple.

[Philippe Tulliez]

Bonjour Robert,

Pour utiliser VBProject il faut explicitement l'autoriser dans le options d'excel c'est donc pour cela que je préconise un modèle xltm avec les macros implémenter dedans!

Entièrement d'accord avec toi

On peut également faire la copie de la feuille vers un nouveau classeur et ainsi copier le code VBA du module de celle-ci
Exemple

Code :

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

 ThisWorkbook.Worksheets("Feuil4").Copy

[iliesss]

bonjour et merci pour votre réponses


je vous explique

au début j'ai mis le macro2 dans module1
en suite le private sub dans feuil1 et j'ai enregistrer le tous dans un fichier type macro complémentairement excel copie.xlam
après j'ai ajouter une icone dans la barre d'outil rapide pour exécuter cette macro2 facilement
je souhaite que le private sub qui existe dans copie.xlam feuil1 seras copier automatiquement dans le nouveau fichier excel feuil1 après l’exécution de macro2

[iliesss]

Bonjour Robert,

Entièrement d'accord avec toi

On peut également faire la copie de la feuille vers un nouveau classeur et ainsi copier le code VBA du module de celle-ci
Exemple

Code :

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

 ThisWorkbook.Worksheets("Feuil4").Copy

SVP est ce que je peux ajouter le nom du fichier copie.xlma dans votre code
exemple

Code :

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

Workbook("copie").Worksheets("Feuil4").Copy

merci

[Philippe Tulliez]

Bonjour,
On peut bien entendu copier la feuille d'un classeur suffixé xlam rérérencé comme macro complémentare mais ce n'est pas tout à fait la même façon de travailler.
Le classeur xla ne fait pas partie de la collection Workbooks mais de AddIns et celle-ci ne permet pas, d'après mes recherches de visualiser les feuilles du complément.
Il faut donc partir d'une procédure présente dans la macro complémentaire qui elle pourra effectuer la copie d'une ou plusieurs feuilles

[iliesss]

j'ai beaucoup cherché et grace a Mr Norman j'ai trouvé cette solution

Code :

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

1
2
3
4
5
Public Sub test()
    ThisWorkbook.Sheets(1).Copy
    ActiveWorkbook.Sheets(1).Name = "GR"
Run "Macro2"
End Sub

[Invité]

Effectivement, le chemin de l'enfer étant pavé de bonnes intentions il m'es impossible de trouver mieux!

[iliesss]

Effectivement, le chemin de l'enfer étant pavé de bonnes intentions il m'es impossible de trouver mieux!

merci

[Invité]

Bonjour,
Si il te faut intervenir sur toutes les machines pour autoriser l'utilisation du VBProject, pourquoi pas installer le xlam et prendre la solution de Philippe ou mon modèle xltm?