Macro pour récupérer le contenu d'un notepad

[chris6999]

Bonsoir

Je souhaiterais depuis un fichier excel, lancer une macro pour ouvrir un fichier notepad
(le chemin étant mentionné dans une des cellules de mon fichier EX CELLULE A1)
Récupérer les données du notepad et les coller dans un cellule de mon fichier.EX CELLULE B1


Est-ce que quelqu'un pourrait m'aider?
Merci d'avance
Cordialement

 

[Gareth]

Re : Macro pour récupérer le contenu d'un notepad

Bonsoir,

Ci-joint un exemple à tester et adapter.
Pour tester copier le dossier joint en local et ouvrir le XLS

 

[chris6999]

Re : Macro pour récupérer le contenu d'un notepad

Bonjour Gareth

Merci encore de m'aider.

J'ai positionné l'adresse complète du notepad dans A1 après avoir enregistré les deux fichiers sur mon bureau.
Ex de chemin C:\Users\Christelle\Desktop\Test\Toto.txt

Quand je lance la macro j'ai un bug 1004. Le système semble bloquer sur
Workbooks.OpenText Filename:=Chemin & "\" & Fic

Ce code tant assez obscur je ne comprends pas ce qui le gêne

Cordialement

 

[chris6999]

Re : Macro pour récupérer le contenu d'un notepad

Bonsoir,

Ci-joint un exemple à tester et adapter.
Pour tester copier le dossier joint en local et ouvrir le XLS

Entre temps 'ai un peu modifié le code. Le nom du fichier étant intégré dans le chemin positionné en A1 j'ai sûpprimé la notion de
Chemin = ThisWorkbook.Path

Cela donne
Sub test()

Fic = Sheets("Feuil1").Range("A1").Value
Workbooks.OpenText Filename:=Fic
Workbooks(Fic).Sheets(Left(Fic, Len(Fic) - 4)).Range("A1").Copy ThisWorkbook.Sheets("Feuil1").Range("B1")
Workbooks(Fic).Close False
End Sub

Du coup il trouve bien le note pad il copie le contenu mais le souci c'est qu'il recolle le tout dans A1 (à la place du chemin) et semble supprimer tout ce qui se trouve dans la feuille 1.

Je coince
Cordialement

 

[Gareth]

Re : Macro pour récupérer le contenu d'un notepad

Bonjour,

Tu peux essayer ceci :

Sub test2()
Fic = ThisWorkbook.Sheets("Feuil1").Range("A1").Value
Workbooks.OpenText Filename:=Fic
NomFic = Right(Fic, Len(Fic) - InStrRev(Fic, "\"))
Workbooks(NomFic).Sheets(1).Range("A1").Copy ThisWorkbook.Sheets("Feuil1").Range("B1")
Workbooks(NomFic).Close False
End Sub

 

[chris6999]

RESOLU Macro pour récupérer le contenu d'un notepad

Bonsoir

J'ai rien compris à ce code mais le résultat est là! Cela fonctionne nickel

Je te suis très reconnaissante car cela débloque mon projet

Bonne soirée

 

[Gareth]

Re : Macro pour récupérer le contenu d'un notepad

Bonjour,

Quelques commentaires

Sub test2()
 Fic = ThisWorkbook.Sheets("Feuil1").Range("A1").Value 'Contient le chemin et le nom du Txt
 Workbooks.OpenText Filename:=Fic 'Ouvre le fichier
 NomFic = Right(Fic, Len(Fic) - InStrRev(Fic, "\")) 'Récupère le nom du fichier sans le Chemin (On cherche le dernier "\" et on extrait par la droite "Right" (Len renvoi le nb de caracteres de Fic
 Workbooks(NomFic).Sheets(1).Range("A1").Copy ThisWorkbook.Sheets("Feuil1").Range("B1") 'Ici, on copie la cellule A1 de Toto.txt vers B1 de l'active workbook
 Workbooks(NomFic).Close False 'On ferme le txt
 End Sub