Créer et nommer une nouvelle feuille Excel

[Résolu]
Signaler
Messages postés
25
Date d'inscription
lundi 12 novembre 2007
Statut
Membre
Dernière intervention
7 octobre 2010
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
Bonjour,

Je dois créer un Excel avec deux trois options VBA et j'arrive a générer automatiquement (relié a un bouton) une nouvelle feuille qui s'insère en troisième position dans les onglets mais je n'arrive pas a la créer en lui donnant un nom qui correspond à la date du jour. Aussi si quelqu'un à la solution, merci par avance.

En espérant que cela soit possible

Je me sers d'Excel 2003 au travail.

7 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Je ne sais pas si cela va t'aider mais regarde ceci.

Worksheets.Add().Name = Replace(Date, "/", "_")

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Re,
Regarde ce que fait ceci.

On Error Resume Next
   Application.DisplayAlerts = False
   Call Worksheets(Replace(Date, "/", "_")).Delete
On Error GoTo 0
Worksheets.Add().Name = Replace(Date, "/", "_")
Application.DisplayAlerts = True , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
25
Date d'inscription
lundi 12 novembre 2007
Statut
Membre
Dernière intervention
7 octobre 2010

Merci beaucoup, ça marche
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Re,
De rien.

NB: Le bouton réponse acceptée sert à valider le ou les post qui t'on donné la solution

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
25
Date d'inscription
lundi 12 novembre 2007
Statut
Membre
Dernière intervention
7 octobre 2010

Peut être peux tu m'aider pour une deuxième problèmatique, j'explique rapidement.

J'utilise un Excel relié a une requête sql pour importer des données depuis une bdd. donc comme tu me l'as montré, je crée une feuille nommée avec la date du jour grace a un bouton "Historiser", mais si l'utilisatrice reclic sur ce même bouton, bah le code fait une erreur car la feuille existe déjà, normal.
Ma question est : comment lui dire d'écraser la feuille si elle existe déjà mais de façon non nominative. J'écris ce que je pense a la place du code vu que je suis débutant.

Worksheets.Add().Name = Replace(Date, "/", "_")
If sheet (Date, "/", "_") existe déjà then ecrase avec (Date, "/", "_")

Merci encore pour ton aide, n'hésite pas si tu as des questions.
Messages postés
25
Date d'inscription
lundi 12 novembre 2007
Statut
Membre
Dernière intervention
7 octobre 2010

Nickel, merci encore !
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Re,
De rien. Je vais me répéter

NB: Le bouton réponse acceptée sert à valider le ou les post qui t'on donné la solution (IE PAS CEUX POUR DIRE MERCI)

Il ont pour but d'aider visuellement un autre memebres à identifier rapidement les réponses correctes

@+: Ju£i?n
Pensez: Réponse acceptée