enregistrement

[stephane]

bonjour j ai un finchier excel dont le nom est dans une cellule A2 par exemple

j aimerais que ma macro lors de click sur un bouton enregistre directement le fichier sous le disk dur d:\\facture\\facture + nom du fichier excel ...

si kelkun pouvait m aider ca serait cool
j'ai essayé de le faire moi meme en temps que débutant en vba,
j ai trouvé cela dis une solution mais qui ne fonctionne pas..

merci

 

[ERIC S]

bonsoir

essaie le code

ActiveWorkbook.SaveAs Filename:= _
'D:\\facture' & Range('A2').Value & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False


A+

 

[stephane]

merci beaucoup

je vais essayer

 

[stephane]

ta macro marche pour l enregistrement merci bcp mais elle ne cree pas le dossier facture ..

en fait imagine que sur mon lecteur d j ai un repertoire comme suivant:

d:\\facture\\

je voudrais que par exmple la cellule A2 contient 728 ( 728 ecrit en format text ou nombre)

cela donnerait

d:\\facture\\facture 728\\mes fichiers.xls ou .doc


merci de m aider...

a bientot

stephane

 

[ERIC S]

bonsoir

ActiveWorkbook.SaveAs Filename:= _
'D:\\Facture\\facture ' & Range('A2').Value & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False

en regardant l'exemple ci-dessus, si sur D: tu as un répertoire Facture, tu sauvegarde un fichier qui se nommera 'facture 271' si tu as 271 en A2

les \\ sont nécessaires pour bien définir les chemins

A+

 

[ERIC S]

re

je n'avais pas vu que les backslash disparaissent dans les messages
je reprends mon message en mettant $ pour les backslash

ActiveWorkbook.SaveAs Filename:= _
'D:$Facture$facture ' & Range('A2').Value & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False

en regardant l'exemple ci-dessus, si sur D: tu as un répertoire Facture, tu sauvegarde un fichier
qui se nommera: facture 271, si tu as 271 en A2

A+