Discussion :

[Keotrip]

Bonjour,

Je débute actuellement en VBA,
J'aimerai pourtant mettre en place une petite macro pour des fichier excel aux seins de mon entreprise.

J'ai 2 fichier excel A et B, J'aimerai importer dans le fichier B des cellules de la feuille2 de mon fichier A.. jusque la rien de sorcier me diriez vous, excel peut le faire sans VBA. Mais voila, A est variable .

En gros le chemin de mon fichier A est c:/documents/A/A.xlsm.
La variable A se trouveras dans une cellule du fichier B (j'ajouterais un bouton en face pour actualisé la page après avoir rempli cette cellule).
Il y auras plusieurs cellule importées depuis A et peut être de feuille différente.

Merci de l'intérêt que vous pourriez porter a ma demande.

Cordialement,

Keotrip

[CodeFacile]

Il n'y a pas de problème particulier. Un chemin et un nom de fichier c'est une chaine de caractère.
Tu parles d'un bouton pour lancer l'import , tu comprendras aisément qu'il manque une variable qui est le nom ou la lettre correspondant au fichier. Après l'appui sur bouton, il faut prévoir une boite de dialogue pour récupérer l'infos .
Dans la procédure qui est lancé par l'appui sur le bouton , tu peux mettre le code simpliste suivant :

Code :

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

1
2
3
4
5
 
nomfic = InputBox(" Donner le nom du fichier ( sans Extension)")
    If Len(nomfic) > 0 Then
         Workbooks.Open Filename:=chemin_fic & nomfic & "\" & nomfic & ".xls"
   End If

Dans l'étape suivant , il faut fiabiliser le code : vérifier que le fichier existe avant de lancer l'ouverture ....

Il y a des variantes , ou l'ouverture de fichier est une procédure dans laquelle on passe un paramétre qui est la chaine correspondant au nom.
Il faut démarrer et les difficultés s'apréhendent une à une .
Bon courage.

[Keotrip]

Merci bien pour cette petite solution au niveau du bouton, fort ergonomique.

Mais ce que je cherchais a faire n'étais pas d'ouvrir le fichier A , mais d'importer des cellules d'une feuille précise de ce fichier vers mon fichier B (celui ou se trouve le bouton).

Il me manque la commande d'importations des données.

Puis je simplement dire que la cellule B1 (part exemple) soit egale a "='C:\" & nomfic & "\[" & nomfic & ".xlsm]DONNEES'!$B2"..

Mais comment forcer cette cellule , me manque toujours la commande .

Merci pour tous.

Edit : j'ai trouvé , J'envoi mon ebauche,

Code :

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

1
2
3
4
5
6
7
8
9
Sub Bouton1_Clic()
 
nomfic = InputBox(" Donner le nom du fichier ( sans Extension)")
    If Len(nomfic) > 0 Then
      Range("B2") = "='C:\Partage\Devis XLS\" & nomfic & "\[" & nomfic & ".xlsm]DONNEES'!$B2"
 
   End If
 
End Sub

Keotrip

[Keotrip]

Me reste un dernier petit problème, Vérifier que le fichier existe bien ..

Merci