Chemin dans une variable

job75

XLDnaute Barbatruc

• 8 Mars 2011

• #2

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+

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 9 Mars 2011

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Mars 2011

• #4

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
@+

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 9 Mars 2011

• #5

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+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Mars 2011

• #6

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Mars 2011

• #7

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 :

Code:

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+

 

Pièces jointes

• Classeur(1).zip

  11 KB · Affichages: 14
• Classeur(1).zip

  11 KB · Affichages: 13
• Classeur(1).zip

  11 KB · Affichages: 13

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 10 Mars 2011

• #8

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.

 

Vote positif 0 Vote négatif