VBA: variable de classeur dans recherchev

[arudigoz]

Hello,

J'ai beau chercher depuis quelques jours je ne trouve pas de solution ma macro ne remonte pas correctement ma recherchev... il y a un souci avec la variable de classeur xlsx dans la dernière ligne je n'arrive pas à finaliser le debuggage...

Merci d'avance à celui ou celle qui arrivera a éclairer ma lanterne et mettre fin à mes souffrances!

Sub concat()
'
' concat Macro
' concat
'

'
Dim LastRow As Long

LastRow = Range("A65536").End(xlUp).Row




Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd

.Show
End With
fd1 = fd.SelectedItems.Item(1)

Dim SplitChemin() As String
SplitChemin = Split(fd1, "\", -1, vbTextCompare)
Fichier1 = SplitChemin(UBound(SplitChemin))



ActiveCell.FormulaR1C1 = "=RECHERCHEV(Q2;'[" & Fichier1 & "]Feuil1!'$D:$E;2;0)"

End Sub

 

[arudigoz]

Re : VBA: variable de classeur dans recherchev

Une petite correction de syntaxe sur la recherchev mais cela ne fonctionne toujours pas...
en mode debug, la valeur de Fichier1 est pourtant bien la valeur de mon fichier ("test.xlsx").

Peut-être est-ce qu'il ne reste pas ouvert pendant ce temps, ce qui expliquerait l'erreur, cependant je n'arrive pas à faire les corrections nécessaires...


ActiveCell.FormulaR1C1 = "=RECHERCHEV(Q2;'[" & Fichier1 & "]Feuil1'!$D:$E;2;0)"

 

[Pierrot93]

Re : VBA: variable de classeur dans recherchev

Bonjour,

Peut-être est-ce qu'il ne reste pas ouvert pendant ce temps, ce qui expliquerait l'erreur, cependant je n'arrive pas à faire les corrections nécessaires...

perso vois rien dans ton code qui ouvre le classeur en question.....

bon après midi
@+

 

[arudigoz]

Re : VBA: variable de classeur dans recherchev

Hello Pierrot,

du coup que préconises tu?

 

[Pierrot93]

Re : VBA: variable de classeur dans recherchev

Re,

bah peut être l'ouvrir....

Dim f As String
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ActiveWorkbook.Path & "\"
    .Show
    If .SelectedItems.Count > 0 Then f = .SelectedItems(1)
End With
Workbooks.Open f