Enregistrer en fonction d'une cellule

Fermé
remman - 21 nov. 2011 à 13:53
 Paf - 22 nov. 2011 à 18:10
Bonjour,

je souhaiterai enregistrer mon fichier dans un dosier spécifique en fonction d'une cellule.
Ma cellule D5 comporte le nom du sous dossier ou je souhaiterais enregistrer mon fichier et ce sous dossier ce trouve dans un dossier fixe.

j'ai essayé ceci :
Do
ActiveSheet.SaveAs Filename:="C:\Documents and Settings\martin\Bureau\martinf\Maintenance\" & Range("D5").Value & Sheets(2).Name & ".xls"

Mais ca fonctionne pas.

pouvez vous m'aider?

Merci d'avance

A voir également:

1 réponse

bonjour

Qu'est ce qui ne marche pas? Y a-il un message d'erreur?

Peut-être,si Range("D5").Value contient le nom du sous dossier, il faudrait écrire:
ActiveSheet.SaveAs Filename:="C:\Documents and Settings\martin\Bureau\martinf\Maintenance\" & Range("D5").Value  & "\" & Sheets(2).Name & ".xls" 


A+
0
Merci pour ta réponse, mais j'ai toujours le même soucis, ca ne me l'enregistre pas dans mon sous dossier.
0
Re
je m'étais focalisé sur la définition du chemin, mais c'est le classeur que tu enrégistre ( et pas la feuille) donc il faut utiliser :

ActiveWorkbook.SaveAs ......
Bonne suite
0