Copie onglets VBA
Résolu
gil2222
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 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 !!!
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 !!!
A voir également:
- Copie onglets VBA
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
- Copie rapide - Télécharger - Gestion de fichiers
9 réponses
Bonjour,
code a mettre dans un module classeur A. Adaptez les noms de chemin, fichier, onglet a votre contexte.
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
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 ?
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 ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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. 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...