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

[AugusteP]

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

 

[kiki29]

Salut, voir par ici et adapter à ton contexte.

 

[Wayki]

Salut,
Tous les utilisateurs utilisent le même compte ? 🤔
Juste au cas où, t'es sur un enregistrement onedrive et pas local c'est pour ça que je demande.

 

[AugusteP]

Salut,
Tous les utilisateurs utilisent le même compte ? 🤔

salut, comment le même compte ?
l'application excel doit être utilisée par tous. Lorsque l'utilisateur enregistre au format PDF, il doit pouvoir le faire sur son bureau….

 

[Wayki]

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]

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]

Bonjour
le chemin codé en dur

CheminDossier = "C:\Users\beaud\OneDrive\Bureau\Préparation de commande\" & NomDossier & "\"

le chemin codé en automatique

CheminDossier =environ("userprofile") & "\OneDrive\Bureau\Préparation de commande\" & NomDossier & "\"

 

[dysorthographie]

Bonjour,
Environ ne fonctionne pas sur onedrive

XL 2010 - VBA - Enregistrer feuille active sur le bureau en xlsx

Bonjour le forum, Je viens à vous aujourd'hui car j'ai crée un outil avec Excel permettant de récupérer les données d'une facture en PDF et de les retranscrire sur un fichier Excel (je passe les détails ^^'). Etant juste un outil, je souhaiterais pouvoir a la fin avec un bouton permettre de...

www.excel-downloads.com

 

[AugusteP]

Merci patricktoulon !!! cela fonctionne correctement MERCI !!
Cordialement

 

[dysorthographie]

Et bien je suis content pour toi car chez moi ça me donne un chemin erroné!

 

[AugusteP]

Désolé !!!

 

[AugusteP]

.... il s'agit peut-être de créer au préalable un dossier sur ton bureau, pour il s'agit de "Préparation de commande" dans lequel j'ai des sous-dossier comme "bon de commande" ou "étiquette colis". À voir !!

 

[dysorthographie]

Il faut savoir que l'utilisateur peut choisir lui même le chemin à onedrive dans ce cas environ ne le trouve pas!