Chemin d'accès variable

Bonjour

J'essaye d'écrire un chemin d'accès qui varie en fonction de l'utilisateur, l'année, le mois et le fichier qu'on cherche.

Voici ce que j'ai fait :

Private Sub BtnMaj_Click()
Dim Uti As String
Dim An As String
Dim Mois As String
Dim Fich As String

Uti = CboCP.Value
An = CboAnnée.Value
Mois = CboMois.Value
Fich = CboTest.Value

Fichier = "C:\Users\"&uti&"\Entreprise\Service\Pole\Rapport\Achats\"&an&"\"&mois&"\Extractions\"&fich
Workbooks.Open(Fichier)

End Sub

Mais à l'avant dernière ligne ça m'affiche une erreur "Erreur de compilation: Attendu:fin d'instruction" en me surlignant la partie "\Entreprise\Service\Pole\Rapport\Achats\"

Quelqu'un aurait une idée de la solution ? Je suis aussi preneur d'une autre façon de faire

Bonjour

en VBA les & doivent être précédés et suivis d"un espace

Bonjour,

Private Sub BtnMaj_Click()
Dim Uti As String
Dim An As String
Dim Mois As String
Dim Fich As String
Dim Fichier as String

Uti = CboCP.Value
An = CboAnnée.Value
Mois = CboMois.Value
Fich = CboTest.Value

Fichier = "C:\Users\" &uti &"\Entreprise\Service\Pole\Rapport\Achats\" &an &"\" &mois &"\Extractions\" &fich

Workbooks.Open Filename:=Fichier

End Sub

78chris a écrit :

Bonjour

en VBA les & doivent être précédés et suivis d"un espace

Bonjour Chris, Bien d'accord : au mimimum l'espace qui précède: & … normalement excel ajoute de lui même l'espace qui suit.

Merci beaucoup pour vos réponses, j'ai creusé un peu et voici le code final qui fonctionne, j'avais oublié de dim Fichier donc je l'ai fait et j'ai aussi ajouté les espaces comme vous me l'avez dit, pour ce qui est de l'ouverture du fichier il faut un "_" et une tabulation apparemment, bref merci beaucoup ^^

Private Sub BtnMaj_Click()
Dim Uti As String
Dim An As String
Dim Mois As String
Dim Fich As String
Dim Fichier As String

Uti = CboCP.Value
An = CboAnnée.Value
Mois = CboMois.Value
Fich = CboTest.Value

Fichier = "C:\Users\" & uti & "\Entreprise\Service\Pole\Rapport\Achats\" & an & "\" & mois & "\Extractions\" & fich
Workbooks.Open Filename:=_
                   Fichier

End Sub

kingescanor a écrit :

Merci beaucoup pour vos réponses, j'ai creusé un peu et voici le code final qui fonctionne, j'avais oublié de dim Fichier donc je l'ai fait et j'ai aussi ajouté les espaces comme vous me l'avez dit, pour ce qui est de l'ouverture du fichier il faut un "_" et une tabulation apparemment, bref merci beaucoup ^^