Copie onglets VBA

Résolu
gil2222 Messages postés 6 Statut Membre -  
Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   -
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. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  2. gil2222 Messages postés 6 Statut Membre
     
    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
  3. gil2222 Messages postés 6 Statut Membre
     
    Hello !!
    Je n'y arrive toujours pas.
    0
  4. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Juste au passage contrôler que la feuille [export] existe ... !

    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

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

    Eh ben !!!!!
    0
  7. gil2222 Messages postés 6 Statut Membre
     
    Les feuilles existent.
    Et pourtant çà plante.
    Je désespère et comprends pas.
    0
  8. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  9. gil2222 Messages postés 6 Statut Membre
     
    trop gros mes fichiers.
    Je revoie.
    0
    1. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
       
      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
  10. gil2222 Messages postés 6 Statut Membre
     
    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. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
       
      Bonjour,
      Merci. Ok résolu.
      Salutations
      Le Pingou
      0