Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
Le minimum que tu dois faire est de nous dire
pourquoi tu utilises cette macro....qu'est-ce que tu veux faire ?
Cette procédure doit s'appliquer dans un classeur où tu as la
fonction TestExistenceFeuille() ....Tu ne nous as pas donné le code !
Un nom d'un onglet d'une feuille ne doit pas avoir plus de 31 caractères
et
ne peut pas être vide non plus.
Certains caractères sont interdits dans la nomination des onglets d'une
feuille
* ? : [ ] /
si Cellule est vide ou contient des caractères interdits, ta macro va se
planter
ActiveSheet.Name = cellule.Value
'-------------------------------
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G2:G" & Range("G65536").End(xlUp).Row)
If TestExistenceFeuille(cellule.Value, _
ActiveWorkbook.Path & "" & ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
'-------------------------------
"claire_db" a écrit dans le message de news:
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met
un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
Le minimum que tu dois faire est de nous dire
pourquoi tu utilises cette macro....qu'est-ce que tu veux faire ?
Cette procédure doit s'appliquer dans un classeur où tu as la
fonction TestExistenceFeuille() ....Tu ne nous as pas donné le code !
Un nom d'un onglet d'une feuille ne doit pas avoir plus de 31 caractères
et
ne peut pas être vide non plus.
Certains caractères sont interdits dans la nomination des onglets d'une
feuille
* ? : [ ] /
si Cellule est vide ou contient des caractères interdits, ta macro va se
planter
ActiveSheet.Name = cellule.Value
'-------------------------------
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G2:G" & Range("G65536").End(xlUp).Row)
If TestExistenceFeuille(cellule.Value, _
ActiveWorkbook.Path & "" & ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
'-------------------------------
"claire_db" <claire003_76@hotmail.com> a écrit dans le message de news:
eCWSiFSoHHA.1240@TK2MSFTNGP04.phx.gbl...
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met
un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
Le minimum que tu dois faire est de nous dire
pourquoi tu utilises cette macro....qu'est-ce que tu veux faire ?
Cette procédure doit s'appliquer dans un classeur où tu as la
fonction TestExistenceFeuille() ....Tu ne nous as pas donné le code !
Un nom d'un onglet d'une feuille ne doit pas avoir plus de 31 caractères
et
ne peut pas être vide non plus.
Certains caractères sont interdits dans la nomination des onglets d'une
feuille
* ? : [ ] /
si Cellule est vide ou contient des caractères interdits, ta macro va se
planter
ActiveSheet.Name = cellule.Value
'-------------------------------
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G2:G" & Range("G65536").End(xlUp).Row)
If TestExistenceFeuille(cellule.Value, _
ActiveWorkbook.Path & "" & ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
'-------------------------------
"claire_db" a écrit dans le message de news:
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met
un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
Le minimum que tu dois faire est de nous dire
pourquoi tu utilises cette macro....qu'est-ce que tu veux faire ?
Cette procédure doit s'appliquer dans un classeur où tu as la
fonction TestExistenceFeuille() ....Tu ne nous as pas donné le code !
Un nom d'un onglet d'une feuille ne doit pas avoir plus de 31 caractères
et
ne peut pas être vide non plus.
Certains caractères sont interdits dans la nomination des onglets d'une
feuille
* ? : [ ] /
si Cellule est vide ou contient des caractères interdits, ta macro va se
planter
ActiveSheet.Name = cellule.Value
'-------------------------------
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G2:G" & Range("G65536").End(xlUp).Row)
If TestExistenceFeuille(cellule.Value, _
ActiveWorkbook.Path & "" & ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
'-------------------------------
"claire_db" a écrit dans le message de news:
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met
un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
Le minimum que tu dois faire est de nous dire
pourquoi tu utilises cette macro....qu'est-ce que tu veux faire ?
Cette procédure doit s'appliquer dans un classeur où tu as la
fonction TestExistenceFeuille() ....Tu ne nous as pas donné le code !
Un nom d'un onglet d'une feuille ne doit pas avoir plus de 31 caractères
et
ne peut pas être vide non plus.
Certains caractères sont interdits dans la nomination des onglets d'une
feuille
* ? : [ ] /
si Cellule est vide ou contient des caractères interdits, ta macro va se
planter
ActiveSheet.Name = cellule.Value
'-------------------------------
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G2:G" & Range("G65536").End(xlUp).Row)
If TestExistenceFeuille(cellule.Value, _
ActiveWorkbook.Path & "" & ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
'-------------------------------
"claire_db" <claire003_76@hotmail.com> a écrit dans le message de news:
eCWSiFSoHHA.1240@TK2MSFTNGP04.phx.gbl...
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met
un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
Le minimum que tu dois faire est de nous dire
pourquoi tu utilises cette macro....qu'est-ce que tu veux faire ?
Cette procédure doit s'appliquer dans un classeur où tu as la
fonction TestExistenceFeuille() ....Tu ne nous as pas donné le code !
Un nom d'un onglet d'une feuille ne doit pas avoir plus de 31 caractères
et
ne peut pas être vide non plus.
Certains caractères sont interdits dans la nomination des onglets d'une
feuille
* ? : [ ] /
si Cellule est vide ou contient des caractères interdits, ta macro va se
planter
ActiveSheet.Name = cellule.Value
'-------------------------------
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G2:G" & Range("G65536").End(xlUp).Row)
If TestExistenceFeuille(cellule.Value, _
ActiveWorkbook.Path & "" & ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
'-------------------------------
"claire_db" a écrit dans le message de news:
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met
un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
La macro sert à ajouter des feuilles dans le classeur Excel. Je rentre ds la
cellule "G21" (qui est dans la feuille "page_de_garde") le nombre de
feuilles à créer.
Voici la macro sub ajoutPages et la fonction : TestExistenceFeuille
Merci d'avance !
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G21", Range("G21").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Public Function TestExistenceFeuille(strNomFeuille As String, strNomFichier
As String) As Boolean
TestExistenceFeuille = False
On Error GoTo err
Dim oAppExcel As Excel.Application
Dim oWbk As Excel.Workbook
Dim oSht As Excel.Worksheet
'Lance Excel
Set oAppExcel = New Excel.Application
'Ouvre le classeur
Set oWbk = oAppExcel.Workbooks.Open(strNomFichier)
'Accède à la feuille
Set oSht = oWbk.Sheets(strNomFeuille)
TestExistenceFeuille = True
'Libère les variables et quitte
Set oSht = Nothing
oWbk.Close
oAppExcel.Quit
Set oWbk = Nothing
Set oAppExcel = Nothing
err:
End Function
"MichDenis" a écrit dans le message de news:
%Le minimum que tu dois faire est de nous dire
pourquoi tu utilises cette macro....qu'est-ce que tu veux faire ?
Cette procédure doit s'appliquer dans un classeur où tu as la
fonction TestExistenceFeuille() ....Tu ne nous as pas donné le code !
Un nom d'un onglet d'une feuille ne doit pas avoir plus de 31 caractères
et
ne peut pas être vide non plus.
Certains caractères sont interdits dans la nomination des onglets d'une
feuille
* ? : [ ] /
si Cellule est vide ou contient des caractères interdits, ta macro va se
planter
ActiveSheet.Name = cellule.Value
'-------------------------------
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G2:G" & Range("G65536").End(xlUp).Row)
If TestExistenceFeuille(cellule.Value, _
ActiveWorkbook.Path & "" & ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
'-------------------------------
"claire_db" a écrit dans le message de news:
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met
un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
La macro sert à ajouter des feuilles dans le classeur Excel. Je rentre ds la
cellule "G21" (qui est dans la feuille "page_de_garde") le nombre de
feuilles à créer.
Voici la macro sub ajoutPages et la fonction : TestExistenceFeuille
Merci d'avance !
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G21", Range("G21").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Public Function TestExistenceFeuille(strNomFeuille As String, strNomFichier
As String) As Boolean
TestExistenceFeuille = False
On Error GoTo err
Dim oAppExcel As Excel.Application
Dim oWbk As Excel.Workbook
Dim oSht As Excel.Worksheet
'Lance Excel
Set oAppExcel = New Excel.Application
'Ouvre le classeur
Set oWbk = oAppExcel.Workbooks.Open(strNomFichier)
'Accède à la feuille
Set oSht = oWbk.Sheets(strNomFeuille)
TestExistenceFeuille = True
'Libère les variables et quitte
Set oSht = Nothing
oWbk.Close
oAppExcel.Quit
Set oWbk = Nothing
Set oAppExcel = Nothing
err:
End Function
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23iKX1gSoHHA.4960@TK2MSFTNGP02.phx.gbl...
Le minimum que tu dois faire est de nous dire
pourquoi tu utilises cette macro....qu'est-ce que tu veux faire ?
Cette procédure doit s'appliquer dans un classeur où tu as la
fonction TestExistenceFeuille() ....Tu ne nous as pas donné le code !
Un nom d'un onglet d'une feuille ne doit pas avoir plus de 31 caractères
et
ne peut pas être vide non plus.
Certains caractères sont interdits dans la nomination des onglets d'une
feuille
* ? : [ ] /
si Cellule est vide ou contient des caractères interdits, ta macro va se
planter
ActiveSheet.Name = cellule.Value
'-------------------------------
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G2:G" & Range("G65536").End(xlUp).Row)
If TestExistenceFeuille(cellule.Value, _
ActiveWorkbook.Path & "" & ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
'-------------------------------
"claire_db" <claire003_76@hotmail.com> a écrit dans le message de news:
eCWSiFSoHHA.1240@TK2MSFTNGP04.phx.gbl...
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met
un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance
La macro sert à ajouter des feuilles dans le classeur Excel. Je rentre ds la
cellule "G21" (qui est dans la feuille "page_de_garde") le nombre de
feuilles à créer.
Voici la macro sub ajoutPages et la fonction : TestExistenceFeuille
Merci d'avance !
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G21", Range("G21").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Public Function TestExistenceFeuille(strNomFeuille As String, strNomFichier
As String) As Boolean
TestExistenceFeuille = False
On Error GoTo err
Dim oAppExcel As Excel.Application
Dim oWbk As Excel.Workbook
Dim oSht As Excel.Worksheet
'Lance Excel
Set oAppExcel = New Excel.Application
'Ouvre le classeur
Set oWbk = oAppExcel.Workbooks.Open(strNomFichier)
'Accède à la feuille
Set oSht = oWbk.Sheets(strNomFeuille)
TestExistenceFeuille = True
'Libère les variables et quitte
Set oSht = Nothing
oWbk.Close
oAppExcel.Quit
Set oWbk = Nothing
Set oAppExcel = Nothing
err:
End Function
"MichDenis" a écrit dans le message de news:
%Le minimum que tu dois faire est de nous dire
pourquoi tu utilises cette macro....qu'est-ce que tu veux faire ?
Cette procédure doit s'appliquer dans un classeur où tu as la
fonction TestExistenceFeuille() ....Tu ne nous as pas donné le code !
Un nom d'un onglet d'une feuille ne doit pas avoir plus de 31 caractères
et
ne peut pas être vide non plus.
Certains caractères sont interdits dans la nomination des onglets d'une
feuille
* ? : [ ] /
si Cellule est vide ou contient des caractères interdits, ta macro va se
planter
ActiveSheet.Name = cellule.Value
'-------------------------------
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G2:G" & Range("G65536").End(xlUp).Row)
If TestExistenceFeuille(cellule.Value, _
ActiveWorkbook.Path & "" & ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
'-------------------------------
"claire_db" a écrit dans le message de news:
Je n'y connait rien en macro. On m'a dit de mettre ce code mais ca me met
un
message d'erreur et Activesheet surligné en jaune.
ci joint le code :
Sub AjoutPages()
ActiveWorkbook.Save
Sheets("page_de_garde").Select
For Each cellule In Range("G24", Range("G24").End(xlDown).Address)
If TestExistenceFeuille(cellule.Value, ActiveWorkbook.Path & "" &
ActiveWorkbook.Name) = True Then
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = cellule.Value
End If
Sheets("page_de_garde").Select
Next
End Sub
Quelqu'un sait pourquoi? Merci d'avance