Ajout d'une nouvelle feuille avec son bouton et sa macro - Problème dans le code.

zuli3n

XLDnaute Occasionnel
Bonjour le Forum,

J'essaie de mettre en place une macro qui me permet de créer une feuille supplémentaire dans mon classeur et d'y mettre un bouton et sa macro.

Le problème est que j'ai une erreur que je n'arrive pas à corriger:

Code:
Sub AjoutCommandButton_Feuille()
    Dim Ws As Worksheet
    Dim Obj As OLEObject
    Dim laMacro As String
    Dim x As Integer
    
   
   Set Ws = ActiveWorkbook.Sheets.Add(after:=Worksheets(Worksheets.Count))
            ActiveWindow.DisplayGridlines = False
            
        
    'Ajout CommandButton dans la feuille
    Set Obj = Ws.OLEObjects.Add("Forms.CommandButton.1")
    With Obj
        .Left = 369 'position horizontale
        .Top = 12 'position verticale
        .Width = 108 'largeur
        .Height = 21 'hauteur
        .Object.Caption = "Exporter vers JPG"
        .Object.Font.Italic = True
        .Object.Font.Size = 8
        .Object.Font.Name = "Verdana"
    End With
    
    'Paramètres pour la création de la macro:
    '(suppression contenu cellules)
    laMacro = "Private Sub CommandButton1_Click()" & vbCrLf
    laMacro = laMacro & "ExportToJpgOnglet" & vbCrLf
    laMacro = laMacro & "End Sub"
    
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        x = .CountOfLines + 1
        .InsertLines x, laMacro
    End With
    
    ActiveSheet.Name = "test"
    
End Sub

Apparemment c'est: ActiveSheet.Name = "test" qui fait planter le code, j'ai beau chercher je ne trouve, j'aurais besoin d'un coup de main, s'il vous plait.

Merci,
Cordialement.
 

Pièces jointes

  • Test.xlsm
    20.1 KB · Affichages: 49
  • Test.xlsm
    20.1 KB · Affichages: 53
  • Test.xlsm
    20.1 KB · Affichages: 56

Pierrot93

XLDnaute Barbatruc
Re : Ajout d'une nouvelle feuille avec son bouton et sa macro - Problème dans le code

Bonjour,

pas testé mais remplace peut être ceci :
Code:
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule

par cela :
Code:
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule

bon après midi
@+
 

zuli3n

XLDnaute Occasionnel
Re : Ajout d'une nouvelle feuille avec son bouton et sa macro - Problème dans le code

Re Pierrot93,

Je viens de tester sur mon autre laptop qui est équipé aussi d'un office2007, et je n'ai pas ce souci .... :(
Je vais de ce pas réinstaller office, pour tester, je te tiens au jus.

Merci à toi.
Cordialement.
 

Pierrot93

XLDnaute Barbatruc
Re : Ajout d'une nouvelle feuille avec son bouton et sa macro - Problème dans le code

Re,

Aarf, pas sur que la réinstallation soit la solution... attends peut être un peu qu'un autre forumeur spécialiste de 2007 puisse te donner un autre avis....
 

zuli3n

XLDnaute Occasionnel
Re : Ajout d'une nouvelle feuille avec son bouton et sa macro - Problème dans le code

Re Pierrot93,

Tout est revenu dans l'ordre après une réinstallation. Il est vrai que j'avais souvent des erreurs de plantage avec Excel. J'en ai profité pour mettre toutes les mises à jours via Windows Update, et tout est OK.

Merci ++
Cordialement.
 

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 974
Membres
101 854
dernier inscrit
micmag26