Copie onglets VBA Résolu/Fermé

Question

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

f894009 · Answer

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

gil2222 · Answer

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 ?

gil2222 · Answer

Hello !!
Je n'y arrive toujours pas.

Le Pingou · Answer

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

f894009 · Answer

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

gil2222 · Answer

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

f894009 · Answer

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

gil2222 · Answer

trop gros mes fichiers.
Je revoie.

gil2222 · Answer

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.

Copie onglets VBA

9 réponses

Discussions similaires