Je souhaite afficher la chaine de caract=E8re suivante : "05h00".
Le probl=E8me est que mon programme m'affiche "5h00".
Je sais qu'il existe une commande permettant d'obtenir une =E9criture
avec deux caract=E8res (un peu comme right(), o=F9 il faudrait sp=E9cifier
la chaine et le nombre de caract=E8re =E0 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 =3D "C:\personnel\Stage\Capture\Manithy\"
nomfichier =3D "MTNA Report 2006-09-28 "
For a =3D 12 To 17
'MsgBox (base & nomfichier & a & "h00" & ".txt")
feuille =3D (nomfichier & a & "h00")
monfichier =3D (base & nomfichier & a & "h00" & ".txt")
JLuc Merci beucoup pour ce bout de code mais je rencontre une difficultée a la ligne suivante :
Cells(Ligne, Colonne) = Workbooks(feuille).Range("B1") Le message d'erreur est incompatibilté de type "erreur d'execution
13" Math C'est parce que je ne sais pas ce qu'est "feuille". J'ai betement
pensé que c'etait une variable, mais si c'est un classeur, remplace par : Workbooks("feuille.xls")
-- JLuc
c_luimeme
on a fait un pas mais j'obtiens le resultat suivant. La valeur contenuen B1 de (feuille.xls) n'est pas recopiée dans la feuille Manithy_OUT du classeur synthese Aurais tu une idée La cellule B1 contient bien le resultat d'un calcul
avait soumis l'idée :
JLuc Merci beucoup pour ce bout de code mais je rencontre une difficultée a la ligne suivante :
Cells(Ligne, Colonne) = Workbooks(feuille).Range("B1") Le message d'erreur est incompatibilté de type "erreur d'execution
13" Math C'est parce que je ne sais pas ce qu'est "feuille". J'ai betement
pensé que c'etait une variable, mais si c'est un classeur, remplace par : Workbooks("feuille.xls")
-- JLuc
on a fait un pas mais j'obtiens le resultat suivant. La valeur
contenuen B1 de (feuille.xls) n'est pas recopiée dans la feuille
Manithy_OUT du classeur synthese
Aurais tu une idée
La cellule B1 contient bien le resultat d'un calcul
c_luimeme@hotmail.com avait soumis l'idée :
JLuc
Merci beucoup pour ce bout de code mais je rencontre une difficultée
a la ligne suivante :
Cells(Ligne, Colonne) = Workbooks(feuille).Range("B1")
Le message d'erreur est incompatibilté de type "erreur d'execution
13"
Math
C'est parce que je ne sais pas ce qu'est "feuille". J'ai betement
pensé que c'etait une variable, mais si c'est un classeur, remplace par
:
Workbooks("feuille.xls")
on a fait un pas mais j'obtiens le resultat suivant. La valeur contenuen B1 de (feuille.xls) n'est pas recopiée dans la feuille Manithy_OUT du classeur synthese Aurais tu une idée La cellule B1 contient bien le resultat d'un calcul
avait soumis l'idée :
JLuc Merci beucoup pour ce bout de code mais je rencontre une difficultée a la ligne suivante :
Cells(Ligne, Colonne) = Workbooks(feuille).Range("B1") Le message d'erreur est incompatibilté de type "erreur d'execution
13" Math C'est parce que je ne sais pas ce qu'est "feuille". J'ai betement
pensé que c'etait une variable, mais si c'est un classeur, remplace par : Workbooks("feuille.xls")
-- JLuc
c_luimeme
on a fait un pas mais j'obtiens le resultat suivant. La valeur contenuen B1 de (feuille.xls) n'est pas recopiée dans la feuille Manithy_OUT du classeur synthese , par contre la réference de la cellule de Manithy_OUT s'incrmente bien Aurais tu une idée La cellule B1 contient bien le resultat d'un calcul au
avait soumis l'idée :
JLuc Merci beucoup pour ce bout de code mais je rencontre une difficultée a la ligne suivante :
Cells(Ligne, Colonne) = Workbooks(feuille).Range("B1") Le message d'erreur est incompatibilté de type "erreur d'execution
13" Math C'est parce que je ne sais pas ce qu'est "feuille". J'ai betement
pensé que c'etait une variable, mais si c'est un classeur, remplace par : Workbooks("feuille.xls")
-- JLuc
on a fait un pas mais j'obtiens le resultat suivant. La valeur
contenuen B1 de (feuille.xls) n'est pas recopiée dans la feuille
Manithy_OUT du classeur synthese , par contre la réference de la
cellule de Manithy_OUT s'incrmente bien
Aurais tu une idée
La cellule B1 contient bien le resultat d'un calcul
au
c_luimeme@hotmail.com avait soumis l'idée :
JLuc
Merci beucoup pour ce bout de code mais je rencontre une difficultée
a la ligne suivante :
Cells(Ligne, Colonne) = Workbooks(feuille).Range("B1")
Le message d'erreur est incompatibilté de type "erreur d'execution
13"
Math
C'est parce que je ne sais pas ce qu'est "feuille". J'ai betement
pensé que c'etait une variable, mais si c'est un classeur, remplace par
:
Workbooks("feuille.xls")
on a fait un pas mais j'obtiens le resultat suivant. La valeur contenuen B1 de (feuille.xls) n'est pas recopiée dans la feuille Manithy_OUT du classeur synthese , par contre la réference de la cellule de Manithy_OUT s'incrmente bien Aurais tu une idée La cellule B1 contient bien le resultat d'un calcul au
avait soumis l'idée :
JLuc Merci beucoup pour ce bout de code mais je rencontre une difficultée a la ligne suivante :
Cells(Ligne, Colonne) = Workbooks(feuille).Range("B1") Le message d'erreur est incompatibilté de type "erreur d'execution
13" Math C'est parce que je ne sais pas ce qu'est "feuille". J'ai betement
pensé que c'etait une variable, mais si c'est un classeur, remplace par : Workbooks("feuille.xls")
-- JLuc
JLuc
Non, comme çà, je peux pas savoir. Si tu veux, envoie moi tes deux classeurs en bal perso, je regarderais çà ce soir
-- JLuc
Non, comme çà, je peux pas savoir.
Si tu veux, envoie moi tes deux classeurs en bal perso, je regarderais
çà ce soir
