Enregistrement automatique d'un fichier sous un nom défini par une formule

chb44

XLDnaute Nouveau
bonjour à toutes et à tous,


je souhaiterai savoir s'il est possible de créer une macro me permettant d'effectuer automatiquement l'enregistrement d'un fichier
je vous joins un fichier d'exemple

l'objectif est d'enregistrer le fichier sous le nom repris en A12
ce nom est obtenu grâce à la formule suivante :
=CONCATENER(B2;" ";B3;" ";B7;" ";B8;" AVEC CHARGEMENT A ";B4;" VIA ";B5;" ET VIA ";B9; " N° ";B1)

le fichier doit être enregistré dans le répertoire dont le chemin est repris en a15

merci de vos lumières

chb44


ps : j'ai essayé avec un enregistrement manuel mais cela ne marche pas !!! :( :(
 

Pièces jointes

  • testchb44 05092012.xls
    16.5 KB · Affichages: 39
C

Compte Supprimé 979

Guest
Re : Enregistrement automatique d'un fichier sous un nom défini par une formule

Salut Chb44

Tu peux utiliser le code du style
Code:
Dim sNomFic as string, sPath as String
sNomFic = Range("A12").Value
sPath = Range("A15").Value
If Right(sPath,1) <>"\" then sPath = sPath & "\"
ActiveWorkbook.SaveAs sPath & sFic

ATTENTION !
Le chemin devra être sous le format Windows : "C:\Documents and Settings\NomUser\Mes documents\"

A+
 

chb44

XLDnaute Nouveau
Re : Enregistrement automatique d'un fichier sous un nom défini par une formule

une petite question (idiote, je pense mais bon, le ridicule ne tue pas !) où dois je renseigner le chemin d'accès pour enregistrer le fichier dans le "bon répertoire" !

A+
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T