Copier une grille dans une feuille Excel

Signaler
Messages postés
25
Date d'inscription
mercredi 10 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2008
-
Messages postés
25
Date d'inscription
mercredi 10 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2008
-
Salut,
merci d'avance pour votre aide.
dans mon application je cherche a exporté une grille de données  vers Excel,
peut être est il possible de passer par le presse papier (copier et coller ),
actuellement j'exporte chaque cellule de la grille vers une cellule a execl,cette méthode est très efficace mais trop lent surtout lorsque on un nombre très important de données.

Merci.
 

2 réponses

Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
2
Bonsoir,


En effet, tu peu te servir du presse-papier.


Si j'ai bien compris (tu ne le dit pas) tu veux copier d'un FlexGrid vers une feuille excel ?





Private Sub Command3_Click()
Dim a
'Sélectionner les cellules à copier   FlexSel.Col 1: FlexSel.Row 1   FlexSel.ColSel 3: FlexSel.RowSel 6
   'Vide le presse-Papier
   Clipboard.Clear
   'Copie la sélection dans le presse papier
   Clipboard.SetText FlexSel.Clip, vbCFText
   'Metre le nom de l'aplication définit par Set...
   application.sheets("NomFeuille").Select
   Range("A1").Select
   selection.Paste
End Sub
A+
Messages postés
25
Date d'inscription
mercredi 10 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2008

merci