copier une feuille dans un autre classeur? [ RESOLU]

[DEDOuze]

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 :

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

 

[job75]

Re : copier une feuille dans un autre classeur? problème de doublon ...

Bonjour DEDOuze, Jean-Marcel, le forum,

Perso j'écrirai à la fin de la macro :

' Attribution du nom de la nouvelle feuille
On Error Resume Next
Application.DisplayAlerts = False
Sheets(JourDate).Delete
ActiveSheet.Name = JourDate

A+

 

[DEDOuze]

Re : copier une feuille dans un autre classeur? problème de doublon ...

bonjour ! merci merci pour vos réponses,
oui la nouvelle feuille doit écraser l'ancienne,
je vais tester ça et reviens vite
encore merci et bon dimanche

 

[job75]

Re : copier une feuille dans un autre classeur? problème de doublon ...

Re Jean-Marcel,

OK, mais si l'on ne veut pas remplacer la feuille existante, mieux vaut ne pas créer une nouvelle feuille :

On Error Resume Next
If IsError(Sheets(JourDate).Name) Then
  Sheets("MATRICE").Copy After:=Workbooks("janvier.xls").Sheets(1)
  ActiveSheet.Name = JourDate
Else
  MsgBox "Le feuille '" & JourDate & "' existe déja "
End If

A+

 

[DEDOuze]

Re : copier une feuille dans un autre classeur? problème RESOLU

ok, ça marche
génial, merci à vous deux
voilà ce que ça donne, jai testé 4,5 fois

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)
    On Error Resume Next
Application.DisplayAlerts = False
Sheets(JourDate).Delete
ActiveSheet.Name = JourDate
    
End Sub

zêtes des chefs !
bon dimanche