Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Inserer plusieurs feuilles dans un dossier

Inserer plusieurs feuilles dans un dossier

15 réponses
Avatar
Jacques Delneste
Bonjour,

Comme exemple de l'objet ci-dessous, je souhaite inserer les 12 (feuilles)
mois de l'année dans un dossier
Comment réaliser ce travail en une seule fois?
Déjà merci pour vos réponses mais es-ce possible?
@+
Jacques Benoit
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Nicolas B.
Salut,

Si tu veux dans un nouveau classeur nommer (et ajouter) des feuilles, cette
macro devrait faire l'affaire :

Sub CreerFeuilles()
ActiveSheet.Name = "janvier"
For i = 1 To 11
Sheets.Add(, Sheets(i)).Name = Format(DateSerial(2000, i + 1, 1),
"mmmm")
Next
End Sub

Et si tu veux avoir des classeurs différents pour chaque mois :

Sub CreerClasseurs()
Dim ch As String
ch = "C:Mes documents"
For i = 1 To 12
Workbooks.Add.SaveAs ch & Format(DateSerial(2000, _
i + 1, 1), "mmmm")
Next
End Sub


A+
--
Nicolas B.


Bonjour,

Comme exemple de l'objet ci-dessous, je souhaite inserer les 12
(feuilles) mois de l'année dans un dossier
Comment réaliser ce travail en une seule fois?
Déjà merci pour vos réponses mais es-ce possible?
@+
Jacques Benoit


Avatar
Jacques Delneste
Bonjour
J'essaie d'expliquer d'une manière différente ce que je recherche.
Dans chaque dossier, il existe au départ 3 feuilles disponibles
La plupart du temps nous utilisons la première.
En cliquant sur le bouton droit de la souris et en étant positionner sur
l'un des 3 onglets,
il est possible d'insérer un nouvel onglet et donc une nouvelle feuille dans
ce dossier.

Mon souhait et de pouvoir effectuer cette opération plusieurs fois (10x, par
esemple)
en l'automatisant.
Merci de m'aider à réaliser cette macro ou mieux ce module
@+
Jacques Benoit




"Jacques Delneste" a écrit dans le message de
news:40e2e1cd$0$8409$
Bonjour,

Comme exemple de l'objet ci-dessous, je souhaite inserer les 12 (feuilles)
mois de l'année dans un dossier
Comment réaliser ce travail en une seule fois?
Déjà merci pour vos réponses mais es-ce possible?
@+
Jacques Benoit




Avatar
sabatier
bonjour jacques
puisque les grands dorment encore, accepteras-tu qu'un petit, un obscur,
un sans grade te sussure de t'inspirer de cette chose,

Sub AjouterEtNommerUneNouvelleFeuille()
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
rep = InputBox("Quel nom voulez-vous lui donner?", "Nouvelle feuille ")
ActiveSheet.Name = rep
End Sub

HTH
jps

Jacques Delneste a écrit:
Bonjour
J'essaie d'expliquer d'une manière différente ce que je recherche.
Dans chaque dossier, il existe au départ 3 feuilles disponibles
La plupart du temps nous utilisons la première.
En cliquant sur le bouton droit de la souris et en étant positionner sur
l'un des 3 onglets,
il est possible d'insérer un nouvel onglet et donc une nouvelle feuille dans
ce dossier.

Mon souhait et de pouvoir effectuer cette opération plusieurs fois (10x, par
esemple)
en l'automatisant.
Merci de m'aider à réaliser cette macro ou mieux ce module
@+
Jacques Benoit




"Jacques Delneste" a écrit dans le message de
news:40e2e1cd$0$8409$

Bonjour,

Comme exemple de l'objet ci-dessous, je souhaite inserer les 12 (feuilles)
mois de l'année dans un dossier
Comment réaliser ce travail en une seule fois?
Déjà merci pour vos réponses mais es-ce possible?
@+
Jacques Benoit









Avatar
sabatier
oups
c'est encore mieux ainsi au cas où, pris d'un remords, tu annules
l'Inputbox :

Sub AjouterEtNommerUneNouvelleFeuille()
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
rep = InputBox("Quel nom voulez-vous lui donner?", "Nouvelle feuille ")
If rep = "" Then Exit Sub
ActiveSheet.Name = rep
End Sub

jps

Jacques Delneste a écrit:
Bonjour
J'essaie d'expliquer d'une manière différente ce que je recherche.
Dans chaque dossier, il existe au départ 3 feuilles disponibles
La plupart du temps nous utilisons la première.
En cliquant sur le bouton droit de la souris et en étant positionner sur
l'un des 3 onglets,
il est possible d'insérer un nouvel onglet et donc une nouvelle feuille dans
ce dossier.

Mon souhait et de pouvoir effectuer cette opération plusieurs fois (10x, par
esemple)
en l'automatisant.
Merci de m'aider à réaliser cette macro ou mieux ce module
@+
Jacques Benoit




"Jacques Delneste" a écrit dans le message de
news:40e2e1cd$0$8409$

Bonjour,

Comme exemple de l'objet ci-dessous, je souhaite inserer les 12 (feuilles)
mois de l'année dans un dossier
Comment réaliser ce travail en une seule fois?
Déjà merci pour vos réponses mais es-ce possible?
@+
Jacques Benoit









Avatar
Philippe.R
Bonjour Jacques,
Même si ça doublonne un peu avec la réponse de Jean Paul, voici mon gravier :

Sub insercombfeuil()
'MPFE le 04/07/2004 par Philippe.R
Dim cOMb As Integer, i As Integer, eNc As Integer
Dim rEp As String
On Error Resume Next
rEp = InputBox("Saisissez le nombre de feuilles à insérer", _
"Combien de feuilles ?", 5)
cOMb = rEp + 0
If rEp = "" Then
MsgBox "Vous n'avez pas saisi de valeur recevable", , "MPFE"
Exit Sub
End If
For eNc = cOMb To 1 Step -1
i = Sheets.Count
Sheets.Add.Move After:=Sheets(i)
Next eNc
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Jacques Delneste" a écrit dans le message de
news:40e79c27$0$15138$
Bonjour
J'essaie d'expliquer d'une manière différente ce que je recherche.
Dans chaque dossier, il existe au départ 3 feuilles disponibles
La plupart du temps nous utilisons la première.
En cliquant sur le bouton droit de la souris et en étant positionner sur
l'un des 3 onglets,
il est possible d'insérer un nouvel onglet et donc une nouvelle feuille dans
ce dossier.

Mon souhait et de pouvoir effectuer cette opération plusieurs fois (10x, par
esemple)
en l'automatisant.
Merci de m'aider à réaliser cette macro ou mieux ce module
@+
Jacques Benoit




"Jacques Delneste" a écrit dans le message de
news:40e2e1cd$0$8409$
Bonjour,

Comme exemple de l'objet ci-dessous, je souhaite inserer les 12 (feuilles)
mois de l'année dans un dossier
Comment réaliser ce travail en une seule fois?
Déjà merci pour vos réponses mais es-ce possible?
@+
Jacques Benoit








Avatar
Pierre CFI [mvp]
bonjour
oui, mais il y aura une feuille de trop, si je puis me permettre maitre
Sub AjouterEtNommerUneNouvelleFeuille()
dim rep as string
rep = InputBox("Quel nom voulez-vous lui donner?", "Nouvelle feuille ")
If rep = "" Then Exit Sub

ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = rep
End Sub

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"sabatier" a écrit dans le message de news:
oups
c'est encore mieux ainsi au cas où, pris d'un remords, tu annules
l'Inputbox :

Sub AjouterEtNommerUneNouvelleFeuille()
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
rep = InputBox("Quel nom voulez-vous lui donner?", "Nouvelle feuille ")
If rep = "" Then Exit Sub
ActiveSheet.Name = rep
End Sub

jps

Jacques Delneste a écrit:
Bonjour
J'essaie d'expliquer d'une manière différente ce que je recherche.
Dans chaque dossier, il existe au départ 3 feuilles disponibles
La plupart du temps nous utilisons la première.
En cliquant sur le bouton droit de la souris et en étant positionner sur
l'un des 3 onglets,
il est possible d'insérer un nouvel onglet et donc une nouvelle feuille dans
ce dossier.

Mon souhait et de pouvoir effectuer cette opération plusieurs fois (10x, par
esemple)
en l'automatisant.
Merci de m'aider à réaliser cette macro ou mieux ce module
@+
Jacques Benoit




"Jacques Delneste" a écrit dans le message de
news:40e2e1cd$0$8409$

Bonjour,

Comme exemple de l'objet ci-dessous, je souhaite inserer les 12 (feuilles)
mois de l'année dans un dossier
Comment réaliser ce travail en une seule fois?
Déjà merci pour vos réponses mais es-ce possible?
@+
Jacques Benoit












Avatar
Pierre CFI [mvp]
bonjour
là, il va étre faché jp, il se léve de bonne heure pensant pouvoir répondre n'importe quoi, sans risque de se faire gronder, et
pan!!! Pas facile d'étre en haut de l'affiche :o))


--
Pierre CFI
MVP Microsoft Access



Avatar
Philippe.R
Ben Pierre !?!
J'ai pas tapé ?!?
--
Amicales Salutations

"Pierre CFI [mvp]" a écrit dans le message de
news:%
bonjour
là, il va étre faché jp, il se léve de bonne heure pensant pouvoir répondre n'importe quoi, sans
risque de se faire gronder, et

pan!!! Pas facile d'étre en haut de l'affiche :o))


--
Pierre CFI
MVP Microsoft Access







Avatar
sabatier
ton gravier, il est béton, philippe : je le coule immediately
jps

Philippe.R a écrit:
Bonjour Jacques,
Même si ça doublonne un peu avec la réponse de Jean Paul, voici mon gravier :


Avatar
sabatier
???????
ben, pierre, le monsieur il dit qu'il en a 3 au départ, qu'il ne se sert
que d'une, la longévité est donc avec lui, non?
jps

Pierre CFI [mvp] a écrit:
bonjour
oui, mais il y aura une feuille de trop, si je puis me permettre maitre
Sub AjouterEtNommerUneNouvelleFeuille()
dim rep as string
rep = InputBox("Quel nom voulez-vous lui donner?", "Nouvelle feuille ")
If rep = "" Then Exit Sub

ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = rep
End Sub



1 2