chemin fichier

chemin fichier - VB/VBA/VBS - Programmation

Marsh Posté le 25-03-2006 à 09:51:06    

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

Reply

Marsh Posté le 25-03-2006 à 09:51:06   

Reply

Marsh Posté le 25-03-2006 à 10:41:42    

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

   Fichier = Format(Hier, "yymmdd" ) & "00.ALG"
          Chemin = "C:\Documents and Settings\Pascal\Bureau\pc\"
    Fichier = InputBox("Quel fichier souhaitez-vous ouvrir? " )


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

Reply

Marsh Posté le 25-03-2006 à 10:49:03    

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

Reply

Marsh Posté le 25-03-2006 à 11:08:28    

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

Reply

Marsh Posté le 25-03-2006 à 14:36:57    

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
 
 

Reply

Marsh Posté le 25-03-2006 à 19:30:14    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed