Discussion :

[jean30]

Bonjour,
J'ai un problème avec le chemin du bureau.
J’envoie un fichier Excel que les personnes me retourne.
En cliquant sur le bouton "Valider saisie" le formulaire une fois rempli, devrait s'enregistrer sur leur bureau, ce qui n'est pas toujours le cas.
Il peut y avoir de 1 à 4 saisie avec des enseignements différents.
Le(s) fichier(s) devrait(ent) s'enregistrer sur le bureau avec le nom figurant en A4 et K4 du formulaire. (Le fichier (formulaire) d'origine devant rester ouvert.)
Puis ensuite, m'envoyer le(s) fichier(s) ainsi enregistré(s) par mail.
Beaucoup de personnes ont des DD partitionné avec leur bureau mis sur une de leur partition et des Windows différents (Xp à Win10).
Cela vient-il de là ?
Comment déterminer par Vba le chemin de leur bureau et l'utiliser pour enregistrer le fichier sur leur bureau en cliquant sur ce bouton.
Je vous remercie de bien vouloir corriger mon code.
Mon formulaire :
https://www.cjoint.com/c/HJkk4cZJcyQ

Si je fais une recherche du fichier Everything me donne :


Mais quand je regarde dans :


Je n'ai rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub SaveAsOnDeskTop()
Dim ThePath As String
Dim TheFileToSave As Variant
 
ThePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & ActiveWorkbook.Name
 
'TheFileToSave = Application.GetSaveAsFilename(ThePath, "Microsoft Excel,*.xls")
ThisWorkbook.SaveCopyAs Chemin & Range("A4").Value & " " & Range("K4").Value & ".xls"
ActiveWorkbook.SaveCopyAs TheFileToSave
 
If TheFileToSave = False Then Exit Sub
End Sub

[patricktoulon]

re
normalement dans tou windows confondus
c'est environ("userprofile")&"\DeskTop"
ET !!! multipartition ou pas!!!! environ doit te le trouver!!!

ci ca match pas c'est que le dossier a été déplacé ce dont je doute car il fait parti de l'arborescence windows native et combien meme il aurait pu etre déplacé dans ce cas la c'est perdu aucune fonction logicielle vba ou autre pourrait te donner le chemin car pour deplacer un tel dossier il faudrait reprendre tout droit administratif utilisateur et de ce fait le dossier "bureau" ne ferait plus partie de l'arborescence native de windows
j'yrais meme jusqu'a dire que windows planterais au demarrage si dossier déplacé car il est solicité au demarrage windows pour l'affichage du bureau lui meme avec le desktop.ini

[jean30]

Bonjour Patrick,
Si je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.SaveCopyAs environ("userprofile") &"\DeskTop\ & Range("A4").Value & " " & Range("K4").Value & ".xls"

Ça marche pas.
Accepterais-tu de modifier Stp

[patricktoulon]

il manquait un guillemet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.SaveCopyAs Environ("userprofile") & "\DeskTop\" & Range("A4").Value & " " & Range("K4").Value & ".xls"

[jean30]

Bonjour Patrick,
Je te remercie, il y a cependant un problème
Une personne me dit que le fichier enregistré ne se met pas sur son bureau dont son chemin est E:\Utilisateurs\Michel\Documents
Il retrouve le fichier : C:\Users\Michel\Desktop

[patricktoulon]

re
je sais pas il a un windows qui viens d'affrique du nord non ?
j'ai deja vu ca sur des windows pipé il y a longtemps

qu'importe ou windows a été installé A,B,C,D,E etc.... environ doit te retourner le bon endroit SI ca le fait pas c'est que son windows c'est le boxon et la personne peut rien pour lui mis a part le conseiller de formater et de refaire une installation windows digne de ce nom

[hyperion13]

remplacez .Value par .Text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.SaveCopyAs Environ("userprofile") & "\DeskTop\" & Range("A4").Text & " " & Range("K4").Text & ".xls"

Mais ça c'était avant la modif du post#5 avec son erreur de compilation.

[pijaku]

Bonjour,

Bonjour Patrick,
Je te remercie, il y a cependant un problème
Une personne me dit que le fichier enregistré ne se met pas sur son bureau dont son chemin est E:\Utilisateurs\Michel\Documents
Il retrouve le fichier : C:\Users\Michel\Desktop

Ne manquerait-il pas un \ dans le code VBA après Desktop et avant le nom de fichier?