Ouverture Explorateur Windows selon variable cellule

[Solis]

Bonjour, je viens vers vous pour semble-il un problème de variable. Je dois récupérer 3 valeurs dont 2 associés à la cellule active afin que l'explorateur Windows s'ouvre en suivant le lien et ces fameuses valeurs. J'arrive à lui trouver VarFoyer mais pas VarAnnee ni VarDepense.

Voici mon code :

Sub fac()

Dim Target As Range
Set Target = ActiveCell

Dim VarAnnee As String
Dim VarFoyer As String
Dim VarDepense As String

Dim Chemin As String

VarFoyer = ActiveSheet.Range("A1")
VarAnnee = ActiveSheet.Cells(Target.Row, 2)
VarDepense = ActiveSheet.Cells(5, Target.Column)

ChDrive ("R")

    Chemin = "R:\loc\fac\" & VarFoyer & VarAnnee & VarDépense
    Shell "C:\windows\explorer.exe " & Chemin, vbMaximizedFocus

End Sub

Je pense donc qu'il n'arrive pas à récupérer les adresses de ces deux variables. Par ailleurs, sauriez-vous comment lui indiquer que le chemin n'existe pas (ce qui n'est pas le cas avec la cellule active choisie dans mon exemple) ? Parce que là il va dans "Mes Documents", et j'aimerais autant y coller un petit MsgBox 🙂

Merci et bonne journée !

 

[gilbert_RGI]

Re : Ouverture Explorateur Windows selon variable cellule

Bonjour,

que donne msgbox chemin ?

à placer au dessus de shell

2) vardepense est différent de vardépense 😎

 

[Solis]

Re : Ouverture Explorateur Windows selon variable cellule

Bonjour,

Eh bien merci beaucoup, je n'y aurais pas pensé ! Et effectivement, il manquait les anti-slash. Merci pour l'astuce, je tacherais de m'en souvenir 😀

 

[gilbert_RGI]

Re : Ouverture Explorateur Windows selon variable cellule

au lieu de mettre une msgbox on peut faire aussi debug.print chemin ce qui donne le résultat dans la fenêtre execution du VBE