Exporter de VB6 ( Acces ) vers Excel
Résolu/Fermé
Lenouveauapprenti
Messages postés
263
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
4 août 2022
-
26 févr. 2019 à 15:52
Lenouveauapprenti Messages postés 263 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 4 août 2022 - 26 févr. 2019 à 18:05
Lenouveauapprenti Messages postés 263 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 4 août 2022 - 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
- Exporter excel en pdf - Guide
- Chrome exporter favoris - Guide
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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
263
Date d'inscription
samedi 22 décembre 2018
Statut
Membre
Dernière intervention
4 août 2022
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