Utilisation d'1 variable dans une macro excel Résolu/Fermé

Question

Bonjour,

Est-il possible de paramétrer le nom d'un fichier qui est appelé à travers une macro en utilisant par exemple une variable si oui comment:

Dans l'exemple si dessous j'aimerai utiliser la valeur de Rep1 comme suffixe à mon fichier ce qui donne comme nom
mon_fichier_060109

Sub Test_de_Macro()
'
' Test_de_Macro Macro
' Macro enregistrée le  par
'

'
Dim Rep1 As String
' creation pour l'utilisateur d'une boite de saisie
Rep1 = InputBox("Veuillez saisir la date au format jjmmmaa", "Saisie date")

ChDir "c:\mon_repertoire\mon_fichier_?????" _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
    Cells.Select
    With Selection.Font
        .Name = "Courier New"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End Sub


Merci pour votre aide.

lermite222 · Answer

Bonjour,
1°)
ChDir "c:\mon_repertoire\mon_fichier_?????" ... Comprend pas, ChDir c'est pour déterminer le répertoir actif ?
2°)
Dim MonFichier as String
    MonFichier = "c:\mon_repertoire\mon_fichier_" & format(Rep1 ,"dd/mm/yyyy")
Format si l'utilisateur entre la date comme par ex: 1/1/2009 ce qui ne correspondrait pas a ton fichier.
Et pas oublier la même chose pour le sauver.
A+

Utilisateur anonyme · Answer

Bonjour,

Exemple type :


Option Explicit

Sub TestOuvrir()

    Dim Rep1 As String
    Dim NomLong As String
    
    Rep1 = InputBox("Veuillez saisir la date au format jjmmmaa", "Saisie date")
    NomLong = "C:\mon_repertoire\" & Rep1
    
    ChDir "C:\mon_repertoire"
    
    Workbooks.OpenText Filename:=NomLong, _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True

End Sub
'


Lupin

stephbret56 · Answer

Merci Lupin

Ca marche mais j'aimerai ajouter _xls à la fin du nom du fichier comment faire 

le nom de mon fichier est le suivant:   mon_fichier_050109_xls

Merci pour l'aide

stephbret56 · Answer

J'ai trouvé la solution & Format("_xls")

Merci à vous

stephbret56 · Answer

Une autre demande dans une macro y a t-il la notion du if ou une autre option J'aimerai exécuter une action ou pas selon la valeur de ma variable mon_param exemple: if mon_param eq 100 then msgbox mon param else <<>> fi

Utilisation d'1 variable dans une macro excel

5 réponses

Discussions similaires