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

[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?

[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

[Patrice740]

Pourquoi faire simple quand on peut faire compliqué ???
(i.e simple=modèle)

[iliesss]

Merci beaucoup mr Patrice pour le lien j'ai appris beaucoup de chose et j'ai trouvé la solution.

Code :

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

1
2
3
4
5
6
7
Sub ModifCode()
With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    .InsertLines 1, "Private Sub Worksheet_Change(ByVal Target As Range)"
    .InsertLines 2, " If Target.Address = ""$G$1"" Then"
    'etc.
End With
End Sub

[Philippe Tulliez]

Bonjour,
Ayant eu un peu de temps aujourd'hui pour faire des tests, je reviens à ce fil #12
La commande que j'avais proposée dans ce fil

Code :

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

ThisWorkbook.Worksheets("Feuil4").Copy

Fonctionne également depuis un fichier xlam.

Comme je travaille avec des menus intégrés dans l'onglet compléments lorsque je lance des procédures présentes dans un fichier xlam, ma réponse du fil #13

On peut bien entendu copier la feuille d'un classeur suffixé xlam rérérencé comme macro complémentaire mais ce n'est pas tout à fait la même façon de travailler.

n'était pas tout à fait correcte.

Deux scénarios
Imaginons un fichier de macro complémentaire nommé "180106Perso.xlam" contenant plusieurs feuilles dont l'une nommée M contient des procédures (Sub)
Dans un module nommé mMain, il y a une procédure dont voici le code

Code :

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

1
2
3
Sub testCopyFromXlam()
 ThisWorkbook.Worksheets("M").Copy
End Sub

Scénario 1
Nous souhaitons copier la feuille M dans un nouveau classeur
Dans un classeur quelconque nous allons placer une procédure nommée Test (voir ci-dessous) qui va appeler la procédure testCopyFromXlam de la macro complémentaire

Code :

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

1
2
3
Sub Test()
 Run "180106Perso.xlam!testCopyFromXlam"
End Sub

La feuille nommée M contenant des procédures, elles sont utilisables depuis ce nouveau classeur

Scénario 2
Nous souhaitons pouvoir copier une des feuilles que contient ce classeur de macro complémentaire vers un nouveau classeur et ce en le sélectionnant dans une liste déroulante.
Dans un classeur quelconque nous allons placer une procédure nommée Test (voir ci-dessous) qui va appeler la procédure LancerFormulaire de la macro complémentaire

Code :

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

1
2
3
Sub Test()
 Run "180106Perso.xlam!LancerFormulaire"
End Sub

Les procédures présentes dans le fichier xlam

Dans le module nommé mMain

Code :

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

1
2
3
Sub LancerFormulaire()
 usfSheetList.Show
End Sub

Procédure du UserForm nommé usfSheetList

[/B]Ce formulaire (UserForm) contient un contrôle nommé et a pour but d'afficher la liste des feuilles contenue dans le fichier xlam et de copier la feuille sélectionnée. Seule la feuille dont le CodeName est ShtMenu ne sera pas affichée.

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Activate()
 Dim sh As Worksheet
 For Each sh In ThisWorkbook.Worksheets
  If LCase(Trim(sh.CodeName)) <> "shtmenu" Then
   Me.lstWorkSheet.AddItem sh.Name
  End If
 Next
End Sub

Procédure événementielle du lstWorkSheet_Click permettant de copier la feuille sélectionnée dans la liste

Code :

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

1
2
3
4
5
6
7
8
Private Sub lstWorkSheet_Click()
 If MsgBox("Voulez-vous copier la feuille " & _
           Me.lstWorkSheet.Value, _
           vbInformation + vbYesNo + vbDefaultButton2) = vbYes Then
  ThisWorkbook.Worksheets(Me.lstWorkSheet.Value).Copy
  Unload Me
 End If
End Sub

[EDIT]
Scénario 3
Nous souhaitons copier une des feuilles contenue dans le classeur de macro complémentaire mais sans la choisir dans une liste.
Pour cela il faudra prévoir un argument ShtName de type String représentant le nom de la feuille à copier et que nous définirons comme optionnel et avec comme valeur par défaut M, pour éviter d'enclencher une erreur si nous avons déjà créer des classeurs utilisant notre première procédure du scénario 1

Procédure modifiée dans le classeur de macro complémentaire

Code :

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

1
2
3
Sub testCopyFromXlam(Optional ShtName As String = "M")
 ThisWorkbook.Worksheets(ShtName).Copy
End Sub

La procédure appelante à placer dans le module d'un classeur quelconque
Commande qui lance la copie de la feuille nommée A

Code :

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

Run "180106Perso.xlam!testCopyFromXlam", "A"

Commande qui lance la copie de la feuille nommée M (Argument optionnel avec comme valeur par défaut M

Code :

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

Run "180106Perso.xlam!testCopyFromXlam"

Attention !!! Il faudra prévoir une détection d'erreur pour le cas où le nom de la feuille passée comme argument n'existe pas

[iliesss]

Merci beaucoup Mr Philippe
C'est très intéressant