Enregistrer fichier avec valeur cellule A1 Résolu/Fermé

Question

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



Configuration: Windows XP / Internet Explorer 6.0

jean-pierreL · Answer

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

Alain · Answer

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.

Alain · Answer

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!

Enregistrer fichier avec valeur cellule A1

3 réponses

Discussions similaires