onglet

[GHISLAIN]

bonjour a tous

je cherche a creer des onglets automatique dans un autre classeur .
tout ce que je vois sur le forum cree des onglets dans le classeur actif


je souhaiterai qu'un onglet se cree en lançant la macro dans le classeur prod se trouvant sur c:\doc

je souhaiterai que cette onglet soit nomé avec la valeur de la cellule G7 de la feuille test

que ci l'onglet est deja existant que j ai un mess m indiquant que la feuille existe deja .

merci a tous de votre aide

amicalement ghislain

 

[Pierrot93]

Re : onglet

Bonjour Ghislain

peut être ainsi :

Option Explicit
Sub test()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\doc\prod.xls")
With wb
If Not FeuilleExiste(wb, .Sheets("Feuil1").Range("G7").Value) Is Nothing Then Exit Sub
    .Worksheets.Add(after:=.Sheets(.Sheets.Count)).Name = .Sheets("test").Range("G7").Value
End With
End Sub
Function FeuilleExiste(wb As Workbook, f As String) As Worksheet
On Error Resume Next
Set FeuilleExiste = wb.Worksheets(f)
End Function

bonne journée
@+

 

[mikael2235]

Re : onglet

Salut GHISLAIN,

Dans quel classeur sera ta macro ?
Et dans quel classeur veux-tu créer les onglets ?

Il faut soit que tu ouvres ton classeur dans lequel tu veux créer l'onglet :

Workbooks.Open FileName:="classeur.xls"

ou s'il est déjà ouvert, que tu le selectionnes :

Workbooks("classeur.xls").Activate

Tu crées ton nouvel onglet :

Sheets.Add
ActiveSheet.Name = "onglet"

Pour vérifier que la feuille existe, ajoute la fonction et le code suivant :

Public Function FeuilleExiste(sNomFeuille As String) As Boolean
    On Error GoTo Err_FeuilleExiste
    FeuilleExiste = False
    FeuilleExiste = Not ActiveWorkbook.Worksheets(sNomFeuille) Is Nothing
Err_FeuilleExiste:
End Function

'Vérifie si la feuille onglet existe, si oui message d'erreur, si non creation
If FeuilleExiste("onglet") Then
    MsgBox "feuille onglet existe déjà"
Else
    Sheets.Add
    ActiveSheet.Name = "onglet"
End If

P.S. Pierrot trop rapide

 

[GHISLAIN]

Re : onglet

bonjour Pierrot93

merci de t'etre penché sur mon fil
je viens de tester le code proposé et j ai une erreur d'execution 9 soit , l'indice n appartien pas a l execution sur la ligne suivante
.Worksheets.Add(after:=.Sheets(.Sheets.Count)).Name = .Sheets("test").Range("G7").Value

si tu as une idéé de l erreur merci

amicalement ghislain

 

[GHISLAIN]

Re : onglet

bonjour mickael 2235

je test ta proposition cette apres midi et je te tien au courant

merci de ta proposition

bon appetit a tous

amicalement

ghislain

 

[Pierrot93]

Re : onglet

Re,

je viens de tester le code proposé et j ai une erreur d'execution 9 soit , l'indice n appartien pas a l execution sur la ligne suivante
.Worksheets.Add(after:=.Sheets(.Sheets.Count)).Nam e = .Sheets("test").Range("G7").Value

la feuille "test" existe bien ? et la cellule G7 comporte bien un nom valide pour une feuille de calcul ???

 

[GHISLAIN]

Re : onglet

re bonjour tous

je viens de tester et de controler mais rien a faire j ai toujours cette erreur d'execution

je joins le fichier au cas ou

merci

amicalement ghislain

 

[Pierrot93]

Re : onglet

Re,

si la feuille "test" et la cellule G7, se trouve dans le classeur ou se trouve le code :

Dim wb As Workbook
Set wb = Workbooks.Open("C:\doc\prod.xls")
With wb
If Not FeuilleExiste(wb, ThisWorkbook.Sheets("Feuil1").Range("G7").Value) Is Nothing Then Exit Sub
    .Worksheets.Add(after:=.Sheets(.Sheets.Count)).Name = ThisWorkbook.Sheets("test").Range("G7").Value
End With

 

[GHISLAIN]

Re : onglet

re a tous

a plusieur essai je suis arrivée a cette conclusion qui fonctionne

Public Function FeuilleExiste(sNomFeuille As String) As Boolean
On Error GoTo Err_FeuilleExiste
FeuilleExiste = False
FeuilleExiste = Not ActiveWorkbook.Worksheets(sNomFeuille) Is Nothing
Err_FeuilleExiste:
End Function

Private Sub CommandButton1_Click()

Dim VNom As String
VNom = Sheets("essai").Range("G7")


Workbooks.Open Filename:="C:\doc\prod.xls"
On Error Resume Next
If FeuilleExiste(VNom) Then
MsgBox "feuille" & VNom & " existe déjà"

ActiveWorkbook.Close

Exit Sub
Else
Sheets.Add
ActiveSheet.Name = VNom


merci a tous de votre aide qui m'on aidé

amicalement

ghislain

ActiveWorkbook.Save
ActiveWorkbook.Close
End If



End Sub