Ouverture fichier Zip avec nom du zip variable [Fermé]

Signaler
-
Bonjour,

Je souhaiterais faire une macro dans laquelle je fais ouvrir un fichier zip qui change chaque jour.
J'ai tout d'abord lister les noms des fichiers zip qui vont être à ouvrir avec une correspondance avec le jour de leur ouverture.

J'ai une cellule qui me donne la date souhaitée, je fais une rechercheV dans ma table de correspondance, je copie valeur et après ???

Voici le début de mon code, qui me permet de ramener le lien du fichier zip que je souhaite ouvrir, par contre je ne sais pas comment inclure ce résultat dans ma demande de dezip...

Dim fichier As String
ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-1]C,C[-17]:C[-2],16,0)"
Range("S2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Copy

j'ai tenté la suite comme çà mais çà bloque...

Dim varTexte As String
varTexte = Selection.Paste
fichier = "varTexte"
If Dir(fichier) <> "" Then
Set sh = CreateObject("Shell.Application")
sh.Namespace("C:\Users\XXXX").CopyHere sh.Namespace(fichier).Items
Set sh = Nothing
Else

Exit Sub
End If