Chemin du fichier exporté dans un Label

[aubelix]

Bonjour à tous les Amis du Forum.

De nouveau, je sollicite votre aide.
Le code ci-dessous fonctionnait bien.
Mais j'ai voulu ajouter l'affichage du chemin.
J'ai un message d'erreur.
Qulle est la bonne syntaxe ou le code à écrire.

Par avance, Merci pour votre aide.
Cordialment.

 CheminAppli = ActiveWorkbook.Path
 
...
...
 
 For i = 3 To Sheets.Count
            Sheets(i).Select
            nonglet = ActiveSheet.Name
            ActiveSheet.Copy
            ActiveWorkbook.SaveAs Filename:=CheminAppli & "\" & nonglet
            ActiveWindow.Close
 
            UserFormAttente.Label2.Caption = vbCrLf & "Export de la REF pour le TYPE : " & vbCrLf & ActiveSheet.Name & vbCrLf
[COLOR=red]CheminAppli[/COLOR]
 
[COLOR=seagreen][B]'Comment afficher le chemin dans le Label2[/B][/COLOR]
 
            UserFormAttente.Label2.ForeColor = &HC00000
            UserFormAttente.Repaint

 

[Pierrot93]

Re : Chemin du fichier exporté dans un Label

Bonjour Aubelix,

essaye ainsi, si j'ai bien compris :

UserFormAttente.Label2.Caption = CheminAppli

bon après midi
@+

Edition : bonjour Jean-Marcel

 

[aubelix]

Re : Chemin du fichier exporté dans un Label

Bonjour Jean-Marcel et Pierrot93.

Merci pour vos réponses et votre aide.
Pierrot93 cela Fonctione très bien.

cORDIALEMENT;