Comment modifier le code d'une macro depuis un userform?

Question

Bonjour,

Voilà j'ai enregistré une macro qui appel un fichier text en le transformant sous excel. La macro le met en forme, modifie les colonnes et la police.Or cette macro contient le lien du fichier texte :
extrait du début du code

ChDir "C:\Documents and Settings\Guilluy\Bureau"
    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\Guilluy\Bureau\SUIVI_10-09-09&.txt", Origin:= 

Mon souhait serait depuis un userform et une textbox, taper la date à laquelle je dois faire mon extraction, cette date modifie le code "10-09-09" suivant la date que j'inscris dans la textbox..

Voilà jespere que c'est assez clair.
Merci pour votre aide

NHenry · Answer

Bonjour,

Workbooks.OpenText Filename:= _
"C:\Documents and Settings\Guilluy\Bureau\SUIVI_" & TextBox1.Text & "&.txt", Origin:= 

Mon site

pierro2400 · Answer

Merci pour votre réponse rapidee mais 
j'ai une erreur de compliation, erreur de synthaxe sur :


Sub Macro1()
'
' Macro1 Macro
'

'
    ChDir "C:\Documents and Settings\Guilluy\Bureau\Sabena DNR"
    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\Guilluy\Bureau\Sabena DNR\SUIVI_" & TextBox1.Text & "&.txt",
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=
        xlDoubleQuote , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
        Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), _
        Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), Array(15 _
        , 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), Array(20, 2), Array(21, 2)), _
        TrailingMinusNumbers:=True

lolokun · Answer

Bonjour,

Il y a un & de trop :
& TextBox1.Text & ".txt", 


L'expérience, c'est une connerie par jour, mais jamais la même..

NHenry · Answer

Bonjour,

Pierro, Il te dit (probablement, comme tu n'as pas fourni le message d'erreur) que xlWindows n'est pas déclaré, es-tu sûr de faire tourner la macro avec la version adéquate d'Excel ?
J'ai eu ce problème entre Excel 2007, 2003 et 2000.

Mon site

pierro2400 · Answer

Je tourne su ecel 2007, et malgré ma correction des & , j'ai une erreur 424 qui survient "OBJET REQUIS" il est inscrit. Je ne vois pas comment procéder.
Je vous remercie de votre aide.


Ci joint le début du code.


ChDir "C:\Documents and Settings\Guilluy\Bureau\Sabena DNR"
    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\Guilluy\Bureau\Sabena DNR\SUIVI_" & TextBox1.Text & " .txt", Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
        Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), _
        Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), Array(15 _
        , 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), Array(20, 2), Array(21, 2)), _
        TrailingMinusNumbers:=True

NHenry · Answer

Bonjour,

Enregistre une macro avec l'outil qui est fourni dan,s Excel et compare la ligne obtenue, il y a surement une différence.

Mon site

Comment modifier le code d'une macro depuis un userform?

6 réponses

Votre réponse

Discussions similaires