Discussion :

[mouftie]

Bonjour,
J'ai fait différents modèles de feuilles dans mon Personnal.xlsb et je voudrais pouvoir les copier (choix à travers un inputbox) dans mes classeurs de travail.
J'ai donc écrit une macro que j'ai placé également dans mon Personnal.xlsb.
Sauf que quand je veux récupérer le nom du classeur de travail, je récupère Personnal... c'est à dire le nom du fichier du projet et non celui d'où je lance la macro avec mon raccourci.

voici mon début de code (il n'y a pas encore l'inputbox, car je vais peut-être aller jusqu'à un USF pour avoir un menu déroulant de tous les modèles).

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub InserFeuilModel()
' Raccourci Ctrl + L
'Inserre une feuille selon le modèle
Dim ClassActif, ShActiv As String
ClassActif = ThisWorkbook.Name
ShActiv = ActiveSheet.Name
    Windows("PERSONAL.XLSB").Visible = True
    Sheets("Feuil1").Copy After:=Workbooks(ClassActif).Sheets(ShActiv)
    Windows("PERSONAL.XLSB").Visible = False
End Sub

Est-ce que quelqu'un peut m'aider, svp. Merci

[joe.levrai]

Bonjour,

en remplaçant

Code :

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

ClassActif = ThisWorkbook.Name

par

Code :

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

ClassActif = ActiveWorkbook.Name

cela résout-il le problème ?

[mouftie]

Bonjour Joe,
Merci beaucoup, c'est parfait.
Bonne fin de journée