Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier une feuille dans un autre classeur? [ RESOLU]

  • Initiateur de la discussion Initiateur de la discussion DEDOuze
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

DEDOuze

XLDnaute Nouveau
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 :

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:
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 :

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

A+
 
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
 
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 :

Code:
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+
 
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

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

zêtes des chefs !
bon dimanche
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…