Ecrire des données dans excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 913 fois - Téléchargée 31 fois

Contenu du snippet

Ecrire les données d'un recordset dans une fiche excel, indépendament de la version d'excel.

Source / Exemple :


Dim sheet As Object
Dim exldoc As Object
Dim exlapp As Object
Dim i As Integer
Dim j As Integer
    
    Set exlapp = CreateObject("excel.application")
    Set exldoc = exlapp.workbooks.Open("p:\logement\doc\test.xls")
    Set sheet = exlapp.ActiveWorkbook.ActiveSheet
    i = 0
    For i = 0 To votre_rst.Fields.Count - 1
        sheet.Cells(1, i + 1).Value = votre_rst.Fields(i).Name
    Next i
    
    i = 0
    j = 2
    
    Do While votre_rst.EOF = False
    
        For i = 0 To votre_rst.Fields.Count - 1
        
            If IsDate(votre_rst.Fields(i)) Then
                sheet.Cells(j, i + 1).NumberFormat = "dd/mm/yyyy"
            End If
            
            If VarType(votre_rst.Fields(i)) = 5 Then
                sheet.Cells(j, i + 1).NumberFormat = "#########0.00"
            End If
            
            sheet.Cells(j, i + 1).Value = votre_rst.Fields(i)
                
        Next i
    
        j = j + 1
        
        votre_rst.MoveNext
    Loop
    
    exldoc.Close
    exlapp.quit
    
    Set exlapp = Nothing
    Set exldoc = Nothing
End Function

A voir également

Ajouter un commentaire Commentaires
vbmohamedsaidi Messages postés 6 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 19 octobre 2014
21 janv. 2010 à 11:32
pardonner moi j'ai pas lu la solution " exldoc.save "
vbmohamedsaidi Messages postés 6 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 19 octobre 2014
21 janv. 2010 à 11:30
bonjour ,
J'utilise le meme type de code, mais au moment de fermer l'appli, une boite de dialogue s'ouvre et me demande si je veux enregsitrer les changements effectué au fichier. Comment faire pour enregistrer les changements sans avoir la boite de dialogue?
mes salutations les plus respectueuses .
Manau81 Messages postés 23 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 17 janvier 2010
23 août 2009 à 12:31
mais mon pb maintenant c'est comment ouvrir une feuille bien determiner, et non la feuille en cours ' activesheet'
Manau81 Messages postés 23 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 17 janvier 2010
22 août 2009 à 13:27
J'ai u le même pb que toi vienvb, quoi que la solution est trop simple, il suffi d'ajouté une ligne exldoc.save
vienbv Messages postés 14 Date d'inscription lundi 1 novembre 2004 Statut Membre Dernière intervention 17 mars 2010
26 août 2006 à 06:07
Merci beaucoup, cela m'aide à débloquer mon problème
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.