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

[zuli3n]

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:

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.

 

[Pierrot93]

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 :

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule

par cela :

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule

bon après midi
@+

 

[zuli3n]

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

Salut Pierrot93,

Je viens de tester ta proposition, mais hélas j'ai la même erreur (Excel plante).

Merci,
Cordialement.

 

[Pierrot93]

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

Re,

la création de la nouvelle feuille avec le bouton fonctionne chez moi. Après conversion de ton fichier sous 2003.....

 

[zuli3n]

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

Re,

Il te renomme correctement l'onglet en "test" ??

Cordialement.

 

[Pierrot93]

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

Re,

oui le nouvel onglet est bien nommé "test".... quel est ton message d'erreur ?

 

[zuli3n]

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

Re,

L'application Excel plante complétement -> "Microsoft Office Excel a cessé de fonctionner" 🙁

Cordialement.

 

[Pierrot93]

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

Re,

aarf.... pas ce problème chez moi... mais je suis sous 2003, attendons que quelqu'un qui possède 2007 passe sur le fil...

 

[zuli3n]

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]

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]

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.