Ecrire des données dans excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 674 fois - Téléchargée 29 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

Messages postés
6
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
19 octobre 2014

pardonner moi j'ai pas lu la solution " exldoc.save "
Messages postés
6
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
19 octobre 2014

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 .
Messages postés
23
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
17 janvier 2010

mais mon pb maintenant c'est comment ouvrir une feuille bien determiner, et non la feuille en cours ' activesheet'
Messages postés
23
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
17 janvier 2010

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
Messages postés
14
Date d'inscription
lundi 1 novembre 2004
Statut
Membre
Dernière intervention
17 mars 2010

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.