Chemin dans une variable

[chrisdu73]

Bonjour,

je n'arrive pas a trouver sur le forum mon problème.
Voilà je voudrais ouvrir un fichier à un moment donné dans mon code, mais le chemin de se fichier change régulièrement, alors je voudrais le declarer dans une variable qui irai lire un fichier INI qui lui, se trouverai dans un endroit fixe.
Si vous auriez une petite piste ?
merci d'avance

 

[job75]

Re : Chemin dans une variable

Bonjour chrisdu73,

Je suppose que ce fichier INI est un fichier Excel ?

Piste => on peu lire dans un fichier fermé.

Très facile s'il s'agit de lire quelques cellules, toujours les mêmes => nombreux exemples sur ce forum.

A+

 

[chrisdu73]

Re : Chemin dans une variable

Merci Job75,

le fichier INI est un fichier TXT tout simplement ou il y a différentes lignes qui comporte des chemins style:
Chemin1 = "\\Serveur\travail\utilisation"
Chemin2 = "\\Serveur\travail\stockage\2010"

Mon but est d'insérer une ligne dans mon code qui sache aller lire le chemin dans le fichier INI qui lui se trouve toujours au même endroit.
Du faite que les chemin changes souvent il est plus facile de changer ceux ci dans le fichier INI que dans toutes les pages de code.
encore merci pour votre aide.
Bonne journée a tous

 

[Pierrot93]

Re : Chemin dans une variable

Bonjour,

regarde ce lien, un code pour lire un fichier texte :
https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/
bonne journée
@+

 

[chrisdu73]

Re : Chemin dans une variable

Bonjour Pierrot93,
Mais en regardant tout cela, ca fait beaucoup allusion à Word (pilotage de Word à travers Excel ou lecture d'un Doc vers Excel)
merci quand même d'avoir regardé mon probléme
A+

 

[Pierrot93]

Re : Chemin dans une variable

Re,

tu n'as peut être pas été jusqu'au bout, vers la fin il y a ceci qui me parait adapté à ta problèmatique...

Lire un fichier Texte : boucler sur toutes les lignes du fichier
Dans l'exemple , un message s'affiche si le début de la ligne commence par "XLD"
Sub lireFichierTexte()
Dim infosLigne As String
Open "C:\Mes documents\xl\fichierTexte.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, infosLigne
If Left(infosLigne, 3) = "XLD" Then Msgbox infosLigne
Loop
Close #1
End Sub

 

[job75]

Re : Chemin dans une variable

Bonjour chrisdu73, salut Pierrot,

On peut toujours faire ouvrir un fichier txt par Excel.

Enregistrez les 2 fichiers joints au même endroit (bureau) et voyez cette macro :

Sub CopierFichierTXT()
Application.ScreenUpdating = False
On Error Resume Next
Workbooks.Open ThisWorkbook.Path & "\FichierTXT.txt"
If Err Then MsgBox "FichierTXT introuvable...", 48: Exit Sub
With ActiveWorkbook
  [B5:B6] = .Sheets(1).[A1:A2].Value
  .Close
End With
End Sub

A+

 

[chrisdu73]

Re : Chemin dans une variable

Merci tout les 2, je regarde et si cela peu fonctionné dans mon cas.
Encore merci et bonne journée.