Discussion :

[jbggg]

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

[Godzestla]

Salut,

tu peux trouver des pistes à http://www.developpez.net/forums/sho...d.php?t=549234.

[jbggg]

et est-ce possible que l'utilisateur puisse allez le chercher ou il veut.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
filename = Sheets("Feuill1").Range("A1")

[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....)

[Godzestla]

Désolé, ça je ne sais pas si c'est possible.

[mayekeul]

bonjour,

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

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

pour cela il te suffit de passer par la methode GetOpenFilename

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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")