Ouvrir un fichier txt avec un chemin dépendant d'une cellule

Bonsoir,

D'avance je tenais à m'excuser car je suis une vraie bille en vba...ça doit être mon deuxième code et encore j'ai utilisé l'enregistreur d'Excel.

voici le code que j'ai :

Sub Sofbel()

'

' Sofbel Macro

'

Dim monfichier As String

monfichier = ActiveWorkbook.Name

Dim kbo As String

Dim chemin As String

'

Sheets("EXTSOF05").Select

Columns("A:P").Select

Selection.ClearContents

ChDir "C:\Data\Wtsofbel_Cut\output"

Workbooks.OpenText Filename:="C:\Data\Wtsofbel_Cut\output\0206734021.txt", _

Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _

xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _

Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _

Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _

Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _

, 1), Array(16, 1)), TrailingMinusNumbers:=True

Columns("A:P").Select

Selection.Copy

Windows(monfichier).Activate

Range("A1").Select

ActiveSheet.Paste

Sheets("Situation").Select

End Sub

ça marche d'enfer mais j'aimerais modifier un truc dedans. En fait cette ligne-ci :

Workbooks.OpenText Filename:="C:\Data\Wtsofbel_Cut\output\0206734021.txt"

me permet d'ouvrir le fichier que je vise. Mais j'aimerais rendre la formule standard en fait. Le nom du fichier est contenu, en partie, dans la cellule C1 de ma feuille Excel du départ. En fait la cellule contient "206734021" j'aimerais donc conditionner ma recherche en fontion du contenu de la cellule C1, en y ajoutant le 0 manquant.

J'ai testé toutes sortes de choses qui me paraissaient logique en vain.

Du coup je sollicite votre aide.

Merci beaucoup

Olivier

Bonsoir,

Je proposerai de modifier la ligne :

Workbooks.OpenText Filename:="C:\Data\Wtsofbel_Cut\output\0206734021.txt", _

par

Workbooks.OpenText Filename:="C:\Data\Wtsofbel_Cut\output\0" & Range("C1").Value & ".txt", _

Ça devrait fonctionner.

Bonjour,

je viens d'essayer mais ça me donne une erreur

et ça met en surbrillance ce texte là

j'avais essayé une solution approchante hier avec déjà ce résultat là :/

vous êtes sur que le nom du fichier est bien en C1 ?

Au vu de votre erreur, on dirait que la cellule C1 est vide...

A moins que votre cellule C1 soit dans un autre onglet que EXTSOF05...

Bonjour,

d'après le message d'erreur il ne trouve pas le fichier 0.txt

J'en déduit que :

1) - Il n'a rien trouvé en C1

2) - Le sheets("EXTSOF05").select change la feuille en cours donc le range("C1") n'est pas sur le bonne feuille.

3) - Comme tu n'as pas joins de fichier exemple on ne sait pas sur quelle feuille ce trouve l'info C1 .

Au pire avant le changement de feuille faire la déclaration du fichier à ouvrir.

Et puisque tu Déclares un chemin autant s'en servir non ? sinon çà ne sert à rien de faire des déclarations

inutiles.

Dim monfichier As String
monfichier = ActiveWorkbook.Name
Dim kbo As String
Dim Chemin As String
Dim Fichiertexte As string
Chemin="C:\Data\Wtsofbel_Cut\output" & "\"
Fichiertexte="0" & range("C1").value & ".txt"

Sheets("EXTSOF05").Select
Columns("A:P").Select
Selection.ClearContents
Workbooks.OpenText Filename:=Chemin & Fichiertexte, _

Re bonjour,

tardivement, je m'en excuse, le boulot croule de partout.

C'était bien le rappel sur la page qui n'était pas bon. Ça marche super bien.

Encore merci beaucoup c'est ultra instructif et gentil de votre part de répondre à mes "bêtes" questions d'ultra novice.

Au plaisir