OVH Cloud OVH Cloud

besoin d'aide

3 réponses
Avatar
ticul
1i=E8re
il faut que je transfert les donn=E9e de excel vers un=20
formulaire vb
comment faire?
je travaille sous excel 2000 et vb 6
ok il faut que je vous explique un peu mieux
voil=E0 je transfert les donn=E9es de vb vers excel pour avoir=20
une liste de toute les demandes de faites une fois la=20
liste visible, la personne qui veux voir les informations=20
sur un formulaire de demande doit double cliquer sur une=20
num=E9ro de demande pour refaire aparaitre les informations=20
sur un formulaire vb pour faire des modifications aisni=20
que de sauvegard=E9 les modifications effectu=E9 sur la demande


l'autre question est
comment faire pour enregistrer des donn=E9es sous excel dans=20
la base de donn=E9e sql sans pass=E9 par vb6=20

si une personne d=E9sire faire des changements dans la liste=20
sans pass=E9 par le formulaire de demande comment je peux=20
faire pour faire la sauvegarde de ces donn=E9es dans le=20
feuilles excel=20

alors voici un peux plus d'information pour vous pour=20
m'aid=E9

3 réponses

Avatar
RT
Bonjour

En Cellule H1 taper « Début »
Dans les cellules en dessous ( H2 jusqu'à H5) taper
« Bonjour » « Puis-je me permettre » « J'aimerai poser une question »
« Salut »

Dans la cellule J1 taper « Fin »
Dans les cellules en dessous (J2 jusqu'à J5) taper
« Merci » « Merci beaucoup » « Je vous remercie » « A plus tard »
« Ciao »

Sélectionner la cellule A1
Dans le menu Data Validation sélectionner liste et choisir la plage H2
:H5 et valider

Sélectionner la cellule A25
Dans le menu Data Validation sélectionner liste et choisir la plage J2
:J5 et valider

Maintenant avant d'envoyer un message pour les bénévoles (hyper sympa et
hyper doués, soit dit en passant) de ce groupe
Tu pourras facilement sélectionner les formules de politesse d'entrée et de
sortie de ton message.

Ceci te facilitera grandement la vie en te faisant passer pour quelqu'un de
poli sans avoir à te fatiguer

Keep smiling,

je suis certain que quelqu'un de moins sarcastique que moi te donnera la
réponse à ta question sous-peu

Rex



"ticul" wrote in message
news:0a1b01c494ef$ebc4bbd0$
1ière
il faut que je transfert les donnée de excel vers un
formulaire vb
comment faire?
je travaille sous excel 2000 et vb 6
ok il faut que je vous explique un peu mieux
voilà je transfert les données de vb vers excel pour avoir
une liste de toute les demandes de faites une fois la
liste visible, la personne qui veux voir les informations
sur un formulaire de demande doit double cliquer sur une
numéro de demande pour refaire aparaitre les informations
sur un formulaire vb pour faire des modifications aisni
que de sauvegardé les modifications effectué sur la demande


l'autre question est
comment faire pour enregistrer des données sous excel dans
la base de donnée sql sans passé par vb6

si une personne désire faire des changements dans la liste
sans passé par le formulaire de demande comment je peux
faire pour faire la sauvegarde de ces données dans le
feuilles excel

alors voici un peux plus d'information pour vous pour
m'aidé
Avatar
Clément Marcotte
il faut que je transfert les donnée de excel vers un
formulaire vb
comment faire?


Ouvrir une instance d'Excel avec:

set xlapp = createobject("Excel.application")

ensuite pour récupérer la cellule a1 dans un textbox VB6

text1.text = xlapp.range("a1").value

l'autre question est
comment faire pour enregistrer des données sous excel dans
la base de donnée sql sans passé par vb6


Utiliser ADO et VBA

http://support.microsoft.com/default.aspx?scid=kb;FR;q257819

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q246335

http://support.microsoft.com/default.aspx?scid=kb;FR;q278973

Avatar
Clément Marcotte
1ière
il faut que je transfert les donnée de excel vers un
formulaire vb
comment faire?


S'il y a une instance d'Excel ouverte:

Private Sub Command1_Click()
Set xlapp = GetObject(, "excel.application")
Text1.Text = xlapp.range("a1").Value
End Sub


Si Excel n'est pas ouvert:


Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application")
xlapp.workbooks.open "c:mes documentsexemple.xls"
Text1.Text = xlapp.range("a1").Value
xlapp.quit
Set xlapp = Nothing
End Sub