Enregistrement d'un ficher avec une adresse changeante

Bonjour tout le monde ,

J'ai encore un problème avec le vba.... ^^

Mon objectif est de créer un nouveau document et de l'enregistrer dans un dossier précis. Mon problème est que le chemin est variable. Il faut enregistré sur un cloud. L'adresse est paramétrée à partir du nom de login de l'ordinateur, c'est la seul paramètre qui change.

J'ai le code suivant :

Sub Get_Environmental_Variable()

Dim sHostName As String
Dim sUserName As String

' Get Current User Name
sUserName = Environ$("username")
'Adding New Workbook
Workbooks.Add
'Saving the Workbook
ActiveWorkbook.SaveAs "C:\Users\sUsername\**********\****\Loic\EssaiL.xls"

End Sub

Les *** sont un vrai nom normalement. Les deux paramètres représentés par les étoiles sont fixes. Il n'y a que le nom d'utilisateur qui change.

Lorsque je lance, je reçois la fenêtre d'erreur suivante

Qqun sait il comment résoudre ce problème ?

Merci d'avance !

Bonjour Loïc

Essaies ceci

ActiveWorkbook.SaveAs Filename:= C:\Users\sUsername\**********\****\Loic\" & ActiveWorkbook.Name, CreateBackup:=False

Merci pour la réponse !

C'est mieux mais ca ne fonctionne pas encore...

L'erreur est maintenant Run-time erreur 424 : objet required

Est ce que au mois je cherche a faire est possible ?

Merci !

Je ne sais pas exactement ce qui est remplacé par les *

Mais si tu veux connaitre Username de PC voici le code mais où le placer ? je te l'ai mis au hasard sur la ligne de programme

Dim a As String
     a = Environ("username") 'Nom login ordinateur
ActiveWorkbook.SaveAs Filename:= C:\Users\sUsername\" & a "\****\Loic\" & ActiveWorkbook.Name, CreateBackup:=False
   

Dans le code que j'ai montré au début, les étoiles sont fixes.

La partie variable est sUserName

sUserName = Environ$("username")

et ensuite j'utilie sUserName dans mon chemein d'enregistrement

ActiveWorkbook.SaveAs Filename:= "C:\Users\" & sUsername"\****\****\Loic\EssaiL.xls" & ActiveWorkbook.Name, CreateBackup:=False

Le problème est maintenant est qu'il y a trop de guillement...

Merci pour le temps que vous prenez a m'aider !

bonjour,

essaie ceci

ActiveWorkbook.SaveAs Filename:= "C:\Users\" & sUsername & "\****\****\Loic\EssaiL.xls" & ActiveWorkbook.Name, CreateBackup:=False

C'est impeccable merci !