ouverture fichier par macros

[nono7794]

Bonjours,
j'aimerai pouvoir ouvrir un fichier à l'aide d'une macro, en écrivant le nom ou un chiffre dans une cellule.Puis copier les données et refermer ce fichier.
En fesant une macros directement j'obtiens
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\Desktop\conv\736.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, 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)), _
DecimalSeparator:=".", TrailingMinusNumbers:=True
Columns("A:G").Select
Selection.Copy
Application.WindowState = xlMinimized
Windows("macros.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("736.txt").Activate
ActiveWindow.Close


J'ai mis en rouge le nom du fichier que j'aimerai remplacer par une cellule.
Si quelq'un à une idée, merci d'avance de m'en informer.

 

[patte d'ours]

Re : ouverture fichier par macros

Bonsoir

Supposons que ton fichier soit toujours dans le même répertoire et que le nom du fichier se trouve dans la feuille "Tableau" en cellule A1

"C:\Documents and Settings\Desktop\conv\" & sheets("Tableau").range("A1")

Si dans la cellule A1 tu n'as que 736, par exemple

"C:\Documents and Settings\Desktop\conv\" & sheets("Tableau").range("A1") & ".txt"

Pareil pour Windows

Windows(sheets("Tableau").range("A1")) pour le 1er cas

J'espère que cela pourra t'aider

 

[nono7794]

Re : ouverture fichier par macros

je viens d'essayer de remplacer, mais il ne veut pas fonctionner. Au final je doit avoir deux fichier différent et je met une partie des donné de l'un, vers l'autre. Je vais continuer à réfléchir sur la piste que tu m'as donnée.
Merci tout de même, si tu as d'autres idées, n'hésite pas.

 

[patte d'ours]

Re : ouverture fichier par macros

Qu'est ce qui ne fonctionne pas

L'ouverture, la fermeture ou le copiage.

Fais tourner ta macro pas à pas (F8) pour voir ce qui se passe.

Eventuellement retourne ta nouvelle macro en précisant le nom de l'onglet et le numéro de cellule où se trouve ta donnée.

Bonne soirée

 

[herve62]

Re : ouverture fichier par macros

Bonsoir
Regarde l'exemple joint, pour voir si c'est dans la voie de ce que tu recherches
pour l'instant , le nom de fichier à ouvrir est figé dans une cellule
Après le "click" regarde en feuille2
Dans le zip il y a le fichier "depl" pour l'exemple , tu dois retrouver le tableau en feuille2 du "classeur1"

 

[nono7794]

Re : ouverture fichier par macros

merci beaucoup, c'est tout à fait ce que je cherchais

 

[herve62]

Re : ouverture fichier par macros

Re
maintenant , regarde à modifier tes noms de fichiers ainsi que le chemin d'ouverture , pour ton appli. , dans la macro
conseil : pour éviter la complication ( là ou ce n'est pas necessaire) , stocke toujours tes fichiers dans le même répertoire
Bonne soirée et bon courage pour améliorer cet exemple en brut
Hervé