Récupérer le nom f'un fichier dans une cellule

chrsitophe Messages postés 11 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 21 avril 2008 - 21 avril 2008 à 13:21
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 21 avril 2008 à 21:44
.....

13 réponses

chrsitophe Messages postés 11 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 21 avril 2008
21 avril 2008 à 13:28
je souhaite récupérer le nom d'un fichier inscrit dans une cellule et m'en servir pour actier un classeur.

Mon code (qui ne fonctionne pas)
Dim nom_fichier as string

nom_fichier=cells(101,1).value

""Dans la cellule A101 est inscrit feuil_meca.xls"":commentaire

Workbooks("nom_fichier").Activate
0
Acta_6 Messages postés 29 Date d'inscription mercredi 25 avril 2007 Statut Membre Dernière intervention 22 avril 2008
21 avril 2008 à 13:36
Bonjour Christophe.
Il faut que tu enlèves les " autour de nom_fichier. Sinon, il prend nom_fichier comme une chaine alors que c'est une variable.
Ca donne:
Workbooks(nom_fichier).Activate

@+
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
21 avril 2008 à 13:38
Workbooks(nom_fichier).Activate

@+: Ju£i?n
Pensez: Réponse acceptée
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
21 avril 2008 à 13:39
Re,
Argh <gras>Ju£i?n</gras>, fait un REfresh lorsque tu ne réponds pas tout de suite...
Désolé les gars pour le doublons

@+: Ju£i?n
Pensez: Réponse acceptée
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
chrsitophe Messages postés 11 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 21 avril 2008
21 avril 2008 à 13:40
ca ne marche tjrs pas avec ta méthode.
0
chrsitophe Messages postés 11 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 21 avril 2008
21 avril 2008 à 13:42
Est ce que "cells(101,1).Value" renvoit une donnée sous le bon format?
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
21 avril 2008 à 13:45
Salut,
Il faut peu etre virer le .XLS de la cellule
Dim nom_fichier As String

nom_fichier = cells(101, 1).Value
nom_fichier = Mid(nom_fichier, 1, InStrRev(nom_fichier, ".") - 1)
Workbooks(nom_fichier).Activate, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée
0
chrsitophe Messages postés 11 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 21 avril 2008
21 avril 2008 à 13:54
ca ne marche pô
:-(
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
21 avril 2008 à 13:59
Salut,

>[auteur/CHRSITOPHE/1371894.aspx chrsitophe] : Saches que "ca ne marche pô" ne nous aide pas à avancer. => QUE SE PASSE T IL , y a t il une erreur, est ce que cela ne fait "simplement" rien. bref rappelles toi que nous ne sommes pas devant ton PC.

1- le classeur à activer est il déjà ouvert?
@+: Ju£i?n
Pensez: Réponse acceptée
0
Acta_6 Messages postés 29 Date d'inscription mercredi 25 avril 2007 Statut Membre Dernière intervention 22 avril 2008
21 avril 2008 à 14:44
jrivet a raison:
-- Si le classeur est déjà ouvert, il faut enlever le .xls
(tu peux essayer aussi avec nom_fichier=Left(nom_fichier,len(nom_fichier)-4)
)
-- Si il n'est pas ouvert, il faut faire a la place du activate:
Workbooks.open (chemin_du_fichier & nom_du_fichier)

Dans tous les cas, ca marche pas ne nous avance pas trop.
0
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 13
21 avril 2008 à 17:12
salut,

essais avec ca :

Dim nom_fichier As String
nom_fichier = Cells(101, 1).Text
On Error Resume Next
Workbooks(nom_fichier).Activate
If Err <> 0 Then
    Err.Clear
    MsgBox "le fichier que vous essayez d'activer n'est pas ouvert ! ", vbExclamation
End If

meme si j'ai reutilisé la ligne

nom_fichier = Cells(101, 1).Text

je te deconseil quand meme de l'utiliser t'elle quelle car si ta macro est lancer depuis une autre feuille que la
la feuille qui contient le nom du fichier a activer ca vas planter. Tout ca pour dire qu'il est preferable de specifier la
feuille qui contient la cellule qui contient la valeur a recuperer. exemple :

Dim nom_fichier As String

nom_fichier = Cells(101, 1).Text
nom_fichier = Sheets("feuil1").Cells(101, 1).Text
On Error Resume Next

Workbooks(nom_fichier).Activate

If Err <> 0 Then

    Err.Clear

    MsgBox "le fichier que vous essayez d'activer n'est pas ouvert ! ", vbExclamation

End If

A+
0
Acta_6 Messages postés 29 Date d'inscription mercredi 25 avril 2007 Statut Membre Dernière intervention 22 avril 2008
21 avril 2008 à 18:26
Tout a fait d'accord (pas bète bigfish, la feuille active est peut-etre pas la bonne). Et dans la même logique, il faut spécifier le classeur aussi. ;o)

Enfin, si tu pouvais nous donner des précisions sur le "ca marche pas" christophe, ca aiderait. ;o)
Merci.
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
21 avril 2008 à 21:44
salut,
et à l'occasion nettoie complètement le cache de ton navigateur, c'est pour çà qu'il y a des messages vides ou en doublons
0