Discussion :

[didi73]

Bonjour,

j'ai parcouru le forum mais je n'ai pas vu de solution à mon petit souci !
j'essaie de faire une macro me permettant d'ouvrir successivement des fichiers .txt dont les noms sont dans une colonne excel.
je n'arrive pas à écrire les lignes de commandes dans la macro pour pointer par exemple sur le nom du fichier (avec le chemin d'accès inclus) situer dans la cellule A1 et faire défiler ma macro sur ce fichier.
en fait, j'aimerai que l'utilisateur puisse lancer la macro et sélectionner le nom de fichier dans la colonne excel.
merci pour votre aide

didi73

[doringen]

Voici un bout de code qui devrait le faire:

Code :

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

1
2
3
4
5
6
7
 
Sub Makro2()
Dim nomclasseur As String
I = imputbox("Indiquer le numéro de ligne correpsondant à l´adresse du fichier")
nomclasseur = Sheets("ton classeur cible").Range("A" & I).Value
Workbooks.Open Filename:=nomclasseur
End Sub

[ouskel'n'or]

Code :

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

Set LaCellule = Application.InputBox(prompt := "Sélectionner le fichier (la cellule)", type := 8)

Avec cette ligne tu permets à l'utilisateur de sélectionner une cellule directement dans la feuille de calculs et tu récupères le nom du fichier .

Code :

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

LaCellule.value

et avec le nom du fichier... tu appliques la partie qui t'intéresse dans le code de doringen
A+

PS - Tu devras tester la colonne pour les rigolos qui sélectionneront n'importe quoi
Attention, il est possible de sélectionner plusieurs cellules ou même une plage.
A gérer !

[didi73]

merci pour vos réponses,
je n'ai pas eu le temps de tester tout ça mais je m'y remets d'ici peu !!!
merci