Ecrire dans exell
petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
-
21 oct. 2004 à 21:10
petiflamand Messages postés 675 Date d'inscription samedi 31 mai 2003 Statut Membre Dernière intervention 26 mai 2013 - 22 oct. 2004 à 18:04
petiflamand Messages postés 675 Date d'inscription samedi 31 mai 2003 Statut Membre Dernière intervention 26 mai 2013 - 22 oct. 2004 à 18:04
2 réponses
cs_lacomm
Messages postés
298
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2013
1
22 oct. 2004 à 14:44
22 oct. 2004 à 14:44
salut,
Ben moi, c'est pas brillant, mais je fais
open "c:/result.xls" for input as #1
print #1, "résultats", vbTab, "Pourcentage", vbCr
print #1, "---------------------------------------", vbCr
print #1, resul, vbTab, x , vbCr
close #1
"résultats" apparaît en A1, pourcentage en A2
la ligne en B1
resul en C1 etc
Si quelqu'un a une solution pour la mise en page, la taille des caractères etc, je suis aussi intéressé.
Ben moi, c'est pas brillant, mais je fais
open "c:/result.xls" for input as #1
print #1, "résultats", vbTab, "Pourcentage", vbCr
print #1, "---------------------------------------", vbCr
print #1, resul, vbTab, x , vbCr
close #1
"résultats" apparaît en A1, pourcentage en A2
la ligne en B1
resul en C1 etc
Si quelqu'un a une solution pour la mise en page, la taille des caractères etc, je suis aussi intéressé.
petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
22 oct. 2004 à 18:04
22 oct. 2004 à 18:04
Suis arriver a sa maintenent
Si sa peux t'aider
Private Sub Command1_Click()
Set ClasseurXLS = CreateObject("Excel.application")
Text1 = "feuille heure 2004"
Text2 = "c:\test exel"
'Text3.Text = "statistique"
PathFic = Text2
NomFic = Text1
NomFic = NomFic & ".xls"
'Ouverture du classeur d'importation
ClasseurXLS.Workbooks.Open "c:\test exel\feuille heure 2004.xls" 'ceci est pour ce qui est dans le text1 et text 2PathFic & NomFic
i = 10
Do While ClasseurXLS.cells(i, 1) <> ""
'le (i,2) determine la case donc tu peux placer 1,1 pour case a1
If Mid(Date, 1, 2) = ClasseurXLS.cells(i, 2) Then
ClasseurXLS.cells(i, 4) = Time
End If
i = i + 2
Loop
Petiflamand
Si sa peux t'aider
Private Sub Command1_Click()
Set ClasseurXLS = CreateObject("Excel.application")
Text1 = "feuille heure 2004"
Text2 = "c:\test exel"
'Text3.Text = "statistique"
PathFic = Text2
NomFic = Text1
NomFic = NomFic & ".xls"
'Ouverture du classeur d'importation
ClasseurXLS.Workbooks.Open "c:\test exel\feuille heure 2004.xls" 'ceci est pour ce qui est dans le text1 et text 2PathFic & NomFic
i = 10
Do While ClasseurXLS.cells(i, 1) <> ""
'le (i,2) determine la case donc tu peux placer 1,1 pour case a1
If Mid(Date, 1, 2) = ClasseurXLS.cells(i, 2) Then
ClasseurXLS.cells(i, 4) = Time
End If
i = i + 2
Loop
Petiflamand