Nom fichier dans une cellule

Bonjour à tous

dans une feuille excel en A1 par exemple il toto.xlsx (nom qui peu varier)
dans ce fichier toto.xlsx il y a une feuille que je souhaite copier dans le fichier actif

Le problème c'est que je n'arrive pas à affecter à une variable cette valeur du style

Code:

---

1 2	fic = sheets("AA").range("A1") set fo = workbooks(fic)

---

si quelqu'un peut me dépanner
merci à vous

bonjour,

inspire toi de la :faq:



Comment ouvrir un classeur ?


n'oublie pas le répertoire ;)

j'ai regardé mais mes 2 fichiers sont déjà ouverts.

pour faire simple le fichier toto.xlsm contient une macro qui me fait choisir un autre fichier lulu.xlsx à ouvrir avec une série de traitement qui lui a en A1 ce fameux toto.xlsm.

Combien de classeurs concernés au final ?

dans quel classeur ton code ?

quel est le code d'ouverture de "lulu.xlsx" ?

dans quel classeur et quelle feuille ta cellule A1 ?

2 classeurs
toto.xlsm contient le code
lulu.xlsx est ouvert par le biais d'un getopenfilename
la cellule A1 sur la feuille Feuil1 de lulu.xlsx

et il y as quoi dans cette cellule A1 ?

en A1 il y a toto.xlsm

Je comprends pas ce que tu veux faire ? ta macro est bien dans le fichier Toto.xlsm et c'est ce même fichier que tu veux affecter à ta variable fo ?

mais pourquoi faire ????? :aie:

je cherche le moyen d'écrire un bout de code qui me permet de copier un onglet qui est dans le fichier A contenant la macro vers un fichier B (dont le nom peut être variable).
Après s'il faut affecter 2,3 ou 4 variables ce n'est pas important pour moi

voilà ce que j'ai réussi à écrire (il y a sans doute mieux et plus propre)

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub copie_fiches() Dim fo As String, fd As String, fb As Workbook, fe As Workbook fo = Sheets("Param").Range("B2") Set fb = Workbooks(fo)   fd = Sheets("PARAM").Range("B3") Set fe = Workbooks(fd) fb.Sheets("FICH_ASS").Copy Before:=fe.Sheets("Param")   End Sub

---

bonjour,

toujours pas clair ...

Tu as un fichier qui contient ta macro ... tu ouvre un autre fichier .. et dans ce nouveau fichier tu vas lire le nom du premier fichier ?? c'est vraiment bizarre ton truc ... soit tes explications ne sont pas claire soit c'est vraiment tordu !!


Tiens pour travailler le classeur contenant ton macro utilise l'objet ThisWorkBook

ça fonctionne c'est le principal

le problème étant que chaque utilisateur est en mesure de renommer le fichier contenant la macro
que le second fichier à ouvrir est issue de l'explorateur avec donc un nom variable

le principal pour moi c'est que cela fonctionne

un jour lorsque mes connaissances vba seront plus complètes je fonctionnerai différemment
merci pour ton intérêt

Citation:

---

Envoyé par Pierre67

...
le problème étant que chaque utilisateur est en mesure de renommer le fichier contenant la macro
que le second fichier à ouvrir est issue de l'explorateur avec donc un nom variable...

---

:aie: et donc il faudra que ton utilisateur s'il renomme ton fichier macro , pense à modifier le nom de ce fichier macro dans tous tes "2° fichiers" :aie::aie:

pas du tout puisque ma macro va inscrire le nom du fichier contenant la macro dans la cellule A1 du second fichier que je viens d'ouvrir.
A aucun moment l'user n'aura à modifier des noms de fichiers

Et d'où elle le sort ce nom ta macro ? montre ton code d'écriture ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

nom_fichier = Application.GetOpenFilename("Fichiers Excel (*.csv), *.csv") If nom_fichier <> False Then Workbooks.Open Filename:=nom_fichier, local:=True End If nom_fichier = ActiveWorkbook.Name ActiveSheet.Name = "Evenements" Dim ws As Worksheet For Each ws In Worksheets Application.DisplayAlerts = False If ws.Name <> "Evenements" Then ws.Delete Next Application.DisplayAlerts = True ActiveWorkbook.Sheets.Add AFTER:=Worksheets(Worksheets.Count) ActiveSheet.Name = "TAB_TRANSFER" Sheets.Add AFTER:=Sheets(Sheets.Count) ActiveSheet.Name = "Param" Sheets("Param").Range("A1") = "Chemin d'Accès " 'chemin du fichier actif Sheets("Param").Range("A2") = "Nom du fichier macro" ' nom du fichier d'ouverture Sheets("Param").Range("A3") = "Nom du fichier ouvert" ' nom du fichier ouvert Sheets("Param").Range("A4") = "C.T.C.G. Long" Sheets("Param").Range("A5") = "C.T.C.G. Court" Sheets("Param").Range("A6") = "Date Mini" Sheets("Param").Range("A7") = "Date Maxi"   Sheets("Param").Range("B1") = ThisWorkbook.Path & "\" 'chemin du fichier actif Sheets("Param").Range("B2") = ThisWorkbook.Name ' nom du fichier d'ouverture Sheets("Param").Range("B3") = nom_fichier ' nom du fichier ouvert Sheets("Param").Range("B4") = ThisWorkbook.Sheets("MENU").Range("C1") Sheets("Param").Range("B5") = UCase(Left(Sheets("Param").Range("B4"), 3))

---