Copie onglets VBA

BONJOUR !!!!
Le problème est résolu différemment.
J'ai seulement ouvert le classeur B à l'ouverture du classeur A après avoir préparé une copie avec liaison de l'onglet à dupliquer.
Ca fonctionne.

merci quand même de vous être penchés sur le pb.

A peut-être bientôt.
Bon week-end.

trop gros mes fichiers.
Je revoie.

Re,

Les feuilles existent. Oui, mais avez-vous modifie tous les noms dans le code ???

Pouvez-vous mettre vos fichiers a dispo sans donnees confidentielles??

Pour transmettre un fichier,
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

Les feuilles existent.
Et pourtant çà plante.
Je désespère et comprends pas.

Re,

J'ai ecrit: Adaptez les noms de chemin, fichier, onglet a votre contexte.

Eh ben !!!!!

Bonjour,
Juste au passage contrôler que la feuille [export] existe ... !

Hello !!
Je n'y arrive toujours pas.

Merci f894009
Ok jusque l'ouverture fichier, mais à la ligne du déplacement:
Sheets("export") ... Message "Indice n'appartient pas à la sélection"
J'ai remplacé "date " par un de mes onglets existant.
Je pense que c'est sur "export" que çà plante ?

Bonjour,

code a mettre dans un module classeur A. Adaptez les noms de chemin, fichier, onglet a votre contexte.

Sub Import_FExport_xlsx()
    Dim wh As Worksheet
    
    Application.ScreenUpdating = False
    'recherche onglet Export_xlsx et suppression
    For Each wh In Worksheets
        If wh.Name = "Export_xlsx" Then
            'desactive alerte EXCEL
            Application.DisplayAlerts = False
            Sheets("Export_xlsx").Delete
            'Active alerte EXCEL
            Application.DisplayAlerts = True
            Exit For
        End If
    Next
    Chemin_Fichier = "D:\_Docs_Prog_Excel\_Excel_a_traiter\ney_ney25_csv\"
    nom_fichier = "export.xlsx"
    'ouverture classeur B
    Workbooks.Open Filename:=Chemin_Fichier & nom_fichier
    'deplacement onglet classeur B vers classeur A
    Sheets("export").Move After:=ThisWorkbook.Worksheets("Date")
    'renomme l'onglet dans classeur A
    ActiveSheet.Name = "Export_xlsx"
End Sub