Enregistrer fichier avec valeur cellule A1

Résolu/Fermé
Alain - 18 sept. 2010 à 16:01
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 18 sept. 2010 à 21:12
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



A voir également:

3 réponses

jean-pierreL Messages postés 792 Date d'inscription mercredi 2 janvier 2002 Statut Membre Dernière intervention 10 mai 2014 65
18 sept. 2010 à 16:57
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
0
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.
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
18 sept. 2010 à 19:06
Salut le forum

«...peu importe ce qui se trouve en A1»

Un indice : La cellule A1 de quelle feuille ?

Mytå
0
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!
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
18 sept. 2010 à 21:12
Re le forum

Bien heureux que ton problème soit solutionné.

A une prochaine
Mytå
0