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 :
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 !
Voici mon code :
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 SubJe 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 !
