Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Chemin universel vers le bureau

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Reptiles04
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

Reptiles04

Guest
Bonjour,

J'ai un fichier avec une macro qui creer un PDF et l'enregistre dans l'ordi.

Hors mon fichier est utilisé sur différents postes, ce qui implique des chemin de bureau différents.

Existe-il un code qui trouve tout seul le chemin du bureau sur n'importe quel PC ?

Merci
Thibaut
 
Trier par date Trier par votes
Re : Chemin universel vers le bureau

J'ai un petit problème pour l'utiliser ...
Comment elle fonctionne ?

Sheets("Menu").Select
MsgBox " Vos informations vont etre enregistrées dans un fichier PDF sur votre bureau "
Sheets("Mes informations").Select
Range("A1:E39").Select
CheminDuFichier = "Informations " & "" & Sheets("Mes informations").Range("B2") & " " & Sheets("Mes informations").Range("B4") & ".pdf"
ChDir "C:\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\" & CheminDuFichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
 
Vote positif 0 Vote négatif
Re : Chemin universel vers le bureau

Re,

Code: 
  Dim CheminDuFichier As String
  Dim VPath As String
  Sheets("Menu").Select
  MsgBox " Vos informations vont etre enregistrées dans un fichier PDF sur votre bureau "
  Sheets("Mes informations").Select
  'Range("A1:E39").Select ' Pourquoi ?
  ' Récupérer le chemin complet du dossier bureau
  VPath = Environ("UserProfile") & "\Bureau\"
  CheminDuFichier = "Informations " & "" & Sheets("Mes informations").Range("B2") & " " & Sheets("Mes informations").Range("B4") & ".pdf"
  'ChDir "C:\" ' Pas besoin
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=VPath & CheminDuFichier, Quality:=xlQualityStandard, _
                                  IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

A+
 
Vote positif 0 Vote négatif
Re : Chemin universel vers le bureau

Bonjour
Bise à Bruno

Petite précision : j'avais eu à traiter le même problème il y a quelques années mais en plus compliqué car cela devait marcher en environnement mono ou multi utilisateurs, en version française et en version US.
Les versions mono utilisateurs ne sont plus là mais si ton programme peut avoir à tourner sur une version US, il faudra tester "Bureau" et "Desktop".
 
Vote positif 0 Vote négatif
Re : Chemin universel vers le bureau

Re,

J'ai testé mon application sur un autre pc et sa ne marche pas, je ne comprend pas pourquoi ???

Il me dit erreur 1004 ?

Peut etre remplacer "bureau" par "desktop" ?

Merci
Thib
 
Vote positif 0 Vote négatif
Re : Chemin universel vers le bureau

En remplacant par "desktop", toujours le meme probleme ...
En fait sa à l'air de marcher sous XP (ma version) mais pas sous Vista et 7 ?
Car j'ai l'impression que dans ces systèmes d'exploitations, il n'existe pas de dossier "Bureau", contrairement à xp (C:\Documents and Settings\Administrateur\Bureau).

Sinon il me reste a l'enregistrer à la racine de C: qui doit etre universel mais c'est pas terrible ...
 
Vote positif 0 Vote négatif
Re : Chemin universel vers le bureau

Salut le forum,
je me penchais sur cette discussion car je me suis posé la même question. La solution proposée marche sous windows 10.

Code: 
Dim ThePath as string
ThePath = Environ("UserProfile") & "\Desktop\"      
 ' sur mon PC l'adresse du bureau est bien : C:\Users\Christophe\Desktop\


    Sheets("Tableaux à imprimer").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThePath & Cls & " " & NomDev & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True


Cordialement,

Christophe
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2021 VBA - Enregistrer en fichier un Embbeded PDF créé en présence d'Adobe Acrobat sur le PC
2 3 4
Réponses
50
Affichages
914
Dudu2
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
911
Nounours4173
N
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
653
MarineU
M
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
662
Phil69970
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
686
PHIL37
P
Z
  • Question Question
Microsoft 365 Chemin pour atteindre le stockage cloud lors d'une génération de fichier Excel
Réponses
2
Affichages
794
zedude
Z
J
  • Question Question
Microsoft 365 Gestion des liens d'enregistrement
2
Réponses
21
Affichages
2 K
julien1982
J
démarrer un fichier importer du web en toute securité
Réponses
7
Affichages
672
patricktoulon
F
  • Question Question
XL 2021 Power Query : extraire tableaux et données de PDF
Réponses
0
Affichages
432
Florent74
F
  • Question Question
Microsoft 365 Copier un fichier dans l'explorer vers le presse-papier
Réponses
0
Affichages
374
gsx-air
  • Question Question
XL 2021 Comment créer un code VBA afin de création un chemin d'accès universel
Réponses
8
Affichages
1 K
AugusteP
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
1 K
job75
W
  • Question Question
Microsoft 365 VBA: Combiner/Compiler des fichiers PDF dans un chemin existant dans ordre
Réponses
2
Affichages
527
kiki29
M
  • Résolu(e)
Microsoft 365 Problème Excel Macros Liaison Ppt
Réponses
11
Affichages
659
D. HANIB
D
  • Résolu(e)
Microsoft 365 Traiter un fichier CSV qui est ouvert
2
Réponses
16
Affichages
758
gsx-air
A
  • Question Question
XL 2019 Variable du bureau dans l'envoie par Outlook Filename:= et .Attachments.Add
Réponses
11
Affichages
912
fanch55
N
  • Question Question
Microsoft 365 PB enregistrement fichier partagé
Réponses
0
Affichages
527
Nounours4173
N
A
  • Question Question
XL 2019 vba Environ("UserProfile") fixer variable chemin du bureau multiples entre windows 10 et 11 et Drive
Réponses
2
Affichages
910
andrekn13
A
  • Question Question
XL 2021 Liste des propriétés de fichiers.
3 4 5
Réponses
73
Affichages
5 K
jeff1494
F
  • Résolu(e)
XL 2021 VBA et Power Query : ecrire des requetes avec variables
2
Réponses
28
Affichages
3 K
Florent74
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…