importer des données d'un autre fichier excel

Version imprimable

26/05/2008, 15h44
jbggg

importer des données d'un autre fichier excel

Bonjour,

je souhaite à partir d'un autre fichier excel remplir des cellules de mon projet.

Pourriez vous m'indiquer comment m'y prendre car je ne sais pas du tout faire.

en gros: dans mon projet j'ai 3 colonnes à remplir (AH, AV, DI).
dans mon autre fichier, les colonnes à sélectionner et à intégrer à mon projet porte le meme non.

Maisce sera à l'utilisateur d'indiquer le chemin de ce deuxième fichier.

merci
26/05/2008, 15h54
Godzestla

Salut,

tu peux trouver des pistes à http://www.developpez.net/forums/sho...d.php?t=549234.
:lol:
26/05/2008, 15h57
jbggg

et est-ce possible que l'utilisateur puisse allez le chercher ou il veut.
26/05/2008, 16h06
Godzestla
Oui.

Tu veux cela complètement libre ou quand même régulé ?

Il y un exemple avec userform à http://www.developpez.net/forums/sho...d.php?t=552993.

Tu peux aussi faire encoder le nom complet de ton fichier input dans une cellule et l'utiliser comme fichier source.

Ex : dans la feuille Feuill1 en A1 se trouve le nom du fichier :
Code:

1 2 filename = Sheets("Feuill1").Range("A1")
;)
26/05/2008, 16h11
jbggg

oui bon alors je vais faire plus simple.

le deuxième fichier devra avoir un nom spécifique. mais alors pour son emplacement n'y a-t-il pas un moyen de lui dire qu'il est dans le meme dossier que le projet (parce que si je l'envoie, pour mon rendu de projet, à mon prof et qu'il ne le met pas dans le meme dossier que moi....)
26/05/2008, 16h25
Godzestla

Désolé, ça je ne sais pas si c'est possible.:cry:
26/05/2008, 16h51
mayekeul
bonjour,

alors si j'ai bien compris ton problème deux choses

Citation:

le deuxième fichier devra avoir un nom spécifique.

pour cela il te suffit de passer par la methode GetOpenFilename

Citation:

mais alors pour son emplacement n'y a-t-il pas un moyen de lui dire qu'il est dans le meme dossier que le projet (parce que si je l'envoie, pour mon rendu de projet, à mon prof et qu'il ne le met pas dans le meme dossier que moi....)

tu dois lui indiquer de changer de répertoire suivant l'emplacement du fichier

donc un truc du genre
Code:

1 2 3 4 5 6 7 Dim fileName As String ChDrive Left(ThisWorkbook.Path, 1) ChDir ThisWorkbook.Path fileName = Application.GetOpenFilename("Excel Files(*.xls),*.xls")