Discussion :

[Tigrette]

Bonjour

je travaille actuellement sur le sujet suivant:
j'ai un fichier unique destination qui contient une liste de personnes.
j'ai un fichier source qui me donne la liste des personnes qui ont appelé ce mois -ci

je voudrais interroger le fichier source; si une personne listée dans le fichier destination se retrouve dans le fichier source alors indiquer dans la colonne "présence" du fichier destination "OUI"

ensuite je voudrais ouvrir ce fichier source à partir d'un répertoire (le nom du répertoire se trouve sur une feuille de données)
j'ai essayé pleins de macros mais rien à faire.

voici une d'entre elles

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Sub RECHERCHVapplique()
 
Dim Repertoire As String
Repertoire = Sheets("Données").Range("requete_facture_émise").Cells(1, 1)
 
Dim FichierSource As Worksheet
Dim FichierDest As Worksheet
 
Dim FeSource As Worksheet
Dim FeDest As Worksheet
 
Dim PlgSource As Range
Dim PlgDest As Range
Dim cel As Range
Dim Ligne As Long
 
'défini les fichier
Set FichierDest = ActiveWorkbook
Set FichierSource = Dir(Repertoire & "*.csv")
 
 
'défini les feuilles
Set FeDest = FichierDest.Worksheets("redevance card 2017")
Set FeSource = FichierSource.Sheets(1)
 
'défini les plages
With FeSource
Set PlgSource = .Range(.Cells(2, 3), .Cells(.Rows.Count, 3).End(xlUp))
End With
 
With FeDest
Set PlgDest = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
 
 
'parcour la plage (en colonne A)
For Each cel In PlgDest
 
 
On Error Resume Next
Ligne = Aplication.Worksheet.Function.Match(cel.Value, PlgSource, 0) + 1 'on rajoute 1 car départ de plage en ligne 2
 
If Err.Number = 0 Then
 
cel.Offset(, 11).Resize(, 0).Value = "oui"
'cel.Offset(, 11).Resize(, 3).Value = FeSource.Cells(Ligne, 1).Offset(, 4).Resize(, 3).Value
End If
 
Next cel
 
End Sub

aussi j'ai un message d'erreur "incompatibilité de type qui zoom sur "Dir"

Je vous remercie

[Pierre Fauconnier]

Salut.

Personnellement, je fuis comme la peste les formules interfichiers. Je préfère de loin lier les données avec un outil parmi les suivants:

• PowerQuery (à installer sur la 2013);
• MSQuery;
• Liaison directe via l'onglet Données/Données externes.

Après, un simple NB.SI.ENS sur le tableau permet de s'en sortir...





Le tout est bien sûr possible en VBA, mais toujours en pensant à ce que j'énonce en signature...

[Tigrette]

Bonjour

j'avais déjà envisage d'utiliser une formule et je te remercie pour cette réponse.

Je préfere passer par une macro alors je pense traiter pas à pas le problème.

En 1: je veux ouvrir un répertoire depuis ma macro: le chemin du répertoire est noté dans une feuille Excel
comment faire?

Chemin : "\\C:\Users\.....\Documents\suivi\requêtes\Courriers\"

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
 
Dim Repertoire As String
Repertoire = Sheets("Données").Range("requete").Cells(1, 1)
 
 
   Application.ScreenUpdating = False
 Application.EnableEvents = False
 
MsgBox Repertoire
 
Dim FichierSource As String
Dim FichierDest As Workbook
 
Dim FeSource As Worksheet
Dim FeDest As Worksheet
 
Dim PlgSource As Range
Dim PlgDest As Range
Dim cel As Range
Dim Ligne As Long
 
'défini les fichier
FichierSource = Dir(Repertoire & "*.csv")
Set FichierDest = ActiveWorkbook

apparemment, la macro ne retrouve pas le fichier. Que faire?

[parmi]

Bonjour,

Repertoire = Sheets("Données").Range("requete").Cells(1, 1)

Est-ce que le chemin dans la cellule contient un "\" à la fin ?
Autrement il faudrait l'ajouter dans la cellule ou encore dans le Dir()

[parmi]

Et si c'est inscrit comme ça
"\\C:\Users\.....\Documents\suivi\requêtes\Courriers\"
enlever les 2 \\ du début

[Tigrette]

si je tape directement dans la macro :


Repertoire ="C:\Users\.....\Documents\suivi\requêtes\Courriers\"

cela fonctionne

par contre sur la feuille Données, ca ne passe pas.
Ils disent : nom ou numéro de fichier introuvable