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
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
A voir également:
- Utilisation d'1 variable dans une macro excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Notice d'utilisation - Guide
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne dans une cellule excel - Guide
5 réponses
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
6 janv. 2009 à 13:42
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°)
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+
Utilisateur anonyme
6 janv. 2009 à 13:47
6 janv. 2009 à 13:47
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
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
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
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
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
6 janv. 2009 à 14:31
J'ai trouvé la solution & Format("_xls")
Merci à vous
Merci à vous
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
6 janv. 2009 à 14:36
6 janv. 2009 à 14:36
pas besoin de Format..
NomLong = "C:\mon_repertoire\" & Rep1 & "_xls" 'suffira
A+
NomLong = "C:\mon_repertoire\" & Rep1 & "_xls" 'suffira
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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