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

Question

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((

urc40 · Answer

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

cd · Answer

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

dhartex · Answer

et quand c'est sur Mac on fait comment ?

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

3 réponses

Discussions similaires