Discussion :

[laurent27530]

Bonjour,

Voila ce que dis l'enregistreur de macro
Dans la feuille d'où je lance la macro suivi_client.xlsm j'ai en B4 le nom du client , B5 la date
J'aimerai créé créé un onglet et lui ajoute comme non un nom + le contenu de B5
dans l'exemple B5 =2014-01
J'aimerai que l'onglet créé porte le nom Incident_2014-01
Je n'arrive pas a mettre la valeur de B5 ( test [B5] ; B5) // le nom par defaut del a feuille créér m'impose de fermer la feuille pour repartir de la feuille1.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Sub Macro_creation_onglet()
'
' Macro_creation_onglet Macro
'
 
'
    Windows("Récap-Client A-2014-41.xlsx").Activate
    Sheets.Add After:=ActiveSheet
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = ("Iincident_" & B5)
    Range("A1").Select
    Sheets.Add After:=ActiveSheet
    Sheets("Feuil2").Select
    Sheets("Feuil2").Name = ("Incident globaux_" & B5)
    Windows("suivi_client.xlsm").Activate
End Sub

[SfJ5Rpw8]

Bonjour ,

évite les selects, activate ....

utilise un objet worksheet :
inspire toi de :

Code :

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

1
2
3
4
 
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets.Add
sh.Name = "MaNouvellefeuille"

[eriiic]

Bonjour à tous,

et si tu as une date en B5 ça sera plutôt :
"Incident_" & format(B5,"yyyy-mm")
eric

[laurent27530]

j'ai essayé de faire comme tu me l'as dit :
Mais il me créé dans le classeur ou se trouve la macro et non dans le classeur ou je voudrais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub Création_des_onglets_incidents()
'
' test Macro
'
Dim Mois As String
Mois = Range("B5") ' Mois concerné
Dim Plateau As String 'Client concerné
Plateau = Range("B4")
'Ouverture du  fichier a alimenter
    Workbooks.Open Filename:=[B7] & "\" & "Récap-Incidents-" & Plateau & ".xlsx"
'Création des onglets et renommage
    Windows("Récap-Incidents-" & Plateau & ".xlsx").Activate
    Dim C1 As Worksheet
    Dim C2 As Worksheet
    Dim C3 As Worksheet
    Dim C4 As Worksheet
    Dim C5 As Worksheet
    Set C1 = ThisWorkbook.Sheets.Add
    Set C2 = ThisWorkbook.Sheets.Add
    Set C3 = ThisWorkbook.Sheets.Add
    Set C4 = ThisWorkbook.Sheets.Add
    Set C5 = ThisWorkbook.Sheets.Add
    C1.Name = ("IC1--" & Mois)
    C2.Name = ("IC2--" & Mois)
    C3.Name = ("IC3--" & Mois)
    C4.Name = ("IC4_synthese--" & Mois)
    C5.Name = ("IC5_synthese--" & Mois)
 
'Sauvegarde du classeur
    Windows("Récap-Incidents-" & Plateau & ".xlsx").Activate
    ActiveWorkbook.Save

[SfJ5Rpw8]

Je ne vois pas où tu as essayé ? donne moi le numéro de ligne ?

[laurent27530]

J'ai 5 feuilles a créer dans le fichier "Récap-Incidents-" & Plateau & ".xlsx"*
Ma macro se trouve dans un autre classeur
J'ouvre le fichier mais il me créé les onglets dans le fichier ou se trouve les macros.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'Ouverture du fichier a alimenter
 Workbooks.Open Filename:=[B7] & "\" & "Récap-Incidents-" & Plateau & ".xlsx"
 'Création des onglets et renommage
 Windows("Récap-Incidents-" & Plateau & ".xlsx").Activate
 Dim C1 As Worksheet
 Dim C2 As Worksheet
 Dim C3 As Worksheet
 Dim C4 As Worksheet
 Dim C5 As Worksheet
 Set C1 = ThisWorkbook.Sheets.Add
 Set C2 = ThisWorkbook.Sheets.Add
 Set C3 = ThisWorkbook.Sheets.Add
 Set C4 = ThisWorkbook.Sheets.Add
 Set C5 = ThisWorkbook.Sheets.Add
 C1.Name = ("IC1--" & Mois)
 C2.Name = ("IC2--" & Mois)
 C3.Name = ("IC3--" & Mois)
 C4.Name = ("IC4_synthese--" & Mois)
 C5.Name = ("IC5_synthese--" & Mois)