Modification chemin accès dans macro par userform

Modification chemin accès dans macro par userform - VB/VBA/VBS - Programmation

Marsh Posté le 15-09-2006 à 20:21:47    

Bonsoir,
 
Je me considère comme débutant. :hello:  
 
Dans excel,
 
J'ai conçu une application qui fonctionne a peu près bien avec des macros.
Dans l'une d'elle, j'ai utilisé des chemin d'accès tel que:
 
   [#000ef0] ChDir "C:\Documents and Settings\gaston\Mes documents"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\gaston\Mes documents\classeur1.xls", _
 
Seulement je souhaiterai diffuser cette application à d'autres et là les choses se complique puisque la macro utilise un chemin d'accès qui n'existe pas sur leur PC. (Je voudrai laisser la possibilité à l'utilisateur de mettre mon application où il le souhaite sur son PC).
 
Et je tiens pas à ce qu'ils aillent modifier dans la macros le chemin d'accès car je trouve cela trop sensible  :pt1cable: et peut être aussi compliqué pour des néophytes. :??:  
 
Donc je souhaiterai créer un userform qui se lance au premier démarrage de l'application dans lequel l'utilisateur devra paramétrer le chemin d'accès à l'application.
 
Et ensuite sauvegarder cette information comme une variable et l'utiliser dans la macros à la place des chemin d'accès initiaux.
 
Comment faire? Merci de l'aide.
 
Ciao bye
 

Reply

Marsh Posté le 15-09-2006 à 20:21:47   

Reply

Marsh Posté le 15-09-2006 à 21:20:51    

bonsoir,  
pas besoin d'USF tu peux utiliser ça :

Code :
  1. Sub TEST()
  2. Dim Dossier As FileDialog
  3. Set Dossier = Application.FileDialog(msoFileDialogFolderPicker)
  4. Dossier.Show
  5. MsgBox Dossier.SelectedItems(1)
  6. End Sub


A+

Reply

Marsh Posté le 15-09-2006 à 21:28:22    

Bonsoir,
as-tu le droit de créer une variable d'environnement dans l'autoexec.bat?
j'ai souvenance que tu définis une variable d'environnement dans l'autoexec.bat de l'utilisateur Set monchemin=.........
que tu rajoutes aux autres Set s'il y en a (par exemple Set Path=...)
sinon tu peux faire un batch que tu lances au démarrage et qui fait le set...
 
puis tu récupères en VBA avec : la fonction  environ  
tu cherche la ligne qui contient monchemin , tu coupes pour garder  C:\....  
 
Cordialement


Message édité par seniorpapou le 15-09-2006 à 21:40:53
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed