je voudrais enregister les donnée sur une feuille excel
j'arrive a créer la feuille sur vb
je veux que les données soit enregistrer de a1 vers a...
je ne sais pas comment faire
je voudrais enregister les donnée sur une feuille excel
j'arrive a créer la feuille sur vb
je veux que les données soit enregistrer de a1 vers a...
je ne sais pas comment faire
Commence par lire les tutoriels de ce site. Il sont tres bien faits et tres instructifs.
En général, on ne demande de conseils que pour ne pas les suivre ou, si on les a suivis, reprocher à quelqu'un de les avoir donnés
(ALEXANDRE DUMAS)
N'hésitez pas à visiter ma page de contributions
j'ai lu les tutoraux mais j'ai pas vu ce que je voulais
ce que je veux faire c'est les valeurs soit envoyé sur excel
exemple:
1ere valeur envoyé dans la cellule a1
2eme valeur envoyé dans la cellule a2
ect
un peu de lecture :
Utiliser Excel à partir de Visual Basic par Sébastien Curutchet
en attendant
montre nous ton code de création de feuille excel...
voici le code
pour plus d'explication b c'est la donnée de la rs232
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim exc As New Excel.Application Workbooks.Add Sheets("Feuil1").Select Sheets("Feuil1").Name = "mafeuille" Range("A2").Select ActiveCell.FormulaR1C1 = b ActiveWorkbook.SaveAs FileName:="C:\TxtNumComm.Text.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False ActiveWorkbook.Close Set exc = Nothing
et tu en fais quoi de exc va falloir que tu relise la doc dont je t'ai donné le lien...
tu fais bien du VB6
le code que j'avais transmis fonctionnait bien avec vb6
j'ai remis ça du tutorial
ce code c pour l'ouverture d'execl
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel 'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert appExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant 'Récupération du classeur par défaut Set wbExcel = appExcel.ActiveWorkbook 'Récupération de la feuille par défaut Set wsExcel = wbExcel.ActiveSheet
comment remplis les cellules
Faudra lire plus que la première page du tutoriel pour le savoir.
- Pour les nouveaux : Mode d'emploi et aide aux nouveaux
- et impérativement les règles du forum. Histoire de garder une ambiance amicale.
- Noubliez pas les balises de Code pour vos listings : bouton # de l'éditeur. Et n'oubliez pas non plus de bouton
- Cours Excel - FAQ Excel - Forum Excel - Cours VBA - Cours complet VBA Excel
j'ai reussi à envoyer une données sur la cellule a1
mais j'arrive pas maintenant à incrementer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel 'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert appExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant 'Récupération du classeur par défaut Set wbExcel = appExcel.ActiveWorkbook 'Récupération de la feuille par défaut Set wsExcel = wbExcel.ActiveSheet Range("A1").Select ActiveCell.FormulaR1C1 = b ActiveWorkbook.SaveAs FileName:="C:\TxtNumComm.Text.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False ActiveWorkbook.Close
bonsoir, thunderpat
toujours le même probléme ... si tu assigne ta variable wsExcel .. à ta feuille utilise la ensuite...! sous VB6 ... évite d'utilser d'objet excel (range, cells, Workbook, worksheet , ActiveWorkBook...) .. non préfixé par une de tes variables...
puis je comprends pas ce que tu veux incrémenter..?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Set wsExcel = wbExcel.ActiveSheet wsExcel .Range("A1") = b wkExcel.SaveAs FileName:="C:\TxtNumComm.Text.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False wkExcel.Close
c'est pas l'adresse .? A1, puis A2 ..? si oui pourquoi crée tu un nouveau classeur à chaque appel..?
je voudrais que les donées soit envoyer sur a1 puis a2 puis a3
car en fait j'ai un automate qui envoi une données toutes les 0.2s via le port série
moi ce que je veux c'est que les données soit enregistrer sur la meme feuille excel.
car cela va me permettre de faire un graph sur excel
Bonjour,
Question d'ordre générale, penses-tu qu'Excel soit le meilleur support pour faire ça ? Ou as-tu décidé ça comme ça?
Cordialement
Bonjour,
J'avais bien compris que c'était pour faire un graphique
c'est pour cela que je demandais... parce que tu peux utiliser le contrôle MSChart avec Excel mais suivant la portée de ton graphique, cet outil ne sera pas assez puissant...
En fait ca dépend de quel genre de graphiques tu veux obtenir...
Courbe 2D ? 3D
Quelles Grandeurs en abscisses ? Ordonnées ?
Précisions voulues ?
Rapidité D'exécution?
etc...
en ordonnées c environ 53
en abcisse cela dépend du temps
ce graphique 2d c'est pour voir la traction du chaine
et c'est pour savoir si on peut mettre dans la meme feuille et le meme classeur les données envoyé toutes les 0.2s
et si c'est possible comment mettre ce code
es ce que ca va etre bon pour faire un graphe
j'ai un prog pour enregistrer a1 puis a2 mais le logiciel se bloque
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Dim li As Long li = 1 For li = 1 To 30000 wsExcel.Range("A" & li).Value = b Next li = li + 1
Bonjour tout d'abord évite les "UP" dans ce genre. ne t'inquiètes pas il y aura toujours quelqu'un pour te répondre...
Ceci étant quand à savoir si c'est "possible"... oui forcément et logiquement c'est possible.
Après cela dépend de ton cahier des charges...
Personnellement, et donc ca n'engage que moi, j'utilise une base de données Access pour stocker les points de ma courbe.
Pour ce qui est de l'affichage j'utilise une PictureBox.
Avec très peu de code on arrive à faire des zoom sur la courbe ce qui fait que si cela est necessaire, ca peut s'avérer très précis...
Reste à savoir ce que tu veux...
Reste à savoir ton niveau en Visual Basic...
Reste à savoir ton engouement pour ce langage...
Reste à savoir le temps qu'il te reste...
etc...
Cordialement
en faite voila le programme que j'ai il enregistre sur une base de donées acess
il y a deja unetable
pour les mot de passe utilisateurs
pour les motde passe administrateur
et pour la sauvegarde de la tension de chaine obtenue (Tbljournal)
moi j'ai été sur la base de donnée sur access 97 j'ai fait un copier de Tbljournal et je l'ai recoller en mettant Tbljournal2
j'avais meme copié sur vb la sequence d'enregistrement de la valeur en mettant sur adojournal un 2
je veux copier la donnée sur le tbljournal2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 With Adojournal2.Recordset .AddNew !Utilisateurs = CmbUtilisateurs.Text !numéro_de_commande = TxtNumComm.Text !Date = Date !Heure = Time !tension_desirée = TxtTension.Text !tension_obtenue = LblAffichage.Caption !Unité = CmbUnité.Text If txtremarques.Text = "" Then GoTo rienfaire Else !REMARQUES = txtremarques.Text End If rienfaire: .Update .Save .Requery End With
mon niveau en vb est débutant
jaimerais avoir plus de connaissance sur vb
comment fait t'on?
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager