Associer une variable au nom d'un fichier

**lbroc84** · 03/01/2012, 17h48

Bonjour,

Je cherche à associer une variable à un nom d'un fichier afin de pouvoir utiliser ces variables dans une boucle Do... Loop.

Le premier fichier s'appellerait fichier1 et le deuxième fichier s'appellerait fichier2. Je ne peux pas spécifier un nom précis ou un chemin précis de fichier car il porte chaque fois un nom différent et sont situés à des endroits différents.

Voici ma macro d'essai:

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
Sub Macro1()
Call Utilisation_FileDialog_SelectionFichier
With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "fichier1"
End With
Call Utilisation_FileDialog_SelectionFichier
With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "fichier2"
End With
Workbooks(fichier1).Select
Sheets("toto").Select
Cells("D65536").End(xlUp).Select
 Do
    IF(VLOOKUP(RC,'fichier2'ACCOUNT!C18:C41,24,'false')=READ-ONLY then
    MsgBox (RC)
    Else
    ActiveCell.Offset(-1, 0).Select
    Loop Until ActiveCell.Row = 0
 
End Sub

Sauriez-vous transformer cet essai de code afin que cela fonctionne ?

Merci d'avance,

lbroc84

**jfontaine** · 03/01/2012, 18h15

Bonjour,

Ci dessous une fonction "Ouvrir" qui gère la demande d'ouverture d'un fichier

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
Function Ouvrir() As String
 
Dim file As FileDialog
Dim strfichier As String
Dim str() As String
 
Set file = Application.FileDialog(msoFileDialogFilePicker)
 
'Creation des filtres
file.Filters.Clear
file.Filters.Add "Fichier Excel", "*.xls"
 
'Si pas de sélection sortir de la procedure
If file.Show = False Then
    Exit Function
End If
 
'file.SelectedItems(1) => Retourne le chemin complet du fichier (ou du premier fichier de la selection)
str = Split(file.SelectedItems(1), "\")
strfichier = str(UBound(str))
 
'StrFichier => Nom du fichier
Ouvrir = file.SelectedItems(1)
 
End Function

A utiliser comme suit

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
Dim Wrk1 As Workbook
Dim Wrk2 As Workbook
 
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
 
Dim Rg As Range
 
 
Set Wrk1 = Application.Workbooks.Open(Ouvrir)
Set Wrk2 = Application.Workbooks.Open(Ouvrir)
 
Set Sh1 = Wrk1.Sheets("toto")
Set Sh2 = Wrk2.Sheets("ACCOUNT")
 
For Each cell In Sh1.Range("A1:A" & Sh1.Range("A" & Rows.Count).End(xlUp).Row)
 
 
Next

Dans la boucle j'utiliserais la méthode Find pour chercher l'information, mais j'ai du mal a décoder ta recherche, car la matrice est en colonne C et tu retourne la colonne 24 hors de la matrice

**lbroc84** · 04/01/2012, 10h08

Merci beaucoup, cela m'aide énormément...

En fait, je veux voir si les comptes d'un fichier (en col.D) sont en READ-ONLY dans un autre fichier (via un vlookup)...

Grâce à votre aide, j'ai refait la macro comme ceci :

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
Sub Macro1()
 
Dim Wrk1 As Workbook
Dim Wrk2 As Workbook
 
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
 
Dim Rg As Range
 
 
Set Wrk1 = Application.Workbooks.Open(Ouvrir)
Set Wrk2 = Application.Workbooks.Open(Ouvrir)
 
Set Sh1 = Wrk1.Sheets("toto")
Set Sh2 = Wrk2.Sheets("ACCOUNT")
 
For Each cell In Sh1.Range("D1:D" & Sh1.Range("D" & Rows.Count).End(xlUp).Row)
Set readcell = VLookup(cell, Sh2.Range("R20:AO20"), 24, False)
 
If readcell = "READ-ONLY" Then
MsgBox (cell)
 
Next
 
End Sub

Mais il me dit que la fonction Vlookup n'est pas définie...

lbroc84

**jfontaine** · 04/01/2012, 10h36

La ligne ci dessous fait une recherche verticale sur une seule ligne

Code :

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

 VLookup(cell, Sh2.Range("R20:AO20"), 24, False)

Si tu veux rechercher dans la colonne R et retourner la colonne AO

Code :

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

1
2
3
4
5
6
7
8
9
10
For Each cell In Sh1.Range("D1:D" & Sh1.Range("D" & Rows.Count).End(xlUp).Row)
Set rg = Sh2.Range("R:R").Find(what:=cell.Value, lookat:=xlwhole)
 
if not rg is nothing and rg.Value =  "READ-ONLY" then
 
     sh2.range("AO" & rg.Row).Value
 
end if
 
Next