ouvrir un UF et recuperer des données .xls

[PAUL87]

Bonsoir à tous, Bonsoir le Forum
Voila mon pb..
dans une diapo, je lance l'ouverture d'un UF sur un bouton, jusque là pas de soucis...
mais je voudrais que la texbox1 affiche la valeur de la cellule N14 (14, 14) de la feuil2 du fichier CourbCap1.xls
Avec ce code ça plante...pourquoi..?
merci par avance

 
Private Sub UserForm_Activate()
Shell ("C:\Program Files\Microsoft Office\Office11\excel.exe C:\courbes\CourbCap1")
Sheets(2).Activate
Cells(14, 14) = TextBox1.Value
End Sub

[Lou Pitchoun]

Salut,

Et si tu passais par l'automation ?

 
Dim appExcel as Excel.Application
Dim oClasseur as Excel.Workbook
 
Set appExcel = CreateObject("Excel.Application")
Set oClasseur = appExcel.Workbooks.Open("Chemin+NomFichier")
 
With appExcel
    TextBox1 = .Sheets(2).Cell(14, 14)
End with

[PAUL87]

Bonsoir....et merci pour ta réponse..
j'ai placé le code dans

Private Sub UserForm_Activate()

j'ai bien remplacé le chemin du fichier par

"C:\Documents and Settings\PBX\Bureau\courbes\courbcap"

mais
rien...l'uf s'ouvre bien sur click..mais pas d'ouverture du .xls..
et donc pas d'affichage dans uf...
De plus au déboguage, j'ai un message d'erreur sur

Dim appExcel As Excel.Application

message " erreur de compilation type défini par l'utilisateur non défini"..
Pourquoi..?

[Lou Pitchoun]

Pour le message d'erreur, il faut déclarer la référence MS Excel x.x.

Ensuite, tu ne verras pas Excel s'ouvrir.

Que je comprenne bien, tu as un userform dans Powerpoint et tu veux récupérer la valeur de la cellule dans un classeur excel pour l'affecter au champ du userform ?

Donc, ce que j'ai donné devrais fonctionner.

j'ai bien remplacé le chemin du fichier par

 
"C:\Documents and Settings\PBX\Bureau\courbes\courbcap"

N'oublie pas le nom du fichier.

Par contre, je placerai le code dans UserForm_Initialize()

[PAUL87]

mais comment fait-on pour ..déclarer la référence MS Excel x.x.
je ne sais pas faire...

[PAUL87]

Ca y est ça marche...!!!
j'ai trouvé pour la référence MS Excel x.x.
et
juste "cells au lieu de "cell"

cool

Merci beaucoup..!!!

[PAUL87]

par contre, après , si je veux réouvrir mon fichier .xls....il se retrouve verrouillé en lecture seule..
pourquoi..?
que faire

[Lou Pitchoun]

Si tu souhaites ouvrir le fichier après avoir charger la valeur de la cellule, il te faut libérer l'objet en fin de procédure

appExcel.Quit
 
Set appExcel = Nothing

[PAUL87]

bonjour..!!!
c'est tres sympa des rester sur ce fil....merci...car suis un peu paumé..!!
bon, j'ai bien mis ton code sur un "bouton quitter" dans mon uf

Private Sub CommandButton1_Click()
Dim appExcel As Excel.Application
appExcel.Quit
Set appExcel = Nothing
End Sub
 

mais j'ai toujours le meme résultat..!!
le fichier .xls reste en lecture seule..et j'ai besoin de le réouvrir sitot après.!!par-dessus l'application .ppt
de plus si je reclique sur l'ouverture du uf...il s'ouvre...mais impossible de le refermer..planté...donc Ctrl/Alt.Sup.

[PAUL87]

Help.....Svp

[Heureux-oli]

Pour y voir un peu plus clair, pourrais tu nous mettre ton code en entier.

[PAUL87]

Bonjour, et merci par avance pour ton aide..voiçi mon code:
tout d'abord..la macro d'ouverture du UF...qui réagit à un click sur une forme

Sub Macro1_cap()
UserForm1.Show
End Sub
 

ensuite le code pour le textbox..et la capture du contenu de la cells(14, 14)

Private Sub UserForm_Initialize()
Dim appExcel As Excel.Application
Dim oClasseur As Excel.Workbook
 
Set appExcel = CreateObject("Excel.Application")
Set oClasseur = appExcel.Workbooks.Open("C:\Documents and Settings\PBX\Bureau\courbes\courbcap.xls")
 
With appExcel
    TextBox1.Value = .Sheets(2).Cells(14, 14)
End With
End Sub

et pour finir le code de fermeture du uf sur bouton1

Private Sub CommandButton1_Click()
Dim appExcel As Excel.Application
appExcel.Quit
Set appExcel = Nothing
End Sub

j'ai bien déclaré la référence MS Excel dans power point...
je ne sais plus

[Heureux-oli]

Private Sub UserForm_Initialize()
Dim appExcel As Excel.Application
Dim oClasseur As Excel.Workbook
 
Set appExcel = CreateObject("Excel.Application")
Set oClasseur = appExcel.Workbooks.Open("C:\Documents and Settings\PBX\Bureau\courbes\courbcap.xls")
 
With appExcel
    TextBox1.Value = .Sheets(2).Cells(14, 14)
End With
End Sub

C'est dans ce morceau de code que tu dois libérer ton objet oClasseur, or tu ne le libère pas.
comme il n'est pas libéré, il est toujours en Read-only.

[PAUL87]

oui...effectivement...!!!
ça marche bien mieux...!!!
merci...
c'est parfait...
Merci à tous..pour vos aides