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

[Tigrette]

c'est ok pour le répertoire.

Merci encore

[parmi]

Est-ce que c'était à cause des guillemets qui étaient écrits dans la cellule?

[Tigrette]

Bonjour

j'ai un peu avancé dans ma macro.

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
Sub RECHERCHVapplique2()
 
Dim Repertoire As String
'Repertoire = Sheets("Données").Range("requete").Cells(1, 1)
Repertoire = "C:\Users\....\Documents\suivi\requêtes\courrier\"
 
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 PlgSourceAnnee As Range
Dim PlgDest As Range
Dim PlgDestAnnee As Range
Dim cel As Range
'Dim cel2 As Range
 
 
'défini les fichier
FichierSource = Dir(Repertoire & "*.xlsx")
Set FichierDest = ActiveWorkbook
 
 
 
'défini les feuilles
Set FeDest = FichierDest.Worksheets("redevance card 2017")
With FeDest
Set PlgDest = .Range(.Cells(2, 7), .Cells(.Rows.Count, 7).End(xlUp))
Set PlgDestAnnee = .Range(.Cells(2, 7), .Cells(.Rows.Count, 7).End(xlUp))
End With
 
 
Workbooks.Open Repertoire & FichierSource
'Set FeSource = FichierSource.Sheets(1)
 
'défini les plages
 
Set PlgSource = Sheets(1).Range(Cells(2, 3), Cells(Rows.Count, 3).End(xlUp))
Set PlgSourceAnnee = Sheets(1).Range(Cells(2, 22), Cells(Rows.Count, 22).End(xlUp))
 
 
 
 
 
'parcour la plage (en colonne A)
For Each cel In PlgDest
 
If IsError(Application.Match(cel.Value, PlgSource, 0)) = False And IsError(Application.Match(cel.Offset(0, 5).Value, PlgSourceAnnee, 0)) = False Then
 
 
 
cel.Offset(0, 6).Value = "oui"
 
End If
 
 
 
Next cel
 
End Sub

une partie du code fonctionne; le problème c'est que toutes mes conditions ne sont pas prises en compte.
En effet si cel est retrouvée alors indiquer oui

MAIS aussi
si cell.Offset(0,5) est retrouvée dans plgAnnée

je crois que c'est cette condition qui ne fonctionne pas.

Pouvez vous m'aider svp.

Je vous remercie.