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

Philippe · Answer

Plusieurs possibilités :
Soit le fichier n'existe pas, soit l'extension indF n'est pas correcte.
Il faut indiquer le chemin d'accès.
ex: Workbooks.Open FileName:="C:\NomFichier.xls"
pour la suite du code :
  Columns("A:B").AutoFit
  Columns("A").Copy
  Columns("C").Select
  ActiveSheet.Paste

à + si d'autres problèmes
Philippe

cs_Celeborn · Answer

Bonjour,

Workbooks.OpenText Filename:="indF", Origin:= 

Les guillemets sont de trop, avec, la fonction prend le nom "indF" comme nom, sans, elle prend la variable indF

;-))

Virtuellement vôtre !!! ;-))

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

2 réponses

Discussions similaires