Définir un répertoire d'enregistrement

Question

Je suis d&#233;j&#224; venu ce matin pour poser une question a laquelle vous avez r&#233;pondu et je vous en remercie. Cela m'a bien aid&#233; 

Maintenant Je voudrais savoir comment "enregistrer sous" un r&#233;pertoire
 Exemple dans excel j'ai une cellule avec "toto" et je voudrais que  mon fichier soit enregistrer sous C:\mesdocuments	oto 
Je pr&#233;cise que le r&#233;pertoire est d&#233;j&#224; cr&#233;er

Merci d'avance Jules 60

econs · Answer

Dim sTemp As String



    sTemp = Range("A1").Text ' si le nom de dossier est dans la case A1

    ActiveWorkbook.SaveAs "C:\Documents And Settings"
& Environ$("username") & "\Mes Documents" & Trim$(sTemp)
& "\Classeur1.xls"




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_JULES60 · Answer

Merci je vais essayer de l'appliquer &#224; mon projet et je te dirai si &#231;a a marcher 
Merci bcp j'&#233;tais vraiment bloqu&#233;e. 

Merci Jules

econs · Answer

Dim sTempDir As String

  Dim sTempFile As String

     sTempDir = Range("A1").Text ' si le nom de dossier est dans la case A1

     sTempFile = Range("B2").Text ' si le nom du fichier est dans la case B2


    ActiveWorkbook.SaveAs "C:\Documents And Settings" &
Environ$("username") & "\Mes Documents" & Trim$(sTempDir) &
"" & sTempFile & ".xls"

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Définir un répertoire d'enregistrement

3 réponses

Discussions similaires