Macro extraction de données
Darrodge
Messages postés
2
Statut
Membre
-
maxmen67 Messages postés 58 Statut Membre -
maxmen67 Messages postés 58 Statut Membre -
Bonjour,
Je dois réaliser une macro permettant de récupérer les données de plusieurs feuilles Excel, contenues dans le même dossier, et de les coller dans une feuille appelée "Base de données".
Les données que je souhaite récupérer dans les feuilles sont situées en colonne N, et je souhaite qu'à chaque fois qu'une colonne est copiée dans la base de données, on incrémente le nombre de colonnes afin de copier les données de la feuille suivante dans la colonne suivante.
J'ai essayé de reprendre la macro qui était dans la discussion:
https://forums.commentcamarche.net/forum/affich-24651887-excel-macro-extraction-donnees
mais je n'arrive pas à réorganiser les données comme je le souhaite.
Merci par avance pour vos éclaircissements :)
Je dois réaliser une macro permettant de récupérer les données de plusieurs feuilles Excel, contenues dans le même dossier, et de les coller dans une feuille appelée "Base de données".
Les données que je souhaite récupérer dans les feuilles sont situées en colonne N, et je souhaite qu'à chaque fois qu'une colonne est copiée dans la base de données, on incrémente le nombre de colonnes afin de copier les données de la feuille suivante dans la colonne suivante.
J'ai essayé de reprendre la macro qui était dans la discussion:
https://forums.commentcamarche.net/forum/affich-24651887-excel-macro-extraction-donnees
mais je n'arrive pas à réorganiser les données comme je le souhaite.
Merci par avance pour vos éclaircissements :)
A voir également:
- Macro extraction de données
- Fuite données maif - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Supprimer les données de navigation - Guide
- Trier des données excel - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
Salut;
Voici un code simple et efficace:
Voici un code simple et efficace:
'identification des classeurs
Set Wbk1 = Workbooks.Open(Filename:="chemin du fichier avec les données")
Set Wbk2 = ThisWorkbook
'Set Wbk2 = ThisWorkbook, si le classeur est celui ou se trouve le code
Wbk2.Sheets("nom de la feuille où il faut mettre les données").Range("G2:G38") '=> selection de la colonne dans laquelle il faut mettre les données .Value = Wbk1.Sheets("feuille de données").Range("G2:G38").Value '=> feuille + plage de cellules à copier
