Utilisation d'1 variable dans une macro excel

Résolu/Fermé

stephbret56 Messages postés 186 Date d'inscription dimanche 27 janvier 2008 Statut Membre Dernière intervention 2 septembre 2011 - 6 janv. 2009 à 13:26
stephbret56 Messages postés 186 Date d'inscription dimanche 27 janvier 2008 Statut Membre Dernière intervention 2 septembre 2011 - 6 janv. 2009 à 14:52

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.

A voir également:

Utilisation d'1 variable dans une macro excel
Liste déroulante excel - Guide
Notice d'utilisation - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Aller à la ligne dans une cellule excel - Guide

5 réponses

Réponse 1 / 5

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
6 janv. 2009 à 13:42

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+

Réponse 2 / 5

Utilisateur anonyme
6 janv. 2009 à 13:47

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

Réponse 3 / 5

stephbret56 Messages postés 186 Date d'inscription dimanche 27 janvier 2008 Statut Membre Dernière intervention 2 septembre 2011 6
6 janv. 2009 à 14:27

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

Réponse 4 / 5

stephbret56 Messages postés 186 Date d'inscription dimanche 27 janvier 2008 Statut Membre Dernière intervention 2 septembre 2011 6
6 janv. 2009 à 14:31

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

Merci à vous

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
6 janv. 2009 à 14:36

pas besoin de Format..
NomLong = "C:\mon_repertoire\" & Rep1 & "_xls" 'suffira
A+

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

stephbret56 Messages postés 186 Date d'inscription dimanche 27 janvier 2008 Statut Membre Dernière intervention 2 septembre 2011 6
6 janv. 2009 à 14:52

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
<<<il n'y a rien a faire>>>
fi

Discussions similaires

programme qui n'affiche pas le mot secret

Discussions similaires

Newsletters