MAcro avec fichier texte

[lemyrec]

Bonjour,

J'aimerais faire une macro qui ouvre un fichier texte et le convertit dans Excel.
J'aimerais cependant le faire à partir d'un nom de fichier inscrit dans une cellule donnée.
L'utilisateur inscrit par exemple le nom du fichier qu'il veut dans la cellule A1. La macro doit aller rechercher le fichier texte correspondant et le convertir par la suite dans Excel.

Le problème est que la macro fonctionne mais seulement avec le texte initial avec lequel j'ai formaté la macro. Quand je change le nom du fichier dans la cellule A1, la macro ouvre et formate le fichier texte initial et non le nouveau.

Est-ce possible de pouvoir la créer pour qu'elle puisse ouvrir des fichiers textes différents?

Je suis désolé si ma question semble un peu confuse...

Voici à quoi ressemble la macro :

Range("C2").Select
ActiveCell.FormulaR1C1 = "D7337S"
Range("N27").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\lemyrec\Desktop\D7337S.txt", Destination:=Range("$N$27"))
.Name = "D7337S_20"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "~"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub


Et merci beaucoup à l'Avance

 

[Pierrot93]

Re : MAcro avec fichier texte

Bonjour,

modifie cette partie ainsi :

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & Range("A1").value , Destination:=Range("$N$27"))

chemin complet et nom du fichier texte + extension(.txt) dans la cellule A1 de la feuille active.

bonne journée
@+

 

[lemyrec]

Re : MAcro avec fichier texte

Bonjour et merci pour la réponse. J'ai modifié ma macro par celle-ci mais ça ne fonctionne toujours pas:


Range("A1").Select
ActiveCell.FormulaR1C1 = "D7337S"
Range("N27").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & Range("A1").Value, Destination:=Range("$N$27"))
.Name = "D7337S"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "~"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

J'obtiens un message d'erreur d'exécution 1004.

Est-ce que le problème provient du fait que la macro va chercher uniquement le fichier texte "D7337S"? Est-ce qu'il est possible de changer la macro pour qu'elle aille chercher n'importe quel fichier texte qui sera dans la celllule A1?

 

[Pierrot93]

Re : MAcro avec fichier texte

Bonjour,

au préalable tu modifie la cellule :

Range("A1").Select
ActiveCell.FormulaR1C1 = "D7337S"

et ce par une valeur qui ne représente pas un chemin et un nom de fichier complet.... dans ce cas l'erreur est juste....

bonne journée
@+