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

Chemin universel vers le bureau

R

Reptiles04

XLDnaute Nouveau
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
C

Compte Supprimé 979

Guest
Re : Chemin universel vers le bureau

Salut Reptiles04,

Pour connaitre le chemin d'accès au bureau
Code: 
VPath = Environ("UserProfile")

A+
 
Vote positif 0 Vote négatif
R

Reptiles04

XLDnaute Nouveau
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
C

Compte Supprimé 979

Guest
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

chris

XLDnaute Barbatruc
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
R

Reptiles04

XLDnaute Nouveau
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
R

Reptiles04

XLDnaute Nouveau
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
C

ckoebel5

XLDnaute Junior
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.

Discussions similaires

Z
  • Question
Microsoft 365 Chemin pour atteindre le stockage cloud lors d'une génération de fichier Excel
Réponses
2
Affichages
287
zedude
Z
J
  • Question
Microsoft 365 Gestion des liens d'enregistrement
2
Réponses
21
Affichages
747
julien1982
J
A
  • Question
XL 2021 Comment créer un code VBA afin de création un chemin d'accès universel
Réponses
8
Affichages
874
AugusteP
A
W
  • Question
Microsoft 365 VBA: Combiner/Compiler des fichiers PDF dans un chemin existant dans ordre
Réponses
2
Affichages
237
kiki29
A
  • Question
XL 2019 Variable du bureau dans l'envoie par Outlook Filename:= et .Attachments.Add
Réponses
11
Affichages
462
fanch55
A
  • Question
XL 2019 vba Environ("UserProfile") fixer variable chemin du bureau multiples entre windows 10 et 11 et Drive
Réponses
2
Affichages
359
andrekn13
A
N
  • Résolu(e)
XL 2019 Remonter de formules entre Classeur
Réponses
2
Affichages
282
naelis
N
M
  • Question
Microsoft 365 Récupérer le chemin d'accès de python.exe dans un code VBA
Réponses
12
Affichages
571
Staple1600
C
  • Résolu(e)
XL 2021 enregistrer sous un sous répertoire en vba
Réponses
3
Affichages
468
cgpa
C
J
  • Résolu(e)
XL 2021 Envoi d'email et PJ en VBA
Réponses
3
Affichages
299
JPaul78
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…