vb6_exel EREUR HELP!!!!

Question

je veut faire de l'importation et de l'exportation de donnes entre exel et vb
j'ai une ereur sur la line de commande suivante si qq un peut me donne un conseille ou encore mieux une solution ca serait o poil merci d'avance

Dim appExcel As Excel.Application
Dim classeur As Excel.Workbook
Dim feuille As Excel.Worksheet

Private Sub CommandButton1_Click()
With appexel
Set appExcel = CreateObject("Excel.Application")
Set feuille = classeur1.Worksheets("feuille")
FEROCE :big)

cs_moustachu · Answer

Je connais pas trop VBA mais ton classeur1 tu lui fais pas de SET ?
++
Moustachu

feroce88 · Answer

si il y est j ai oublier de le mettre
FEROCE :big)

stabe · Answer

tu as résolu ton pb ?

sinon voilà une syntaxe :

Dim objExcel As Excel.Application
Dim classeur As Excel.Workbook
Dim feuille As Excel.Worksheet

Set objExcel = CreateObject("Excel.application")
objExcel.Visible = True
Set classeur = objExcel.Workbooks.Add
Set feuille = classeur.Worksheets("Feuil1")
With feuille
    .Cells(1, 1) = "bonjour"
End With

-- stabe --

cs_PhilippeE · Answer

Regarde ce que tu peux faire avec le code de stabe, mais sans le type d'erreur c'est dur de t'aider. De plus tu as une erreur à la ligne suivante mais on a 6 lignes de code ... ça plante où ?

Pour des réponses rapides et complètes, essayes d'être un peu plus clair stp :p

Autre chose, tu déclares des Excel.xxxx dans ton application, donc tu travailles avec la référence Excel cochée dans ton projet. Si tu comptes garder la référence cochée (donc projet compatible avec cette seule version d'Excel), préfères l'utilisation de New à la fonction CreateObject.

New => utilise directement le CLSID de la classe pour instancier l'objet Application.
CreateObject => va chercher dans ta base de registre le CLSID associé à la classe pour pouvoir l'instancier.

cs_PhilippeE · Answer

J'ai oublié de demander ...
Tu es sûr du chemin de ton classeur quand tu l'ouvres par 
Set classeur = appExcel.Workbooks.Open("TonClasseur.xls")

nagstef · Answer

Perso, pour travailler sur des feuilles Excel, j'utilise cette syntaxe

Set Feuille = GetObject("c:\rep\sousrep\pouet.xls")
Set classeur = Feuille.Application.Workbooks("pouet.xls")

puis ensuite

classeur.worksheets("feuil1").Cells(1, 1).Value = .....

classeur.save

en fin.

Chais pas si cela pourra t'aider ..

++, Stef

Vb6_exel EREUR HELP!!!!

6 réponses

Discussions similaires