format de fichier
Le
c_luimeme
Bonjour,
Je souhaite afficher la chaine de caractère suivante : "05h00".
Le problème est que mon programme m'affiche "5h00".
Je sais qu'il existe une commande permettant d'obtenir une écriture
avec deux caractères (un peu comme right(), où il faudrait spécifier
la chaine et le nombre de caractère à afficher). Est-ce que quelqu'un
connaitrait cette commande svp ?
Je vous soumet mon bout de code
Dim a As Integer
Dim nomfichier As String
Dim feuille As String
Dim base As String
base = "C:\personnel\Stage\Capture\Manithy\"
nomfichier = "MTNA Report 2006-09-28 "
For a = 12 To 17
'MsgBox (base & nomfichier & a & "h00" & ".txt")
feuille = (nomfichier & a & "h00")
monfichier = (base & nomfichier & a & "h00" & ".txt")
D'avance, merci.
Je souhaite afficher la chaine de caractère suivante : "05h00".
Le problème est que mon programme m'affiche "5h00".
Je sais qu'il existe une commande permettant d'obtenir une écriture
avec deux caractères (un peu comme right(), où il faudrait spécifier
la chaine et le nombre de caractère à afficher). Est-ce que quelqu'un
connaitrait cette commande svp ?
Je vous soumet mon bout de code
Dim a As Integer
Dim nomfichier As String
Dim feuille As String
Dim base As String
base = "C:\personnel\Stage\Capture\Manithy\"
nomfichier = "MTNA Report 2006-09-28 "
For a = 12 To 17
'MsgBox (base & nomfichier & a & "h00" & ".txt")
feuille = (nomfichier & a & "h00")
monfichier = (base & nomfichier & a & "h00" & ".txt")
D'avance, merci.
Poser une question
feuille = nomfichier & Format(a, 00) & "h00"
monfichier = base & nomfichier & Format(a, 00) & "h00" & ".txt"
Pas testé, mais devrait convenir, dis nous
--
JLuc
merci de ta réponse , mais la solution que tu ma proposée ne marche
pas j'ai toujours le même fomat cad "5h00" et non "05h00"
Math
Autant pour moi, il faut mettre : Format(a, "00")
s'cuse
--
JLuc
super merci bcp cela marche commence sur des roulettes.
je m'attaque à la deuxieme difficulté que je me permet de te
soumettre dans le cas ou tu aurais une idée sur le sujet .
Voila j'ai un fichier source au format txt qui est généré à chaque
heure.
je l'ouvre sous excel via macro grace à ton aide
A partir de la cellule B1 du fichier source Je souhaite remplir une
autre feuille appelé "synthèse" en commenacant par la cellule B2
juqu'a B24
Voila mon code qui marche pas terrible aurais tu une idée
Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
*************************************************************************** *************************
'""""""TROUVER LA FACON DINCREMENTER CETTE CELLULE de B2 a B24 puis
C2 à C24
'''''' jusqu'a D,E,F,G,H, I,J,K,L
*************************************************************************** *************************
*************************************************************************** ***************************
Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Peut être quelque chose comme :
For x = 2 To 12 'numéro de colonne
For y = 2 To 24 'numéro de ligne
Workbooks("Synthese.xls").Sheets("Manithy_OUT").Cells(y, x) = _
Workbooks(feuille).Cells(y,x)
Next y
Next x
Mais j'avoue que j'ai pas tout compris au niveau des colonnes et des
lignes. Que veux tu copier et où ?
--
____
( O | O )
--
_oooO_ JLuc _Oooo_
O-O