créer une feuille via VB

[chico]

bonjour le forum.

Jai un bouton pour acceder a la Feuil4

mais j'aimerais faire une petite fonction qui:

en appuyant sur ce bouton, il regarde d'abord si la feuil4 existe,
si oui il la selectionne

si non il demande ' voulez vous créé la Feuil4? ' et crée une feuille avec comme nom 'Feuil4'.

Pouvez vous m'aider SVP

merci d'avance

Amicalement
-Chico-

 

[Hellboy]

Bonjour chico

J'espère que ceci va répondre a tes attentes.

Private Sub CommandButton1_Click()
On Error Resume Next
    Sheets('Feuil4').Activate
    If Err Then
            If MsgBox('Voulez vous créé la Feuil4 ?', vbQuestion + vbYesNo) = vbYes Then
                Sheets.Add , after:=Sheets(Sheets.Count)
                ActiveSheet.Name = 'Feuil4'
            End If
            Err.Clear
    End If
On Error GoTo 0
End Sub

[file name=classeur1_20051105162032.zip size=9120]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeur1_20051105162032.zip[/file]

 

[chico]

merci Hellboy
mais dans ton code, il donne comme nom Feuil4
en faite dans la propriété de la feuil ( sous VB) il y a:

(Name)
et
Name

ce que j'aimerai c que , il me donne:
(Name) : Feuil4

C'est possible?

 

[Hellboy]

re chico

Là j'avoue que tu m'as perdu complètement !!!!! Je comprend rien a ta deuxième intervention !! Désolé On dirait que tu me parle de nomenclature, mais comme je te dis dans le zop !

Tu as essayé le fichier que j'ai joint ?

Je crois avoir suivit à la lettre ce que tu as demandé en premier. Alors ...???

 

[chico]

je t'ai joint le fichier que tu m'a fait avec la modif pour mieux expliquer mon petit prob:

alors dans VB tu a feuil3(feuil4)

feuil3 correspond a (name)
feuil4 correspond a name

d'ou il y a 2 name
name
et
(name)
avec ton code il met feuil4 entre parentaise
mais ce que j'aimerais c avoir feuil4 a la place de feuil3

oulala difficil a expliquer

je vais essayer autrement:

alors si j'ai:

feuil1(personnel)
feuil2( janvier)
...
...
feuil13(decembre)
feuil14(personne_1)
feuil15(personne_2)


alors si je click sur un bouton qui correspond a la personne4,

si feuil17 exixte pas il crée une feuil:
feuil17(personne_4)

j'espere que vous me comprendrez

g besoin de ce resultat parce que je veut utiliser:

sheets(x) dans mon code

 

[chico]

oups voile le fichier
[file name=classeur1_20051105173616.zip size=9226]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeur1_20051105173616.zip[/file]

 

[chico]

g regardé la difference entre (name) et name


et la didderence entre
(Name)
et name

name c le nom externe
et (name) c le nom interne

ce que je voudrai c de créer une feuil avec un nom interne que je donne par le code

merci encore de m'aider

 

[Hellboy]

re chico

Je comprend ce que tu veux dire. Tu as le nom de l'objet du Module Feuilx et son nom d'affichage ou d'étiquette enfin...

Donc tu veux créer un module en controlant son assigantion de nom. Je n'ai pas trouver comment on creer directement un Module Feuil, je connais les autres pas celui là. En fait je pense que ça ne se fait pas, mais .... Je te propose cette exemple:

Option Explicit
'    Doit ajouter la référence: Microsoft Visual Basic For Applications Extensibitity 5.3
Private Sub CommandButton1_Click()
Dim VBComp As VBComponent
On Error Resume Next
    Sheets('Hello').Activate
    If Err Then
            If MsgBox('Voulez vous créé le Module Feuil4 ?', vbQuestion + vbYesNo) = vbYes Then
                Sheets.Add , after:=Sheets(Sheets.Count)
                ActiveSheet.Name = 'Hello'
                Set VBComp = ThisWorkbook.VBProject.VBComponents('Feuil4')
                VBComp.Name = 'Feuil5'
            End If
            Err.Clear
    End If
On Error GoTo 0
End Sub

[file name=classeur1_20051105194430.zip size=7335]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeur1_20051105194430.zip[/file]