bonsoir à tous,
après moult recherches je n'ai pas trouvé la solution, donc j'implore votre aide
jutilise une macro pour copier une feuille dans un autre classeur en lui donnant comme nom une date située en d2.
ça marche nikel sauf que quand ce nom existe déjà, j'ai bien entendu un message d'erreur, jaimerais que si la feuille existe déjà, elle soit supprimée et remplacée.
Voici mon code :
un grand merci à ceux qui prendront la peine de m'aider.
DEDOu
après moult recherches je n'ai pas trouvé la solution, donc j'implore votre aide
jutilise une macro pour copier une feuille dans un autre classeur en lui donnant comme nom une date située en d2.
ça marche nikel sauf que quand ce nom existe déjà, j'ai bien entendu un message d'erreur, jaimerais que si la feuille existe déjà, elle soit supprimée et remplacée.
Voici mon code :
Code:
Sub copiematrice()
Workbooks.Open Filename:="C:\ObjectifJournal\janvier.xls"
Windows("journal1.xls").Activate
Sheets("MATRICE").Select
DateJour = Range("d2").Value
' Extraction de JJ-MM-AAAA Le nom de feuille n'accepte pas les /
JourDate = Left(DateJour, 2) & " " & Mid(DateJour, 4, 2) & " " & Mid(DateJour, 7, 4)
Sheets("MATRICE").Copy After:=Workbooks("janvier.xls").Sheets(1)
' Attribution du nom de la nouvelle feuille
ActiveSheet.Name = JourDate
End Sub
un grand merci à ceux qui prendront la peine de m'aider.
DEDOu
Dernière édition: