Exporter de VB6 ( Acces ) vers Excel
Résolu/Fermé
Lenouveauapprenti
Messages postés
296
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
6 mars 2024
-
26 févr. 2019 à 15:52
Lenouveauapprenti Messages postés 296 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 6 mars 2024 - 26 févr. 2019 à 18:05
Lenouveauapprenti Messages postés 296 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 6 mars 2024 - 26 févr. 2019 à 18:05
A voir également:
- Exporter de VB6 ( Acces ) vers Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Windows 7 vers windows 10 - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
2 réponses
f894009
Messages postés
17181
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2024
1 701
26 févr. 2019 à 16:10
26 févr. 2019 à 16:10
Bonjour,
Chez moi le classeur Excel est bien cree. Chez vous il l'est ou pas??
Vu que peut importe l'erreur, vous aurez toujours "N'a pas trouvé d'Excel"
Question existentielle: vous avez Excel au moins……..???
Chez moi le classeur Excel est bien cree. Chez vous il l'est ou pas??
Vu que peut importe l'erreur, vous aurez toujours "N'a pas trouvé d'Excel"
Question existentielle: vous avez Excel au moins……..???
f894009
Messages postés
17181
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2024
1 701
26 févr. 2019 à 17:48
26 févr. 2019 à 17:48
Re,
kezako:
kezako:
For k = 0 To k - 1
Lenouveauapprenti
Messages postés
296
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
6 mars 2024
2
26 févr. 2019 à 18:05
26 févr. 2019 à 18:05
Re bonjour
Comme j'avais le problème avec les lignes, j'ai ajouté :
DGDeclarationCnss.Row = i
et ça marche pour le moment pour 2 lignes. Pour plus je ne peux le conformer qu'après l'avoir testé
Concernant la feuille d'Excel, je n'ai pas besoin de la créer à priori, car il est crée spontanément.
Merci pour votre attention
Comme j'avais le problème avec les lignes, j'ai ajouté :
DGDeclarationCnss.Row = i
et ça marche pour le moment pour 2 lignes. Pour plus je ne peux le conformer qu'après l'avoir testé
Concernant la feuille d'Excel, je n'ai pas besoin de la créer à priori, car il est crée spontanément.
Merci pour votre attention
Private Sub CdExporter_Click()
Dim xlo As Object
Dim i, j, l, k As Integer
On Error GoTo errxcel:
Set xlo = CreateObject("Excel.application")
i = RS.RecordCount
RS.MoveFirst
DoEvents
xlo.Visible = True
xlo.Workbooks.Add
j = DGDeclarationCnss.Columns.Count
For k = 0 To j - 1
xlo.Workbooks(1).Sheets(1).Cells(l + 1, k + 1) = DGDeclarationCnss.Columns(k).Caption
Next k
i = 0
RS.MoveFirst
Do While Not RS.EOF
For k = 0 To k - 1
DGDeclarationCnss.Col = k
DGDeclarationCnss.Row = i
xlo.Workbooks(1).Sheets(1).Cells(i + 2, k + 1) = DGDeclarationCnss.Text
Next
RS.MoveNext
i = i + 1
Loop
Exit Sub
errxcel:
MsgBox "Aucune feuuille Excel n'est trouvée", vbCritical + vbInformation, "Info !"
End Sub
26 févr. 2019 à 17:31
J'ai crée un workBooks nommé DeclarationCnss.xlsx
26 févr. 2019 à 17:43
J'ai eu un resultat soi disant positif mais incomplet. Comme j'ai seulement 2 lignes dans ma BD, qui s'affichent sur ma DataGrid, l'application me renvoie la feuille Excel avce la répétition de la Première ligne seulement.
voilà le Code