XL 2016 Comment enregistrer sous, dans un dossier sur le bureau quelque soit le pc et utilisateur

AugusteP

XLDnaute Nouveau
Bonjour, petit souci... je n'arrive pas à coder pour que l'enregistrement ou l'exportation en PDF se fasse sur n'importe quel Pc et par n'importe quel utilisateur
Avez-vous une idée, ci-après ma ligne de code. Merci pour votre aide !!

Private Sub CommandButton1_Click()
'Déclaration des variables
Dim NomDossier As String
Dim CheminDossier As String

On Error GoTo 1

'Nom de dossier
NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")
CheminDossier = "C:\Users\beaud\OneDrive\Bureau\Préparation de commande\" & NomDossier & "\"

If NomDossier = "" Then Exit Sub

'Enregistrement sous format PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "Préparation de commande_" & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
from:=1, to:=1, openafterpublish:=False

1

End Sub
 

Wayki

XLDnaute Occasionnel
Sauf erreur de ma part et après vérification sur le PC du taf :
C:\Users\beaud\OneDrive\Bureau\Préparation de commande\" & NomDossier & "\"
Enregistre sur le onedrive du compte "beaud", donc je suppose ton compte vu que c'est toi qui développe ? Peut être pour ça que ça marche pas ailleurs 🤷‍♂️
Si il y a pas besoin que ce soit en ligne (pas de supervision par exemple), alors y a juste à supprimer cette partie.
Sinon un insertbox comme tu as fait pour spécifier le compte utilisateur.
 

AugusteP

XLDnaute Nouveau
Bonjour ! après quelques jours d'absence je reviens sur mon problème.
Ce que je veux c'est que l'application que j'ai créé doit être utilisée par d'autres ordinateurs. Mais comme tu l'a compris le chemin d'accès pour enregistrer est propre à mon PC. Donc je voudrais trouvé un chemin d'accès "universel" pour que cela puisse fonctionner sur tous les Pc.
 

patricktoulon

XLDnaute Barbatruc
Bonjour
le chemin codé en dur
VB:
CheminDossier = "C:\Users\beaud\OneDrive\Bureau\Préparation de commande\" & NomDossier & "\"
le chemin codé en automatique
Code:
CheminDossier =environ("userprofile") & "\OneDrive\Bureau\Préparation de commande\" & NomDossier & "\"
 

dysorthographie

XLDnaute Impliqué
Bonjour,
Environ ne fonctionne pas sur onedrive