ERREUR dans mon code [VBA niveau grand débutant]

Bonjour,

A celui qui a un peu de temps à perdre, j'expose mon pb ;o)
J'ai essayé tant bien que mal de faire une macro VBA pour automatiser l'import, la mise en page de fichiers (un peu spéciaux, mais ne vous y fiez pas) sous Excel. J'ai donc fait un joli UserForm avec les boutons, malheureusement, les commandes qui tournent derrière ne veulent pas fonctionner. Je vous livre le code, à vous d'en faire ce que vous voulez, et surtout MERCI d'avance pour les réponses : (voici le code d'un des boutons du formulaire)

Private Sub import_indf_Click()
indF = Application.GetOpenFilename("Fichier Tétralogie,*.indF")
Workbooks.OpenText Filename:="indF", Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
1), Array(3, 1))
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("A:A").Select
Selection.Copy
Columns("C:C").Select
ActiveSheet.Paste
End Sub

ERREUR : erreur d'execution 1004, indF.xls introuvable !!! (je ne comprend pas ce qu'il me raconte, je ne veux pas qu'il me créé un indF.xls moi :o((

salut
as-tu vérifié dans l'aide l'utilisation de GetOpenFilename?



-------------------------------
Réponse au message :
-------------------------------

Bonjour,

A celui qui a un peu de temps à perdre, j'expose mon pb ;o)
J'ai essayé tant bien que mal de faire une macro VBA pour automatiser l'import, la mise en page de fichiers (un peu spéciaux, mais ne vous y fiez pas) sous Excel. J'ai donc fait un joli UserForm avec les boutons, malheureusement, les commandes qui tournent derrière ne veulent pas fonctionner. Je vous livre le code, à vous d'en faire ce que vous voulez, et surtout MERCI d'avance pour les réponses : (voici le code d'un des boutons du formulaire)

Private Sub import_indf_Click()
indF = Application.GetOpenFilename("Fichier Tétralogie,*.indF")
Workbooks.OpenText Filename:="indF", Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
1), Array(3, 1))
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("A:A").Select
Selection.Copy
Columns("C:C").Select
ActiveSheet.Paste
End Sub

ERREUR : erreur d'execution 1004, indF.xls introuvable !!! (je ne comprend pas ce qu'il me raconte, je ne veux pas qu'il me créé un indF.xls moi :o((

J'ai modifié un peu le code, et maintenant, ca marche :o)) Allez savoir pourquoi, le principe reste pourtant le même ...

fileToOpen = Application.GetOpenFilename
Workbooks.OpenText Filename:=fileToOpen, _

Mais en tout cas MERCI

-------------------------------
Réponse au message :
-------------------------------

salut
as-tu vérifié dans l'aide l'utilisation de GetOpenFilename?



-------------------------------
Réponse au message :
-------------------------------

Bonjour,

A celui qui a un peu de temps à perdre, j'expose mon pb ;o)
J'ai essayé tant bien que mal de faire une macro VBA pour automatiser l'import, la mise en page de fichiers (un peu spéciaux, mais ne vous y fiez pas) sous Excel. J'ai donc fait un joli UserForm avec les boutons, malheureusement, les commandes qui tournent derrière ne veulent pas fonctionner. Je vous livre le code, à vous d'en faire ce que vous voulez, et surtout MERCI d'avance pour les réponses : (voici le code d'un des boutons du formulaire)

Private Sub import_indf_Click()
indF = Application.GetOpenFilename("Fichier Tétralogie,*.indF")
Workbooks.OpenText Filename:="indF", Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
1), Array(3, 1))
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("A:A").Select
Selection.Copy
Columns("C:C").Select
ActiveSheet.Paste
End Sub

ERREUR : erreur d'execution 1004, indF.xls introuvable !!! (je ne comprend pas ce qu'il me raconte, je ne veux pas qu'il me créé un indF.xls moi :o((

et quand c'est sur Mac on fait comment ?