Exporter mes données en excel ... [Résolu]

Signaler
Messages postés
113
Date d'inscription
vendredi 15 avril 2005
Statut
Membre
Dernière intervention
3 octobre 2005
-
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
-
voilà le code que je compte employé pour exporter mes données dans un classeur excel
Seulement j'aimerais que si je ne mets rien dans quantité que ma ligne excel ne s'affiche pas vide comme pour le moment... je pense que ça doit etre tout con a résoudre mais bon.. Merci
donc voilà:

Set monxl = New Excel.Application

monxl.Visible = True
AppPath = App.Path
If Right(AppPath, 1) <> "" Then
AppPath = App.Path & ""
monxl.Workbooks.Open AppPath & "offre.xls"



Dim Row
' Recherche la dernière ligne utilisée
Row = ActiveSheet.UsedRange.Row
Row = Row + 1
With ActiveSheet
If TxtQuantité.Text <> "" Then
monxl.Cells(Row, 1).Value = TxtMachine.Text
monxl.Cells(Row, 2).Value = TxtQuantité.Text
monxl.Cells(Row, 3).Value = TxtPrix.Text
End If
End With

With ActiveSheet
If TxtQuantité1.Text <> "" Then
monxl.Cells(Row + 1, 1).Value = Txtdétails1.Text
monxl.Cells(Row + 1, 2).Value = TxtQuantité1.Text
monxl.Cells(Row + 1, 3).Value = Txtprix1.Text

End If
End With

With ActiveSheet
If TxtQuantité2.Text <> "" Then
monxl.Cells(Row + 2, 1).Value = Txtdétails2.Text
monxl.Cells(Row + 2, 2).Value = TxtQuantité2.Text
monxl.Cells(Row + 2, 3).Value = Txtprix2.Text
End If
End With

1 réponse

Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
4
Re,

Dim Row


' Recherche la dernière ligne utilisée


Row = ActiveSheet.UsedRange.Row


'Row = Row + 1


' Si tu met un With tu dois programmer comme ci-dessous


' sinon cela ne sert à rien


With monxl.ActiveSheet


If TxtQuantité.Text <> "" Then


Row = Row + 1


.Cells(Row, 1 ).Value = TxtMachine.Text


.Cells(Row, 2 ).Value = TxtQuantité.Text


.Cells(Row, 3 ).Value = TxtPrix.Text


End If


End With


With monxl.ActiveSheet


If TxtQuantité 1 .Text <> "" Then


Row = Row + 1


.Cells(Row, 1 ).Value = Txtdétails1.Text


.Cells(Row, 2 ).Value = TxtQuantité 1 .Text


.Cells(Row, 3 ).Value = Txtprix1.Text


End If


End With


With monxl.ActiveSheet


If TxtQuantité 2 .Text <> "" Then


Row = Row + 1


.Cells(Row, 1 ).Value = Txtdétails2.Text


.Cells(Row, 2 ).Value = TxtQuantité 2 .Text


.Cells(Row, 3 ).Value = Txtprix2.Text


End If


End With

Cordialement, Jean-Paul
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 154 internautes nous ont dit merci ce mois-ci