Utilisation d'un paramétre
Résolu
Napalawow
Messages postés
38
Date d'inscription
Statut
Membre
Dernière intervention
-
Napalawow Messages postés 38 Date d'inscription Statut Membre Dernière intervention -
Napalawow Messages postés 38 Date d'inscription Statut Membre Dernière intervention -
Slt salut,
J'ai une petite fonction qui fait appel à une autre fonction
"blabla" est un string
Avec la MsgBox je remarque que le paramètre reponse n'y est pas c'est-à-dire qu'il m'affiche pas blabla mais que =>
"_Data10min_2005-05-03.txt"
J'espere avoir été assez clair
Voila merci pour les aides à venir...
J'ai une petite fonction qui fait appel à une autre fonction
Sub siteun()
ouvrirfichier blabla
End Sub
"blabla" est un string
Sub ouvrirfichier(reponse) Dim Repertoire As String Dim MaDate As String MaDate = Format(Date, "yyyy-mm-dd") MsgBox Repertoire & "\" & reponse & "_Data10min_" & MaDate & ".txt" Workbooks.OpenText Filename:="C:\Documents and Settings\Alluser\Bureau\JDH"\" & reponse & "_Data10min_" & MaDate & ".txt" End Sub
Avec la MsgBox je remarque que le paramètre reponse n'y est pas c'est-à-dire qu'il m'affiche pas blabla mais que =>
"_Data10min_2005-05-03.txt"
J'espere avoir été assez clair
Voila merci pour les aides à venir...
A voir également:
- Utilisation d'un paramétre
- Utilisation chromecast - Guide
- Télécharger gratuitement notice d'utilisation - Guide
- Remettre parametre usine pc - Guide
- Parametre dns - Guide
- Parametre windows - Guide
2 réponses
Bonour,
si blabla est le nom d'une variable string alors il faut ecrire:
blabla="blabla"
ouvrirfichier ( blabla)
sinon c'est la syntaxe suivante:
A+.
si blabla est le nom d'une variable string alors il faut ecrire:
blabla="blabla"
ouvrirfichier ( blabla)
sinon c'est la syntaxe suivante:
Sub siteun()
ouvrirfichier("blabla")
End Sub
Sub ouvrirfichier(reponse)
Dim Repertoire As String
Dim MaDate As String
MaDate = Format(Date, "yyyy-mm-dd")
Repertoire="C:\Documents and Settings\Alluser\Bureau\JDH"
MsgBox Repertoire & "\" & reponse & "_Data10min_" & MaDate & ".txt"
Workbooks.OpenText Filename:=Repertoire & "\" & reponse & "_Data10min_" & MaDate & ".txt"
End Sub
A+.
