Comment stocker nom du fichier actif dans une var?

[Don Lon]

Bonjour,
donc voila je cherche cela depuis longtemps:

j'ai un fichier (toto) a partir duquel j'ouvre un autre fichier (tata) dans lequel je recupere des onglets que je copie dans un seul onglet de toto. Je veux donc pouvoir activer toto et tata a tour de role.

Or toto et tata ne sont pas les noms definitifs ca changera, donc il faut que je puisse stocker le nom du premier fichier (le euxieme c'est bon grace a la fonction open)

j'ai essaye :
ActiveWorkbook.Name = Fichmacro a louverture et ensuite
Workbooks(Fichmacro).Activate dans une macro

ca bug car ActiveWorkbook.Name = Fichmacro ne renvoi rien (g teste avec msgbox Fichmacro il me marque rien)

Heeeeeeeeeeeeeeeeelp !!!!!

 

[sousou]

Bonjour

Si j'ai compris tu inverses

fichmacro=activeworkbook.name

 

[Don Lon]

je men suis rendu compte aussi apres ma ca ne marche toujours pas... peut etre le probleme vient du fait qu'il faille definir la variable avant.
mais quel type dois je mettre ??

 

[sousou]

C'est une variable de type string

 

[sousou]

Encore moi

Lors de ta définition, ne pas oublier la notion de private, dim, ou Public, si tu utilise cette variable dans une procédure diffèrente de celle ou tu l'initialises

 

[don lon]

jcomrpends vraiment pas pkoi apre kan je teste fichmacro avec une msgbox il me revoi rien

voici ma macro douverture

Private Sub Workbook_Open()

Dim Fichmacro As String

Fichmacro = ActiveWorkbook.Name

end sub

 

[don lon]

Re:Comment stocker nom du fichier actif dans une v

dsl pour les sms

euh bon sinon je veux pas etre chiant mais ca marche toujours pas...la valeur de la msgbox de test est toujours rien et quand je met ensuite
workbooks(fichmacro).activate

il me met sub out of range

P.S qui a peut etre son importance je travaille sur excel anglais, en angleterre en fait...

 

[don lon]

Re:Comment stocker nom du fichier actif dans une v

j'ai envie de dire bravo tout simplement, c'est rapide c'est efficace bref on dirait la france contre l'espagne!!! 🙂

je me permet donc dans ces conditions exeptionnelles de pousser le bouchon encore plus loin:

comment obtenir le nom du fichier (et le stocker )que j'ouvre avec cette fonction:

fichierschoisis = Application.GetOpenFilename('fichiers excel, *.xls', , , , True)
If IsArray(fichierschoisis) Then
For I = 1 To UBound(fichierschoisis)
fichier = fichierschoisis(I)
'ouverture du fichier avec une conversion texte délimité par des virgules
Workbooks.OpenText Filename:=fichier _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True

 

[don lon]

Re:Comment stocker nom du fichier actif dans une v

en fait j'ai reprise le truc sur un forum donc du coup jcomprends pas toute cette structure mais ca marche !! lol
jen ouvrirai qu'un seul dans tous les cas

jpeux pas refaire comme l'autre du fait qu'il faudrait que je mette du code dans le fichier que je veuille ouvrir, j'ai vu sur des forums destrucs avec dir(fichierschoisis,vbnormal) mais jai pas compris ou le mettre