récupération de données d'une feuille sous Excel

Question

Bonjour,
J'ai cr&#233;e une interface sous VBA et je voudrais que les donn&#233;es qui sont entr&#233;es dans l'interface soient renvoy&#233;es dans ma base de donn&#233;es Excel en cliquant sur le bouton valider mais je ne sais pas comment les exporter de l'interface vers Excel. Est ce que quelqu'un pourrait m'aider?
Merci

zavier666 · Answer

Si t'as donn&#233;es est dans une textbox:

Sheet("nom de la feuille").Range("coordonn&#233;es de la cellule").Value = Userform1.Textbox1.Text

API @ la Loupe
http://xav.prog.power.free.fr

jamelie · Answer

j'ai plusieurs types de donn&#233;es j'en ai dans des textbox et dans des list box mais j'ai aussi des donn&#233;es par onglet. Je vais essayer ce que tu ma dis deja.
Merci

jamelie · Answer

j'ai plusieurs types de donn&#233;es j'en ai dans des textbox et dans des list box mais j'ai aussi des donn&#233;es par onglet. Je vais essayer ce que tu ma dis deja.
Merci

cs_gothar12 · Answer

Je fais un stage en ce moment et je dois envoyer les donn&#233;es entr&#233;es (combobox, listbox, champs) dans une feuille excel
je vais te donner ce que j'ai fais.

J'ai utilis&#233; une ImageList et une Toolbar et un CommonDialog

L'imageList sert &#224; mettre des images sur les boutons, j'ai mis une diquettes pour le bouton enregistrer
tu trouveras les images en recherchant les fichier.ico ( *.ico) 
Mon 2eme bouton de ma Toolbar et le bouton pour enregistrer voici le code

Private qqch As Excel.Application 'd&#233;claration

Private Sub Toolbar1_ButtonClick(Index As Integer, ByVal Button As ComctlLib.Button)
If Button.Index 2 Then 'bouton save bouton n&#176;2
    
    With CommonDialog1
    .FileName = "xxxx.xls"   'nom de ton fichier excel
    .DialogTitle = "Sauvegarder les donn&#233;es"  'tu mets ce que tu veux
    .ShowSave
    End With
    
    Set qqch = New Excel.Application
    
    qqch.Visible = False 'n'ouvre pas le fichier excel, tu peux mettre True si tu veux l'ouvrir lors de l'enregistrement
    qqch.Workbooks.Add (CommonDialog1.FileName)
         
    
   N=1 (par exemple pour enregistrer sur la 1ere ligne, tu mets 2 pour la 2eme ligne et ainsi de suite, tu peux te d&#233;brouiller pour enregistrer ou tu veux)
    qqch.Cells(N, 1).Value = Text1.Text 
    qqch.Cells(N, 2).Value = Text2.Text 
    qqch.Cells(N, 3).Value = Text3.Text 
    qqch.Cells(N, 4).Value = Combo_Traite.Text 
    qqch.Cells(N, 5).Value = Combo_Cde.Text   
    qqch.Cells(N, 6).Value = Text8.Text    'etc


    qqch.ActiveWorkbook.SaveAs (CommonDialog1.FileName)
    qqch.ActiveWorkbook.Close
    qqch.Quit

   Set qqch = nothing  'important, permet de d&#233;truire la variable a la fin

'------------------------------------------------------
Si jamais ton fichier excel contient plusieurs feuilles, fais ceci

Set qqch = New Excel.Application

        qqch.Worksheets(1).Range("nom de la cellule").Value = Text1.Text  '1 pour la 1ere feuille ou alors tu mets directement le nom de ta feuille comme en dessous
        qqch.Worksheets("nom de ta feuille").Range("nom de la cellule").Value = Combo1.Text 

       qqch.ActiveWorkbook.Close
       qqch.Quit

Set qqch = nothing  


Etudiant IG2Ien www.ig2i.fr

mortalino · Answer

Salut,

> gothar12 : Tu dis "Private qqch As Excel.Application 'déclaration"
ca sert à rien, Jamélie est en VBA, Excel est donc déjà ouvert !

> Jamélie :
tu peux aussi faire une boucle pour aller plus vite et utiliser moins de ligne de code :

  Dim ctl As Control, LigneN As Long
LigneN = 1

'dans la prochaine ligne, UserForm1 est à remplacer par le nom que t'as mis

For each ctl in UserForm1.Controls   
  if TypeName(ctl) "TextBox" Or TypeName(ctl) "ListBox"
    Sheets("NomDeTaFeuille").Range("A" & LigneN).Value = ctl.Value
    LigneN = LigneN + 1
  End If
Next ctl

En gros, toutes les données d'un control de type "TextBox" ou "ListBox" sont envoyées dans ta feuille Excel, dans la cellule A1, puis A2 etc...
Si tu veux faire des placements spécifiques dans tes cellules, dis nous ce que tu veux faire.

@++
Mortalino

jamelie · Answer

En fait, je suis en stage et je dois simplifier et automatiser un tableau de bord. J'ai plus de 300 donn&#233;es sources chaque mois qui permettent de calculer des taux. j'ai cr&#233;&#233; plusieurs interfaces(userform, d&#233;sol&#233; je connait pas tous les termes donc je dois pas m'exprimer super bien) dans lesquelles les utilisateurs doivent entrer leurs valeurs. Je veux que les donn&#233;es se mettent automatiquement dans une feuille excel qui sera ma base de donn&#233;es. Ma feuille excel contient une colonne par donn&#233;e et une ligne repr&#233;sente un mois.
Je vais essayer ce que tu ma dis. merci beaucoup. J'esp&#232;re que j'ai &#233;t&#233; un peu claire pour que tu comprenne ce que je veux faire.

Am&#233;lie

jamelie · Answer

slt
ca fonctionne pas j'arrive pas &#224; faire marcher le programme. j'ai r&#233;ussi &#224; envoyer des donn&#233;es de ma userform vers excel &#224; partir d'un autre programme (: 
sub cdbsave_click()
workshetts("BDD1").Activate
Range("A2").Value = REC1
End sub
)
mais ca se copie toujour dans la premi&#232;re ligne(logik vu ce que j'&#233;cris mais je c po commen l'&#233;crire pour que ca se mette &#224; la suite) et je veux que les donn&#233;es se copient &#224; chaque fois sur une ligne diff&#233;rente ou sur une ligne pr&#233;cise en fonction de la date et de l'ann&#233;e qui sont selectionn&#233;s avant dans une listbox. Je sais pas si j'explique bien mais si vous voulez plus de d&#233;tails pour m'aider il y a pas de probl&#232;mes dites moi.
merci 
jamelie

Récupération de données d'une feuille sous Excel

7 réponses

Discussions similaires