Copier/coller une feuille
Résolu
mariek888
-
mariek888 -
mariek888 -
Bonjour,
Je souhaiterai copier une feuille dans un nouvel onglet mais avec le mois et la date du jour.
Mais mon code ne marche pas :
Sub Copie_Modele()
Sheets("DPE").Copy , Before:=Sheets("DPE")
ActiveSheet.Name = Format(Date, "mm yyyy")
Range("B13").Select
End Sub
Je souhaiterai copier une feuille dans un nouvel onglet mais avec le mois et la date du jour.
Mais mon code ne marche pas :
Sub Copie_Modele()
Sheets("DPE").Copy , Before:=Sheets("DPE")
ActiveSheet.Name = Format(Date, "mm yyyy")
Range("B13").Select
End Sub
A voir également:
- Copier/coller une feuille
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Comment copier une vidéo youtube - Guide
5 réponses
Salut,
Qu'est ce qui ne fonctionne pas dans ton code?
Qu'est ce qui ne fonctionne pas dans ton code?
Sub Copie_Modele()
Sheets("DPE").Copy , Before:=Sheets("DPE")
ActiveSheet.Name = Format(Date, "dd mmmm")
End Sub
Bonjour,
quel est exactement ton problème ? En exécutant ta macro j'obtiens une feuille "07 2010", copie de la feuille DPE. C'est le nom de la feuille qui ne te convient pas ?
quel est exactement ton problème ? En exécutant ta macro j'obtiens une feuille "07 2010", copie de la feuille DPE. C'est le nom de la feuille qui ne te convient pas ?
Merci pour vos réponses.
Le code marche bien cependant comment mettre un message d'erreur pour dire que l'onglet a déjà été crée si jamais la personne essaye de la faire 2 fois de suite:
Sheets("DPE").Copy , Before:=Sheets("DPE")
ActiveSheet.Name = Format(Date, "dd mmmm")
Range("B13").Select
If ActiveSheet.Name = Format(Date, "dd mmmm") Then
MsgBox "Historique déjà effectué ", vbExclamation
Merci :D
Le code marche bien cependant comment mettre un message d'erreur pour dire que l'onglet a déjà été crée si jamais la personne essaye de la faire 2 fois de suite:
Sheets("DPE").Copy , Before:=Sheets("DPE")
ActiveSheet.Name = Format(Date, "dd mmmm")
Range("B13").Select
If ActiveSheet.Name = Format(Date, "dd mmmm") Then
MsgBox "Historique déjà effectué ", vbExclamation
Merci :D
Pour cela, il vous faut boucler au préalable sur toutes les feuilles du classeur actif :
pour la gestion des boucles, voir les tutoriels de Silkyroad
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name = Format(Date, "dd mmmm") Then
MsgBox "Historique déjà effectué ", vbExclamation
Exit Sub
End If
Sheets("DPE").Copy , Before:=Sheets("DPE")
ActiveSheet.Name = Format(Date, "dd mmmm")
pour la gestion des boucles, voir les tutoriels de Silkyroad
Désolé j'ai encore un souci
Voilà j'ai changé mon code avec une boucle d'erreur cependant la dernière ligne génère encore une erreur !! Je sais pas pourquoi :
Sub Erreur()
Dim feuilles As Worksheet
On Error Resume Next
For Each feuilles In ThisWorkbook.Worksheets
On Error GoTo 0
If Not feuilles Is Nothing Then
MsgBox "La feuille existe dans le classeur."
End If
Next
Sheets("DPE").Copy , Before:=Sheets("DPE")
ActiveSheet.Name = Format(Date, "dd mmmm yyyy")
End Sub
Merci
Voilà j'ai changé mon code avec une boucle d'erreur cependant la dernière ligne génère encore une erreur !! Je sais pas pourquoi :
Sub Erreur()
Dim feuilles As Worksheet
On Error Resume Next
For Each feuilles In ThisWorkbook.Worksheets
On Error GoTo 0
If Not feuilles Is Nothing Then
MsgBox "La feuille existe dans le classeur."
End If
Next
Sheets("DPE").Copy , Before:=Sheets("DPE")
ActiveSheet.Name = Format(Date, "dd mmmm yyyy")
End Sub
Merci
Hum hum... Ou as tu été cherché cette macro?
En fait, cette macro n'est pas adaptée à ton cas...
Essaie simplement ceci :
En fait, cette macro n'est pas adaptée à ton cas...
Essaie simplement ceci :
Sub CreerFeuille ()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name = Format(Date, "dd mmmm yyyy") Then
MsgBox "Historique déjà effectué ", vbExclamation
Exit Sub
End If
Next Ws
Sheets("DPE").Copy , Before:=Sheets("DPE")
ActiveSheet.Name = Format(Date, "dd mmmm yyyy")
End Sub
Si tu veux intégrer à ta procédure la notion de "gestion d'erreur", tu as dans le site que je t'ai conseillé plus haut cette macro :
Que tu peux adapter à ta situation comme ceci :
Sub laMacro()
Dim Ws As Worksheet
'Evite le message d'erreur si la feuille n'existe pas.
On Error Resume Next
Set Ws = ThisWorkbook.Worksheets("NomFeuille")
On Error GoTo 0
'(Ws = Nothing quand l'objet attribué à la variable n'existe pas)
If Not Ws Is Nothing Then
MsgBox "La feuille existe dans le classeur."
Else
MsgBox "La feuille n'existe pas dans le classeur."
End If
End Sub
Que tu peux adapter à ta situation comme ceci :
Sub laMacro()
Dim Ws As Worksheet
Dim NomFeuille As String
NomFeuille = Format(Date, "dd mmmm yyyy")
On Error Resume Next
Set Ws = ThisWorkbook.Worksheets(NomFeuille)
On Error GoTo 0
If Not Ws Is Nothing Then
MsgBox "La feuille existe dans le classeur."
Else
Sheets("DPE").Copy , Before:=Sheets("DPE")
ActiveSheet.Name = NomFeuille
End If
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question