aubelix
XLDnaute Impliqué
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.
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.
Code:
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