Excel_macro_
Résolu/Fermé
benji71
Messages postés
738
Date d'inscription
samedi 22 mars 2008
Statut
Membre
Dernière intervention
4 janvier 2015
-
1 sept. 2012 à 16:35
benji71 Messages postés 738 Date d'inscription samedi 22 mars 2008 Statut Membre Dernière intervention 4 janvier 2015 - 2 sept. 2012 à 10:15
benji71 Messages postés 738 Date d'inscription samedi 22 mars 2008 Statut Membre Dernière intervention 4 janvier 2015 - 2 sept. 2012 à 10:15
4 réponses
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
950
1 sept. 2012 à 17:16
1 sept. 2012 à 17:16
Salut le forum
Essaye avec ceci :
Mytå
Essaye avec ceci :
Liste = "Janvier,Février,Mars,Avril," & _ "Mai,Juin,Juillet,Août," & _ "Septembre,Octobre,Novembre,Décembre" nom = Split(Liste, ",")(Month(Sheets("MODELE").[b6].Value) - 1) Sheets("MODELE").Copy after:=Sheets("MODELE")
Mytå
benji71
Messages postés
738
Date d'inscription
samedi 22 mars 2008
Statut
Membre
Dernière intervention
4 janvier 2015
23
1 sept. 2012 à 17:25
1 sept. 2012 à 17:25
Bonjour myta,
j'espere que vous allez bien. merci pour votre réponse.
afin de ne pas commettre de boulette et de m'assurer avoir bien compris, le code que vous proposer doit remplacer l'entiereté du code vba précédant. correct ?
merci de votre reponse,
cdlmnt
berni///
j'espere que vous allez bien. merci pour votre réponse.
afin de ne pas commettre de boulette et de m'assurer avoir bien compris, le code que vous proposer doit remplacer l'entiereté du code vba précédant. correct ?
merci de votre reponse,
cdlmnt
berni///
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
950
1 sept. 2012 à 17:36
1 sept. 2012 à 17:36
Re le forum
Benji71, tu remplaces seulement la partie
Mytå
Benji71, tu remplaces seulement la partie
nom = Replace("MODELE" & [b6].Value, " ", "") Sheets("MODELE").Copy after:=Sheets(Sheets.Count)
Mytå
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
950
Modifié par Mytå le 1/09/2012 à 17:38
Modifié par Mytå le 1/09/2012 à 17:38
Re le forum
Et ajoute à la suite de tes DIM
Mytå
Et ajoute à la suite de tes DIM
Dim Liste as String
Mytå
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 779
1 sept. 2012 à 17:37
1 sept. 2012 à 17:37
Bonjour berni
Essaies:
Essaies:
Sub crée_feuil_mois() Dim wsh As Worksheet, nom As String nom = Format([B6].Value, "mmmm") Sheets("MODELE").Copy after:=Sheets("MODELE") Set wsh = ActiveSheet On Error Resume Next wsh.Name = nom On Error GoTo 0 For Each elm In wsh.Shapes If elm.Name <> "Rectangle 4" Then elm.Delete Next elm If nom <> wsh.Name Then If MsgBox("Le mois de " & nom & " existe déja." & vbCr & _ "Voulez-vous le remplacer ?" _ , vbYesNo + vbCritical) = vbYes Then Application.DisplayAlerts = False Sheets(nom).Delete Application.DisplayAlerts = True wsh.Name = nom wsh.Activate Else Application.DisplayAlerts = False wsh.Delete Application.DisplayAlerts = True Sheets("MODELE").Activate End If End If End Sub
benji71
Messages postés
738
Date d'inscription
samedi 22 mars 2008
Statut
Membre
Dernière intervention
4 janvier 2015
23
1 sept. 2012 à 17:49
1 sept. 2012 à 17:49
merci à vous deux,
je ne sais si vous recevrez ma reponse car j'ai un gros problème avec le site..
il post certain messages mais pas d'autres,
je teste vos propositions...d'av&ance un grand merci à tous les deux....
berni///
je ne sais si vous recevrez ma reponse car j'ai un gros problème avec le site..
il post certain messages mais pas d'autres,
je teste vos propositions...d'av&ance un grand merci à tous les deux....
berni///
Le Pingou
Messages postés
12225
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 décembre 2024
1 452
1 sept. 2012 à 23:31
1 sept. 2012 à 23:31
Bonjour,
Au passage, ce n'est pas le site qui fait problème mais le titre de vos messages.
Un même titre n'est pas possible, c'est à vous de mettre un titre valable, et tout marchera bien.
Salutations
Le Pingou
Au passage, ce n'est pas le site qui fait problème mais le titre de vos messages.
Un même titre n'est pas possible, c'est à vous de mettre un titre valable, et tout marchera bien.
Salutations
Le Pingou
benji71
Messages postés
738
Date d'inscription
samedi 22 mars 2008
Statut
Membre
Dernière intervention
4 janvier 2015
23
2 sept. 2012 à 10:15
2 sept. 2012 à 10:15
bonjour le pingou,
j'espere que vous allez bien.merci pour votre réponse.
je vais donc m'appliquer à faire les choses plus correctmeent.
un tt grand merci à vous.
tres bonne jounrée.
berni///
j'espere que vous allez bien.merci pour votre réponse.
je vais donc m'appliquer à faire les choses plus correctmeent.
un tt grand merci à vous.
tres bonne jounrée.
berni///