Copie onglets VBA

Résolu
Bonjour,
Je souhaiterais qu'un classeur A en s'ouvrant, récupère le contenu d'un onglet d'un classeur B et colle ce contenu dans le même onglet du classeur A.
Tout ceci en VBA.
J'ai fait quelques essais.
Ca va jusque l'ouverture du classeur B, mais après ?!?!?
Merci de votre réponse;

Hello, j'aurais besoin d'une réponse rapide si possible !!!

9 réponses

  1. 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
    
    0
    1. 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 ?
      0
      1. Hello !!
        Je n'y arrive toujours pas.
        0
        1. Bonjour,
          Juste au passage contrôler que la feuille [export] existe ... !

          0
          1. Re,

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

            Eh ben !!!!!
            0
            1. Les feuilles existent.
              Et pourtant çà plante.
              Je désespère et comprends pas.
              0
              1. 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...
                0
                1. trop gros mes fichiers.
                  Je revoie.
                  0
                  1. Bonjour,
                    Juste au passage, avec un bonjour en plus, vous pouvez compresser le fichier (ZIP, RAR ...), cela prend moins de place.
                    Salutations
                    Le Pingou
                    0
                2. 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.
                  0
                  1. Bonjour,
                    Merci. Ok résolu.
                    Salutations
                    Le Pingou
                    0