Utilisation d'1 variable dans une macro excel
Résolu
stephbret56
Messages postés
186
Date d'inscription
Statut
Membre
Dernière intervention
-
stephbret56 Messages postés 186 Date d'inscription Statut Membre Dernière intervention -
stephbret56 Messages postés 186 Date d'inscription Statut Membre Dernière intervention -
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.
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
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Télécharger gratuitement notice d'utilisation - Guide
- Word et excel gratuit - Guide
5 réponses
Bonjour,
1°)
ChDir "c:\mon_repertoire\mon_fichier_?????" ... Comprend pas, ChDir c'est pour déterminer le répertoir actif ?
2°)
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+
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+
Bonjour,
Exemple type :
Lupin
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question