Comment stocker nom du fichier actif dans une var?

sousou

XLDnaute Barbatruc

• 28 Juin 2006

• #2

Bonjour

Si j'ai compris tu inverses

fichmacro=activeworkbook.name

 

Vote positif 0 Vote négatif

D

Don Lon

Guest

• 28 Juin 2006

• #3

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 ??

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Juin 2006

• #4

C'est une variable de type string

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Juin 2006

• #5

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

 

Vote positif 0 Vote négatif

D

don lon

Guest

• 28 Juin 2006

• #6

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

 

Vote positif 0 Vote négatif

D

don lon

Guest

• 28 Juin 2006

• #7

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...

 

Vote positif 0 Vote négatif

D

don lon

Guest

• 28 Juin 2006

• #8

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

 

Vote positif 0 Vote négatif

D

don lon

Guest

• 28 Juin 2006

• #9

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

 

Vote positif 0 Vote négatif