bonjour,
avec ce code,lorsque j'execute la macro de fichier A,j'importe le texte dans le fichier B,ce que je souhaite c'est importer le texte dans le fichier A feuille 1,
Comment écrire le code?
 
Sub Alarmes()
    Fichier = Format(Hier, "yymmdd" ) & "00.ALG"
          Chemin = "C:\Documents and Settings\Pascal\Bureau\pc\"
    Fichier = InputBox("Quel fichier souhaitez-vous ouvrir? " )
' Appel du fichier et mise en page
    Workbooks.OpenText FileName:= _
        Chemin & Fichier, Origin _
        :=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array _
        (0, 4), Array(6, 1), Array(14, 1), Array(19, 1), Array(22, 1), Array(73, 1))
    Cells.Select
    Selection.Columns.AutoFit
merci de votre aide et bon W.E

Salut,
 
je ne comprends pas trop ce que tu cherches à faire, toujours est-il que j'ai remarqué une chose dans ton code :

La première ligne ne sert à rien, vu que deux lignes plus bas, tu remplis la variable Fichier avec l'InputBox.

ok elle ne sert à rien
le fichier creer par la macro n'est pas le meme c'est ce qui me derange

En fait cette méthode ouvre le fichier dans un nouveau classeur ne comportant qu'une seule feuille (comme indiqué dans l'aide).
Je te propose de t'orienter vers l'importation de données avec la méthode QueryTables.
 
Utilise l'enregistreur de macro, et jète un oeil au menu Données > Données externes > Importer des données...

Dim ALARME As String
 
   ok j'ai essayer ca mais je recoit un message d'erreur : "erreur 1004 :  
Il me montre la ligne : Destination:=Range("A2" ))
Je ne comprends pas .
 
Dim ALARME As String
Sub Macro2()
 
   ALARME = InputBox("Saisissez le non du fichier : ", "Non de fichier" )
      With ActiveSheet.QueryTables.Add(Connection:="MaVariable", _
        Destination:=Range("A2" ))
        .Name = "feuil1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
   
    End Sub
 
 

Essaye de donner ALARME au lieu de MaVariable, en paramètre.