Discussion :

[grostathar]

bonjour

j’ai une macro A qui importe les fichiers d'un répertoire
donc dans cette macro j’ai

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
Dim Dossier As Object, fso As Object
Dim Files As Object
Dim MaVal
 
Sub U21NEXTFOR()
'(...)
  ' Création de l'objet File System Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  ' Créé l'objet Dossier à partir du chemin definit
  Set Dossier = fso.GetFolder("C:\AAAA\AA")
  Set Files = Dossier.Files
  ' Si aucun fichier dans le dossier, on sort de la procédure
  If Files.Count = 0 Then Exit Sub
  ' Sinon pour chaque fichier
  For Each File In Files
    ' Contruit le chemin d'accès
    VPath = Dossier.Path & "\" & File.Name
 '(...)
'Import Fichier de C:\AAAA\ImportU21\
       With ActiveSheet.ListObjects.Add(SourceType:=0 _
            , Source:=Array("OLEDB;(...);Data Source=" & File & ";Mode=Share Deny Write;E" _
'(...)
    End With

Dans Ma Macro B (qui s’exécute a l’intérieur de cette boucle âpres l'import du fichier)
je souhaite concatèner sur chaque ligne le nom du fichier et ses lignes
Sous la forme concatenate(" &file & ",blabla,blabla)

Code :

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

1
2
3
    Range("U2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(NBLignes<ROW()-1,"""",CONCATENATE(" & File & ",IF(NBLignes<ROW()-1,"""",VLOOKUP(ROW()-1,TotalPourRechv,R1,1)),"" aa "",ROW()))"

Apres je copie et colle cette formule sur la suite du tableau
Malheureusement la valeur file me revoit un vide
Quand je fait une pose dans la macro et passe ma sourie sur file il me marque vide
il doit i avoir une erreur de ponctuation si quelqu’un avait une idée

[Philippe Tulliez]

Bonjour,
Si je me réfère à la zone de déclaration de variables niveau module

Code :

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

1
2
3
4
Dim Dossier As Object, fso As Object
Dim Files As Object
Dim MaVal
Sub U21NEXTFOR()

La variable File ne semble pas être déclarée.

[grostathar]

salut a toi corona et merci
oui j'ai bien remarqué et je ne comprend pas ^^
mais jutilise bien cette variable dans le premier code comme source pour mes import et il marche tres bien ^^

dans le doute jai cree MAVAL avant le lancement de macroB j ai mit
Set MaVal = File
et j'ai remplacé " & File & " par " & MaVal & " sa marche pas mieux
Erreur 1004 erreur definie par l application ou par l'objet
il me cible ma formule

Code :

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

1
2
    ActiveCell.FormulaR1C1 = _
        "=IF(NBLignes<ROW()-1,"""",CONCATENATE(" & MaVal & ",IF(NBLignes<ROW()-1,"""",VLOOKUP(ROW()-1,TotalPourRechv,R1,1)),"" aa "",ROW()))"

quand je passe la sourie sur MaVal il me met MaVal="Nom23.mdb" se que je voudrait en faite ^^

Merci a toi

[Philippe Tulliez]

Bonjour,
Si une variable est de portée procédure elle n'est pas connue dans une autre.
Cette variable doit donc être déclarée en tête de module soit comme Variable module par un dim maVariable as Type soit comme variable publique par Public maVariable as Type
Une autre possibilité serait d'écrire une procédure avec argument et passer cette variable (ici File) comme argument à la procédure.

Bonjour,
Je viens de relire ton post.
L'erreur vient sans doute de la syntaxe de la formule que tu écris.
Si la variable maVal est un String, fais précéder et suivre maVal par chr(34) qui est le code AscII des guillemets
Comme ci-dessous

Code :

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

CONCATENATE(" & Chr(34) & maVal & Chr(34) & "

[grostathar]

Grand Merci
a toi il suffisait donc des Chr(34) &
Nickel