[Catégorie modifiée VB6 --> VBA] PB : RECUPERER LE NOM D'UNE PAGE (Excel) [Résolu]

Signaler
Messages postés
70
Date d'inscription
mercredi 1 octobre 2008
Statut
Membre
Dernière intervention
17 avril 2013
-
Messages postés
70
Date d'inscription
mercredi 1 octobre 2008
Statut
Membre
Dernière intervention
17 avril 2013
-
Bonjour a tous,
je débute depuis ce matin en vb excel, voici mon problème:

Je dispose de trois type de fichier texte (texte1, texte2, texte3) lors de l'ouverture de mon document excel, je demande a l'utilisateur lequelle il veut importer.

Lors de l'importation deux fichiers sont distincts
- 1 : MonDocsVierge.xls (qui reste vierge et qui me sert d'importation)
- 2 : NomDuFichierSelectionnéParmisLesTrois.xls (qui contient les données)

A partir de ce moment j'exploite les résultats du fichier texte choisi :
- Etape 1 : Mise en forme des données (macro excel) : OK
- Etape 2 : Création de graphiques (macro excel) : PAS OK

Le soucis est que je ne connais pas à l'avance le nom du fichier qui est ouvert.

J'arrive a récupérer le nom du fichier avec la fonction :

Dim NomFichier
NomFichier = Application.Sheets(1).Name

mais la macro excel m'impose :

ActiveChart.SetSourceData Source:=Sheets("Importation").Range("A7:A19,D7:D19" _
), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
Charts.Add

Comment faire pour remplacer le Sheets("Importation") par le nom de la page courante (NomFichier) ?

Merci de vos solutions proposés

Cordialement
Romain

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
Salut
Tu veux changer le nom de la feuille Importation ?
Ou bien tu veux modifier ta syntaxe VB pour insérer le nom de ton fichier qui sera le nom de la feuille dans le futur ?

Dim monFichier As String
monFichier = "C:\mon Fichier Excel sélectionné.XLS"

Changer le nom :
Sheets("Importation").Name = monFichier

Modifier la syntaxe :
ActiveChart.SetSourceData Source:=Sheets(monFichier).Range("A7:A19,D7:D19" _
), PlotBy:=xlColumns
Tu remarqueras la disparition des "

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
70
Date d'inscription
mercredi 1 octobre 2008
Statut
Membre
Dernière intervention
17 avril 2013

Merci beaucoup !