Réponse au point 1 :
Comment créer ou modifier un fichier Excel en y ajoutant les données sélectionnées dans un MSFlexGrid, puis enregistrer le fichier Excel :
Créer un projet avec un bouton de commande "Command1", un MSFlexGrid "MSFlexGrid1" et un Data "Data1".
relier le Data à une base de données, et le MSFlexGrid au Data puis
Coller le code suivant dans la form :
Nota : il faut ajouter la référence "Microsoft Excel 9.0 Object Library"
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim xl As New Excel.Workbook 'classeur
Dim xlfeuille As Worksheet ' feuille de calcul
Set xl = CreateObject("Excel.Sheet") 'nouveau classeur Excel
Set xlfeuille = xl.Worksheets("Feuil1") 'on choisi la feuille 1
'on met les données sélectionnées
For i = MSFlexGrid1.row To MSFlexGrid1.RowSel
For j = MSFlexGrid1.col To MSFlexGrid1.ColSel
xlfeuille.Cells(i, j).Value = MSFlexGrid1.TextArray(faIndex(i, j))
Next j
Next i
'on sauvegarde
xl.SaveAs "c:\classeur.xls"
MsgBox " classeur créé en c:\classeur.xls"
End Sub
Function faIndex(row As Integer, col As Integer) As Long
faIndex = row * MSFlexGrid1.Cols + col
End Function
|
à+
-------------------------------
Réponse au message :
-------------------------------
Je suis novice et j'ai besoin de costaux en Vb pour m'aider:
1) Apres avoir sélectionné x grilles et y colonnes dans un contrôle MSHFlexgrid, j'aimerais exporter ces données vers un fichier excel : comment faire ?
2) J'aimerais savoir s'il existe un composant ou un contrôle qui scrute la base de données qu'on lui passe en paramètre tout le temps et qui déclenche un évènement lorsqu'il s'aperçoit qu'un élément a été ajouté dans celle ci. Si oui lequel et comment il fonctionne ?
3) J'arrive a insérer des images dans un richetextbox (elles sont bien visibles à l'écran, on peut les déplacer dans le texte) « jusqu'ici tout va bien ». Par contre lorsque j'utilise la méthode d'impression du richtextbox, «SelPrint» les images ne sont pas imprimées, comment faire pour remédier à cela?
4) Comment réalise t'on un fichier d'aide (y a t'il un programme spécial fournit avec vb ou faut il utiliser un autre logiciel) afin de le joindre à son application ?
5) Mon programme bug « pas à chaque fois » et c'est bien le problème en passant sur une instruction mshflexgrid1.cols=0. Comment détecter d'où vient l'erreur réellement car je me doute que c'est mon programme qui provoque l'erreur!
Même si vous ne savez pas répondre a toutes les questions en même temps, répondez-moi sur les sujets que vous connaissez. MERCI DE VOTRE AIDE, c'est assez urgent.