Macro pour copier coller des onglets de différents fichiers
Résolu/Fermé
yvon2014
Messages postés
4
Date d'inscription
vendredi 31 janvier 2014
Statut
Membre
Dernière intervention
5 février 2014
-
Modifié par pijaku le 4/02/2014 à 11:32
yvon2014 Messages postés 4 Date d'inscription vendredi 31 janvier 2014 Statut Membre Dernière intervention 5 février 2014 - 5 févr. 2014 à 01:26
yvon2014 Messages postés 4 Date d'inscription vendredi 31 janvier 2014 Statut Membre Dernière intervention 5 février 2014 - 5 févr. 2014 à 01:26
A voir également:
- Macro pour copier coller des onglets de différents fichiers
- Copier coller pdf - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Restaurer onglets chrome - Guide
- Copier une vidéo youtube - Guide
- Macro logiciel - Télécharger - Organisation
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
31 janv. 2014 à 11:45
31 janv. 2014 à 11:45
Bonjour,
du mal à s'y retrouver dans les noms de classeur:
Nom_salon ????
1. Conversion + thisworkbook ???
Pourquoi des liens hypertexte ?
Combien de "sources" à copier ?
Les feuilles à copier sont elles des listes (bases) de données avec le m^me nombre de colonnes?
Joindre une feuille type à copier
D'avance merci
du mal à s'y retrouver dans les noms de classeur:
Nom_salon ????
1. Conversion + thisworkbook ???
Pourquoi des liens hypertexte ?
Combien de "sources" à copier ?
Les feuilles à copier sont elles des listes (bases) de données avec le m^me nombre de colonnes?
Joindre une feuille type à copier
D'avance merci
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
4 févr. 2014 à 11:28
4 févr. 2014 à 11:28
Bonjour,
Tu écris
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = curCell.Value & " " & curCell.Offset(0, 1).Value
soit par ex "nom_1 X1"
et + loin (pour coller)
Workbooks("1. Conversion.xlsm").Worksheets(curCell.Value).Range("A1")
soit "nom_1"
cet onglet n'existe pas puisque nommé + haut "nom_1 X1"
le lien hypertexte parait également bizarre
ou alors, j'ai mal compris....
Tu écris
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = curCell.Value & " " & curCell.Offset(0, 1).Value
soit par ex "nom_1 X1"
et + loin (pour coller)
Workbooks("1. Conversion.xlsm").Worksheets(curCell.Value).Range("A1")
soit "nom_1"
cet onglet n'existe pas puisque nommé + haut "nom_1 X1"
le lien hypertexte parait également bizarre
ou alors, j'ai mal compris....
yvon2014
Messages postés
4
Date d'inscription
vendredi 31 janvier 2014
Statut
Membre
Dernière intervention
5 février 2014
5 févr. 2014 à 01:26
5 févr. 2014 à 01:26
Bonjour Michel,
un énorme merci d'avoir pointé ça!
j'ai supprimé la partie que tu avais mise en gras( soit & " " & curCell.Offset(0, 1).Value) et cela marche parfaitement!
Un énorme merci
Pour le lien hypertexte, c'est le copier / coller d'un code que j'avais trouvé, et il marche trés bien!
un énorme merci d'avoir pointé ça!
j'ai supprimé la partie que tu avais mise en gras( soit & " " & curCell.Offset(0, 1).Value) et cela marche parfaitement!
Un énorme merci
Pour le lien hypertexte, c'est le copier / coller d'un code que j'avais trouvé, et il marche trés bien!
3 févr. 2014 à 04:29
oui, c'est trés fouilli!
Alors, oui "1. conversion" est le fichier sur lequel je travaille, donc je pense que cela doit bien être thisworkbook
Le lien hypertexte est là pour me pertmettre d'accéder directement à l'onglet de la société une fois mise à jour.
Le but de cette macro est de récupérer les données de toutes les sociétés que j'aurais listées sur le 1er onglet. Il y aura donc autant de fichiers sources que de nom dans la liste.
Tous les fichiers sources ont un format similaire (Profit & Loss).
Voici mon fichier source type:
https://www.cjoint.com/?3BdeCXhANtn
Merci!
Modifié par michel_m le 3/02/2014 à 08:42
Suis absent toute la journée... Sois patient, Merci
Avec le décalage horaire....
3 févr. 2014 à 23:45
Pas de soucis, le décalage complique effectivement un peu tout!
Merci de prendre le temps pour mon problèmen!