Enregistrer fichier avec valeur cellule A1
Résolu
Alain
-
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, je voudrais enregistrer un fichier ayant pour titre la valeur de la cellule A1 (en excel 2002). J'essais la macro suivante et ça enregistre toujours sous le nom CENTR..xls peu importe ce qui se trouve en A1
With ActiveWorkbook
.SaveAs Filename:="D:\Documents and Settings\BS7655\Mes documents\Alain\Infos travail\SCM_LA1\" & [A1].Value & ".xls"
.Close
Set wbk = Workbooks.Open("D:\Documents and Settings\BS7655\Mes documents\Alain\Infos travail\SCM_LA1\Dossier_LA1.xls")
End With
Que faut-il faire pour que ça fonctionne.
Merci de me donner un coup de main.
Alain
With ActiveWorkbook
.SaveAs Filename:="D:\Documents and Settings\BS7655\Mes documents\Alain\Infos travail\SCM_LA1\" & [A1].Value & ".xls"
.Close
Set wbk = Workbooks.Open("D:\Documents and Settings\BS7655\Mes documents\Alain\Infos travail\SCM_LA1\Dossier_LA1.xls")
End With
Que faut-il faire pour que ça fonctionne.
Merci de me donner un coup de main.
Alain
3 réponses
-
Bonjour,
peut être faut t'il dabord convertir les formats faire passer un nombre en chaine !!! une fois le nombre convertit en "string" il sera possible de l'utiliser en tant que nom de ficiher .
a+jp -
La cellule A1 contient déjà une chaine de caratère alpha numérique.
J'ai essayé en utilisant ces nomenclature:
& Range("a1") & ".xls" et celui ci " & [A1].Value & ".xls"
et c'est toujours le même résultat: CENTR..xls
Je crois vraiment que c'est à ce niveau qu'il y a un problème.
Je n'utilise probablement pas la bonne nomenclature pour excel 2002. -
Tout à fait raison Mytä!
Mon problème est maintenant résolu!
Je devais spécifier à partir de quelle feuille.
Dans ce cas ci, j'ai donné un nom à cette feuille (Set sht = ActiveSheet), et je n'ai eu qu'à ajouter sht dans mon code , ce qui a donné :With ActiveWorkbook .SaveAs Filename:="D:\Documents and Settings\Bureau\Mes documents\SCM_LA1\" & sht.Range("a1") & ".xls"
au lieu de :
With ActiveWorkbook .SaveAs Filename:="D:\Documents and Settings\Bureau\Mes documents\SCM_LA1\" & Range("a1") & ".xls
Merci de m'avoir diriger sur la bonne voie!
