Discussion :

[VINCENTNINI]

Bonjours les fous d'exel

J'utilise le code suivant pour importer des datas dans une feuille excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\TEMP\MFI-13112007.txt" _
        , Destination:=Range("A1"))
        .Name = "MFI-13112007"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 932
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .TextFileFixedColumnWidths = Array(8, 46)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery = False
    End With

Cela fonctionne mais, quand je remplace le path de la connection par une variable, j'ai une erreur sur la ligne refresh.....

J'aimerais utiliser une variable pour le path de mon fichier .txt.. Comment faire?

Merci d'avance pour votre aide.

[ouskel'n'or]

As-tu testé en mettant toute l'adresse de ton fichier dans une variable et en utilisant la variable ?
Mais vérifie que tu n'oublie pas "\" après le path, il ne le contient pas.
Et il serait bien que tu mettes le code qui provoque une erreur
A+

[irouni]

bonjour,

En fait j'ai le meem probleme donc j'envoi ce message pour relancer la discussion en effet je dois remplacer dans l'adresse d'import une variable alors j'ai fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Macro1()
Dim aryan
aryan = Appft\CtiMer\1\logAppliVOCAL\[test22.xls]Feuil1!A1\APPLIVOCAL071217.LOG
' Macro1 Macro
' Macro enregistrée le 19/12/2007
'
'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\aryan\", _
        Destination:=Range("A1"))
        .Name = "APPLIVOCAL071217"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileOtherDelimiter = "="
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

tout ce qui est en bleu c'est moi qui a modifié..
Des lors que je lance la macro il me met en rouge ma variable aryan qui est
aryan = Appft\CtiMer\1\logAppliVOCAL\[test22.xls]Feuil1!A1\APPLIVOCAL071217.LOG et il me dis qu'il y a une erreur de synthaxe la totale ouquoi!!!
alors je vous demande SVP de m'aider
Cordialement
Irouni

[SilkyRoad]

bonjour


Tu es sur que le chemin indiqué est correct ?

Appft\CtiMer\1\logAppliVOCAL\[test22.xls]Feuil1!A1\APPLIVOCAL071217.LOG

tu trouveras un exemple de syntaxe dans la page Sources

Regrouper le contenu de plusieurs fichiers txt dans une feuille de calcul


bonne journée
michel

[irouni]

salut SilkyRoad,
Le chemin doit etre bon oui mais je ne sais pas déjà si la facon dont j'ecrit [test22.xls]Feuil1!A1 est correct puis je ne sais pas si macro prends bien ma variable nomée aryan.

[SilkyRoad]

rebonjour


je suis désolé mais je ne comprend plus rien à tes messages

au debut tu te connectes à un fichier txt

Connection:="TEXT;C:\TEMP\MFI-13112007.txt"

Dans ton deuxime message, tu as oublié les guillemets pour encadrer la chaine de caractères

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim aryan As String
aryan = "Appft\CtiMer\1\logAppliVOCAL\[test22.xls]Feuil1!A1\APPLIVOCAL071217.LOG"

Ceci dit, le chemin indiqué n'a pas de sens:

Appft\CtiMer\1\logAppliVOCAL\[test22.xls]Feuil1!A1\APPLIVOCAL071217.LOG

a quel type de fichier souhaites tu te connecter ?



Suit le lien dans mon précédent message, pour visualiser une connexion à partir d'une variable.




bonne journée
michel