Récupérer les données dans un autre classeur excel

Lone-wolf à dit:

Bonjour leagrim et bienvenue sur XLD,

j'ai ajouter un module d'un programmeur qui s'appelle Ron de Bruin qui copie les données sans avoir à ouvrir le classeur source.

Si le classeur Fichier notes et stages élèves ne se trouve pas dans le même dossier que Fichier stat, il faut modifier le chemin par le chemin complet où se trouve le classeur source.

Exemple: ThisWorkbook.Path par "C:\Users\lea\Documents\"

Note: comme les classeurs xlsx ne prennent pas en charge les macros, j'ai réengistrer les classeurs avec l'extension .xls et mis en commentaires dans Module1 ce qui faut changer.




A bientôt 😎

Cliquez pour agrandir...

Lone-wolf à dit:

Bonjour Léa,

je ne sais pas ce qui c'est passé, j'avais mis en .zip les deux classeurs pourtant.

Bon, bein... je vais recommencer.



EDIT: voilà c'est fait. Le Module1 est dans le classeur Fichier stat élèves.


Désolé pour le désagrément.



A+ 😎

Cliquez pour agrandir...

Lone-wolf à dit:

Rebonjour Lea,

Voici le code quasi complet, bein oui, c'est toi qui connaît les chemins des classeurs et ce qu'il faut mettre.

Code:

Public chemin(1 To 10) As String
Public fichier(1 To 10) As String
Public feuille(1 To 10) As String
Public cellules(1 To 10) As String

Sub Importation()
'chemin à modifier si le classeur source n'est pas _
dans le même dossier par "C:\Users\lea\Documents\"
chemin(1) = ThisWorkbook.Path
fichier(1) = "\Fichier notes et stages élèves.xls"
'A modifier si la feuille n'est pas la même _
ou si elle a un nom différent
feuille(1) = "Feuil1"
'Là aussi, si plage plus grande.
cellules(1) = "a1:e52"
GetData chemin(1) & fichier(1), feuille(1), cellules(1), _
ActiveSheet.Range("a1"), True, True

chemin(2) = "D:\Dossiers Excel\The Best Of VBA\Commerciaux\"
fichier(2) = "Source.xls"
feuille(2) = "Feuil1"
cellules(2) = "a1:c23"
GetData chemin(2) & fichier(2), feuille(2), cellules(2), _
ActiveSheet.Range("g1"), True, True

chemin(3) = "D:\Dossiers Excel\The Best Of VBA\"
fichier(3) = "Recherche sur 2 critères.xls"
feuille(3) = "Feuil1"
cellules(3) = "b1:b400"
GetData chemin(3) & fichier(3), feuille(3), cellules(3), _
'A modifier selon le nombre de colonnes que tu veux copier
ActiveSheet.Range("q1"), True, True

Call Importation2
End Sub

Sub Importation2()
chemin(1) = "D:\Dossiers Excel\The Best Of VBA\Commerciaux\"
fichier(1) = "Source.xls"
feuille(1) = "Feuil1"
cellules(1) = "d1:e23"
GetData chemin(1) & fichier(1), feuille(1), cellules(1), _
ActiveSheet.Range("j1"), True, True

Call Importation3
End Sub

Sub Importation3()
chemin(1) = "D:\Dossiers Excel\The Best Of VBA\Commerciaux\"
fichier(1) = "Source.xls"
feuille(1) = "Feuil1"
cellules(1) = "f1:i23"
GetData chemin(1) & fichier(1), feuille(1), cellules(1), _
ActiveSheet.Range("l1"), True, True

'ActiveSheet.Columns("A:X").AutoFit
'A inserer dans la dernière macro _
pour ajustement automatique des cellules
End Sub

Pourquoi les doublons dans les Macros?

Parce qu'en mettant tout dans la macro principale, vu qu'il y a plusieurs fois le même chemin et classeur, comme il ne sais pas où allez copier les données, il affiche des message d'erreurs. De plus, comme Excel, on ne peux pas faire une sélection multiple.

Voià, avec ça "tu vas casser la barraque" 😉





A+ 😎

Cliquez pour agrandir...

J'essaie de comprendre ... Là je lui dis bien d'aller chercher dans la fichier "note pfe ..." dans le dossier projet math et dass la feuille enquête insertion ?

Cliquez pour agrandir...

A quel moment je lui dis quelle donnée chercher?

Cliquez pour agrandir...

Et concernant le fait de chercher la note par rapport au nom, c'est ActiveSheet.Range("a1"), True, True ?

Cliquez pour agrandir...