ENREGISTRER

[richard]

BONJOUR

j ai un petit probleme je souhaiterais pouvoir enregistrer un classeur exel toujour dans le meme rep et avec le meme nom mais suivit d'une deuxieme partie qui serait prit dans une cellules données

pour etre plus clair j ai une facture avec une cellule dans lasquelle il y a un numero de facture et je souhaiterais enregistrer par exemple

"C:\Documents and Settings\richard\Mes documents\FACTURE\facture-XYZ.xls" (le XYZ etant le numero de ma facture)

merci d avance

 

[sousou]

Bonjour

Une petite procédure du genre:

Sub enr()
nom="facture-" & activesheet.range("a1") 'Si a1 contient le n°'
monrep="C:\Documents and Settings\richard\Mes documents\FACTURE\"
thisworkbook.saveas(monrep & nom & ".xls")

end sub

 

[EricS]

Bonjour

avec l'enregistreur de macro le code généré est :

ActiveWorkbook.SaveAs FileName:= _
"C:\Documents and Settings\Eric\Mes documents\Classeur1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

dans ton cas, tu peux utiliser (exemple avec donnée en A10):

répertoire = "C:\......................\"
ActiveWorkbook.SaveAs FileName:= _
répertoire & range("a10").value & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

tu peux appeler ta macro par bouton ou la faire s'exécuter avant fermeture du classeur

Eric

 

[richard]

merci de vos reponce si rapide votre aide ma ete precieuse