Chemin par defaut

Chemin par defaut - Programmation

Marsh Posté le 15-08-2001 à 11:42:18    

Comment choisit on un chemin par defaut en VB pour sauvegarder qqch
 
Moi j'ecris :
 
  ChDir "C:\Windows\Bureau\"       :gun:  
 
  OpenSave = Application.GetSaveAsFilename(InitialFilename:=SaveCompany + " - " + SaveName + " - " + SaveDate + "." + "xls", filefilter:="Excel projects (*.xls), *.xls", Title:="Save the project as..." )
  ThisWorkbook.SaveAs Filename:=OpenSave
 
mais ca fait n'importe quoi
Quelqu un aurait il une idee ?


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 15-08-2001 à 11:42:18   

Reply

Marsh Posté le 15-08-2001 à 16:21:26    

pour changer le repertoire par defaut:
application.defaultfilepath="c:\"    'ou un autre chemin

Reply

Marsh Posté le 16-08-2001 à 08:09:15    

Merci Bcp


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 16-08-2001 à 08:17:27    

Ca marche  Je te remercie encore


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 16-08-2001 à 08:21:00    

enfin il y a encore un hic  
c que moi je dois ecrire ca  
 
Application.DefaultFilePath = ThisWorkbook.Path '+ "\Projects"
 
et ca il le prends pas  
et je sais pas pk
parce que en fait le chemin change  
Si qqun sait comment faire ...


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 16-08-2001 à 08:50:22    

J'ai pas testé mais:
temp=thisworkbook.path & "\projects"

Reply

Marsh Posté le 16-08-2001 à 08:59:04    

Merci nur c'est ca
 
j'ecris ca et ca marche
 
temp = ThisWorkbook.Path & "\projects"
ChDir temp
 
et sinon tu sait pas comment afecter un champs de Word ds Excel?
en tt cas Merci bcp


---------------
Une ptite aide en VB et jVBien
Reply

Sujets relatifs:

Leave a Replay

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