VBA - Importation de données d'un autre classeur

Y

Yaloo

XLDnaute Barbatruc

• 8 Mai 2013

• #2

Re : VBA - Importation de données d'un autre classeur

Bonsoir 35niavlys,

Le mieux serait de mettre deux fichiers avec des données non confidentielles, mais représentatif de tes fichiers réels.

A+

Martial

 

Vote positif 0 Vote négatif

3

35niavlys

Guest

• 8 Mai 2013

• #3

Re : VBA - Importation de données d'un autre classeur

Merci pour cette réponse aussi rapide.
Voici le fichier à importer ci-joint avec deux feuilles mais j'en ai normalement 4.
Je souhaite donc importer les colonnes C et D de chaque feuille depuis un autre classeur et mettre ces résultats dans les colonnes A et B d'une seule feuille de ce classeur

 

Pièces jointes

• inventaire.xls

  27 KB · Affichages: 273
• inventaire.xls

  27 KB · Affichages: 258
• inventaire.xls

  27 KB · Affichages: 271

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mai 2013

• #4

Re : VBA - Importation de données d'un autre classeur

Bonsoir à tous

Un exemple simple
(code à mettre et lancer dans inventaire.xls)
Code VBA:
Sub a()
Dim B As Workbook
Set B = Workbooks("toto.xls")'ICI adapter le nom du classeur (il faut qu'il soit ouvert)
Dim ws As Worksheet
Dim dl&
For Each ws In Worksheets
dl = ws.Cells(5, "C").End(xlDown).Row - 5
ws.Cells(6, "C").Resize(dl, 2).Copy B.Sheets(1).Range("A65536").End(xlUp)(2)
Next ws
End Sub

 

Dernière édition: 9 Mai 2013

Vote positif 0 Vote négatif

3

35niavlys

Guest

• 9 Mai 2013

• #5

Re : VBA - Importation de données d'un autre classeur

Pardon mais j'ai mal préciser cela. Je ne souhaite pas modifier quoi que ce soit dans le fichier inventaire.xls (fichier qu'on me fournit). Je veux pouvoir faire les importations depuis un fichier personnel et non exporter les données vers un fichier perso

EDIT : Ci-joint le résultat que je souhaiterais dans le fichier Import. Je veux que à l'ouverture de Import.xls, je retrouve deux colonnes (triées)...

Merci

 

Pièces jointes

• Import.xls

  23 KB · Affichages: 254
• Import.xls

  23 KB · Affichages: 247
• Import.xls

  23 KB · Affichages: 283

Dernière modification par un modérateur: 9 Mai 2013

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mai 2013

• #6

Re : VBA - Importation de données d'un autre classeur

Re

Le code VBA précédemment soumis ne modifie pas les données du fichier inventaire.
Il suffisait juste d'insérer temporairement un module puis d'y coller la macro de l'éxécuter
Ensuite à la fermeture, ne pas enregistrer les modifications.

Je suppose que tu n'as pas essayé la macro sur une copie de tes fichiers (donc sans risque pour tes originaux) ?

 

Vote positif 0 Vote négatif

3

35niavlys

Guest

• 9 Mai 2013

• #7

Re : VBA - Importation de données d'un autre classeur

Oups j'ai fait une modification de mon message précédent le temps que vous postiez ce message.
J'ai testé votre code, il fonctionne très bien mais c'est important pour moi de ne pas avoir à modifier le fichier inventaire car c'est un fichier que je reçois très régulièrement et je ne souhaite pas y coller la macro a chaque fois que je reçois un nouveau fichier.

EDIT : j'ai réussi à faire les modifications que je souhaitais, il me reste plus qu'à trouver comment trier les colonne par ordre alphabétique

 

Dernière modification par un modérateur: 9 Mai 2013

Vote positif 0 Vote négatif

3

35niavlys

Guest

• 9 Mai 2013

• #8

Re : VBA - Importation de données d'un autre classeur

Voila j'ai réussi à faire ce que je voulais.

Merci beaucoup pour votre aide.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mai 2013

• #9

Re : VBA - Importation de données d'un autre classeur

Re

Mon code précédent modifié (à ne pas mettre dans inventaire.xls donc 😉 )

Code:

Sub b()
Dim wA As Workbook
Dim wB As Workbook
Set wA = ThisWorkbook
Set wB = Workbooks("toto.xls") 'ICI adapter le nom du classeur (il faut qu'il soit ouvert)
Dim ws As Worksheet
Dim dl&
With wB
    For Each ws In .Worksheets
    dl = ws.Cells(5, "C").End(xlDown).Row - 5
    ws.Cells(6, "C").Resize(dl, 2).Copy wA.Sheets(1).Range("A65536").End(xlUp)(2)
    Next ws
End With
End Sub

Pour le tri, l’enregistreur de macros devrait pouvoir t'aider 😉

 

Vote positif 0 Vote négatif