Discussion :

[sebeni]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim nom_fic As String
   Dim jour As String
   Dim cel As Integer
 
   nom_fic = Worksheets("Feuil4").Cells("14", "F").Value
   jour = Worksheets("Feuil4").Cells("4", "B").Value
 
   With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;Z:\ & jour & \ & nom_fic & ", Destination:= _
        Range("A1"))

Quand je mets les paramètres en dur sans passer par une variable ça fonctionne.Mais je vais avoir besoin des variable...

[dadavyvy]

Qu'est ce qui ne va pas?

Non, moi ça va bien et toi? !!!!
Je pense qu'en indiquant [VBA-E] et un titre plus explicite, ça serait beaucoup bien mieux...

Code :

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

1
2
3
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Z:\" & jour & "\" & nom_fic, Destination:= _
Range("A1"))

le "&" te permet de concatener du texte, et ainsi bien séparer ce qui est une variable et ce qui est une chaine de caracteres

[illight]

C'est quoi TEXT ?

Sinon au lieu de :

Code :

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

1
2
 nom_fic = Worksheets("Feuil4").Cells("14", "F").Value
jour = Worksheets("Feuil4").Cells("4", "B").Value

écrit ça :

Code :

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

1
2
 nom_fic = Worksheets("Feuil4").Cells(14, 6).Value
jour = Worksheets("Feuil4").Cells(4, 2).Value

ou ça :

Code :

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

1
2
 nom_fic = Worksheets("Feuil4").Range("F14").Value
jour = Worksheets("Feuil4")Range("B4").Value

Ton problème la dedans :

Code :

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

 With ActiveSheet.QueryTables.Add(Connection:= "TEXT;Z:\" & jour & "\" & nom_fic, Destination:= Range("A1"))

meme si je comprend rien, c'est tes variables qui entre guillemets. Essaye ce que je viens de mettre

[sebeni]

Voici le code qui fonctionne:

Code :

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

With ActiveSheet.QueryTables.Add(Connection:="TEXT;Z:\20070416\{DAC07199-74D7-4F63-96AA-2756DDD2A683}.csv", Destination:=Range("A30"))

Et donc je remplace :
20070416 par la variable jour et
{DAC07199-74D7-4F63-96AA-2756DDD2A683}.csv par la variable nom_fic.
Ce qui me donne:

Code :

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

With ActiveSheet.QueryTables.Add(Connection:="TEXT;Z:\ & jour & \ & nom_fic & ", Destination:=Range("A1"))

Mais qui ne fonctionne pas.
Donc je suis bloqué.
Merci de votre aide

[illight]

Si tu regardais plus haut et ma réponse, tu aurai la résolution de ton problème

[biggione]

le problème vient que le & sépare et concatène des chaine de caractère donc si tu marque:
"abc & def" la chaine vaut au final: 'abc & def'
Par contre en mettant:
"abc" & "def" tu obtiens: 'abcdef'

voilà bonne journée

[sebeni]

Merci ILLIGHT mais j'ai pas compris ta réponse.

Et mon problème c'est pas de concaténer 2 chaines de caractères seulement, mais d'intégrer au milieu d'un chaine de caractère des variables...

[Xtof68]

Merci ILLIGHT mais j'ai pas compris ta réponse.

Et mon problème c'est pas de concaténer 2 chaines de caractères seulement, mais d'intégrer au milieu d'un chaine de caractère des variables...

Justement, toi tu concatènes en tapant "TEXT;Z:\ & jour & \ & nom_fic & "

or, il faudrait mettre Text;Z :\" & jour & "\"& nom-fic


parce que tu dois arrêter la définition d'une chaîne par un " avant de mettre & et la variable....

tu comprends ?


je te fais un exemple : tu veux obtenir, comme résultat, "nous sommes le 27/04/2007, bonjour", dans lequel "nous sommes le" est une chaîne et "27/04/2007" le résultat de la variable "jour", puis ", bonjour" une deuxième chaîne.
Ce que TU as fait était de définir ceci de la manière suivante :
"nous sommes le & jour & ,bonjour"

Or, tu aurais dû le mettre ainsi
"nous sommes le " & jour & ", bonjour". (Note les " de début et de fin des chaînes à concaténer).

Bonne soirée, bon ouik

[ouskel'n'or]

[QUOTE=sebeni]Voici le code qui fonctionne:

Code :

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

With ActiveSheet.QueryTables.Add(Connection:="TEXT;Z:\20070416\{DAC07199-74D7-4F63-96AA-2756DDD2A683}.csv", Destination:=Range("A30"))

Et donc je remplace :
20070416 par la variable jour et
{DAC07199-74D7-4F63-96AA-2756DDD2A683}.csv par la variable nom_fic.

Ce qui me donne:

une fois corrigé

Code :

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

1
2
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Z:\" & jour & "\" & nom_fic,Destination:=Range("A1"))

Mais qui ne fonctionne pas.
Donc je suis bloqué.
Merci de votre aide

Tu as testé ce qu'a mis

Code :

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

1
2
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Z:\" & jour & "\" & nom_fic, Destination:=Range("A1"))

.................................................?

[sebeni]

Merci a tous pour vos idées.
Mais ça ne fonctionne pas l'histoire des guillemet j'avais essayé.
Je vais résumer.
J'ai enregistré une macro avec Excel pour pouvoir importer des fichiers CVS:

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
With ActiveSheet.QueryTables.Add(Connection:="TEXT;Z:\20070416\{DAC07199-74D7-4F63-96AA-2756DDD2A683}.csv", Destination:=Range("A30"))
  '      .Name = "{DAC07199-74D7-4F63-96AA-2756DDD2A683}"
   '     .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 = False
     '   .TextFileTabDelimiter = False
     '   .TextFileSemicolonDelimiter = False
     '   .TextFileCommaDelimiter = True
     '   .TextFileSpaceDelimiter = False
     '   .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
     '   .TextFileTrailingMinusNumbers = True
     '   .Refresh BackgroundQuery:=False
   ' End With

Et donc elle fonctionne.

J'ai voulu remplacer certaine valeur par des variable avec le programme suivant:

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
Dim nom_fic As String
   Dim jour As String
 
 
    nom_fic = Worksheets("Feuil4").Range("F14").Value
    jour = Worksheets("Feuil4").Range("B4").Value
 
   With ActiveSheet.QueryTables.Add(Connection:="TEXT;Z:\" & jour & "\" & nom_fic, Destination:=Range("A1"))
        .Name = nom_fic
        .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 = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
'        .Refresh BackgroundQuery:=False
    End With

Et ça ne fonctionne pas.

Le but c'est que je puisse ouvrir différent fichier dans différents dossier en fonction des valeurs de mes variables.

Merci pour toutes votre aide.