da_chocapic
Messages postés43Date d'inscriptionsamedi 8 octobre 2005StatutMembreDernière intervention27 juin 2006
-
23 juin 2006 à 10:07
da_chocapic
Messages postés43Date d'inscriptionsamedi 8 octobre 2005StatutMembreDernière intervention27 juin 2006
-
27 juin 2006 à 10:11
Bonjour a tous,
je cherche a recopier differentes donnée qui se trouvent dans des textbox de mon programme vb, dans une fichier excel deja existant.
j'ai trouvé pas mal de tuto qui detaillaient comment utiliser vba excel, mais j'arrive pas a trouver quelquchose qui explique simplement la recopie de donnée de textbox vb6 a une cellule d'une feuille excel.
Merci.
A voir également:
Recopie de données d'une txtbox dans une cellule excel
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 juin 2006 à 15:27
Re,
Forcement tu essaie de sauvegarder un classeur deja ferme.
'fermer le classeur,vider la mémoire du Set,tuer l'application excel (qui reste dans le processus sans cela)
Classeur.Close
Set Classeur = Nothing
AppExcel.Quit
'fermer le classeur,vider la mémoire du Set,tuer l'application excel (qui reste dans le processus sans cela)
Classeur.SaveAs ("C:\Resultat.xls")
Classeur.Close
Set Classeur = Nothing
AppExcel.Quit
da_chocapic
Messages postés43Date d'inscriptionsamedi 8 octobre 2005StatutMembreDernière intervention27 juin 2006 26 juin 2006 à 10:32
Salut,
J'obitent cette erreur " type defini par l'utilisateur non defini " a la ligne " Dim AppExcel As New Excel.Application"
Apres une petite recherche,j'ai l'impression que c'est parcqu'il me manque une dll,donc qu'il faut que j'aiile activer un truc dans les references, mais je sais pas du tout lequel ?
Il doit yavoir quelquechose pour excel non ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
da_chocapic
Messages postés43Date d'inscriptionsamedi 8 octobre 2005StatutMembreDernière intervention27 juin 2006 26 juin 2006 à 11:05
Si je rajoute ta ligne, le prog va me demander 2 fois si je souhaite enregistrer les modifs dans la feuille excel.
Si je rajoute ta ligne mais enleve le " microsoft excel 8.0 object library " ca me remet mon erreur.
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 juin 2006 à 11:21
Re,
Dim AppExcel As Excel.Application
Set AppExcel = New Excel.Application
Est équivalent à Dim AppExcel As New Excel.Application
Mais il est obligatoire pour que cela soit utilisable ainsi de mettre la référence "Microsoft Excel X.0 Object Library" à ton projet comme te l'a dit mortalino
@+, Julien Pensez: Moteur de Recherche, Réponse Acceptée
Mais Surtout: Règlement/FONT>
da_chocapic
Messages postés43Date d'inscriptionsamedi 8 octobre 2005StatutMembreDernière intervention27 juin 2006 26 juin 2006 à 12:14
ok :)
Et sinom, je voudrais bien qu'a chaque fois que je clique sur mon bouton ok,ca enregistre un nouveau fichier excel( du style nom d'un mec+ladatedujour) dans un dossier precis.
Vous savez faire ? ^^
Encore merci pour votre aide a tous les 2 , vous solutionnez les 3/4 de mes problemes et c'est vraiment sympa de votre part.
da_chocapic
Messages postés43Date d'inscriptionsamedi 8 octobre 2005StatutMembreDernière intervention27 juin 2006 26 juin 2006 à 14:33
quand tu dis thisworkbook,ca veut dire que je dois mettre le nom de ma form ou bien de ma feuille excel ou bien autre chose ou alors il faut mettre "thisworkbook" ?
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 juin 2006 à 14:39
Re,
tu peux écrire directement ThisWorkbook ceci représente le classeur actif si je ne me trompe pas et donc est equivalent a ActiveWorkBook.
@+, Julien Pensez: Moteur de Recherche, Réponse Acceptée
Mais Surtout: Règlement/FONT>
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 26 juin 2006 à 14:47
Attention Julien : C'est presque vrai. Cas où ca peut poser problème :
T'as un classeur avec de la programmation dedans (Classeur1), admettons que pour tes besoins tu ouvres un autre classeur (Classeur2) depuis le code du Classeur1 ; ben une fois ouvert ActiveWorkBook va travailler sur le Classeur2, et ThisWorkBook c'est le Classeur1 (car c'est la que se trouve ton code)
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 juin 2006 à 14:50
Re,
mortalino: je sais mais lui il fait tout cela depuis VB6. alors si il commence à écrire un bout dans le classeur et un bout en vb6 c'est pas top top, autant tout faire soit depuis VB6 soit depuis le classeur
@+, Julien Pensez: Moteur de Recherche, Réponse Acceptée
Mais Surtout: Règlement/FONT>
'tarif paris
Classeur.Worksheets(1).Range("P16").Value = Text13.Text
Classeur.Worksheets(1).Range("Q16").Value = Text14.Text
'tarif province
Classeur.Worksheets(1).Range("R16").Value = Text15.Text
Classeur.Worksheets(1).Range("S16").Value = Text16.Text
'Moyen de transport, en fonction du bouton radio
If Option1.Value = True Then
Classeur.Worksheets(1).Range("J16").Value = " véhicule administratif"
Else
If Option2.Value = True Then
Classeur.Worksheets(1).Range("J16").Value = "SNCF"
Else
If Option3.Value = True Then
Classeur.Worksheets(1).Range("J16").Value = "Avion"
Else
If Option4.Value = True Then
Classeur.Worksheets(1).Range("J16").Value = Text12
End If
End If
End If
End If
'fermer le classeur,vider la mémoire du Set,tuer l'application excel (qui reste dans le processus sans cela)
Classeur.Close
Set Classeur = Nothing
AppExcel.Quit
Classeur.SaveAs ("C:\Documents and Settings\J.Soulard\Bureau\Gestion des frais de deplacements\FICHDEPL.xls")
end sub
Je sais que c'est pas bien,j'ai renommé aucun bouton et textbox du coup je me retrouve avec des truc pas trop clairs,mais cetait au debut de mon programme et donc du coup j'ai la flemme de changer.Je ferai mieux a mon prochain ^^