[VBA-E]bloquage sur end function

Version imprimable

Voir 40 message(s) de cette discussion en une page

salut tout le monde

alors voila le probleme..

j'ai un bouton
Code:

1 2 3 4 5 6 7 8 9 10 11 butTop = Range("g" & lastline + 7).Top butLeft = Range("g" & lastline + 7).Left butHeight = Range("g" & lastline + 7).Height butWidth = Range("g" & lastline + 7).Width Set Bouton = ActiveSheet.Buttons.Add(Left:=butLeft, Top:=butTop, Width:=butWidth, Height _ :=butHeight * 2) With Bouton .OnAction = Openfiles(XlsFiles(i)) .Caption = "consulter" End With
XlsFiles(i) est le nom du fichier avecsont extention ( test1.xls )

et une fonction
Code:

1 2 3 4 5 Public Function Openfiles(FileToOpen As String) MsgBox FileToOpen Workbooks.Open "C:\Documents and Settings\avaysse\Mes documents\" & FileToOpen, , True DoEvents End Function
voila... je lance mon code en pas a pas... et je me rend compte quil fait tout se que je lui demande...( ouvrir mon fichier en lecture seule enfait...) et aprivé sur le end function... il renvoi une erreur

Citation:

erreur deffini par l'application ou pas l'objet..

si quelq'un a une idée sur comment corigé sa ...merci :D

Si c'est une fonction, il serait bien de retourner une valeur à cette fonction en typant son nom ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Public Function Openfiles(FileToOpen As String) as Boolean On Error Goto Err_Trait: Openfiles = True MsgBox FileToOpen Workbooks.Open "C:\Documents and Settings\avaysse\Mes documents\" & FileToOpen, , True DoEvents Exit_Trait: Exit function Err_Trait: Openfiles = False Msgbox "Erreur " & Err.number Goto Exit_Trait End Function
A toi de tester ... mais ça doit marcher ...

où alors tu convertis dans Function en Sub si elle ne retourne rien ...

23/02/2006, 15h16
ogenki

tu aurais pas une solution dans des "goto" partout stp...
23/02/2006, 15h18
logica

Je comprend pas ta question ? :cry:

Mon code présente la gestion d'erreur classique d'un fonction VB ...
23/02/2006, 15h21
ogenki

j'ai quand meme testé ta fonction...

mais elle plante tout comme la mienne a la diference prés que toi c'est sur

Code:

exit function

:? :? :? je comprend plus trop moi..

merci

[EDIT] disons que j'ai un rejet dans l'utilisation du goto.. moin yen a ...mieu je me porte..
23/02/2006, 15h26
Pierre Fauconnier

Bonjour

Citation:

Envoyé par logica

où alors tu convertis dans Function en Sub si elle ne retourne rien ...

Une fonction peut être employée et appelée comme une procédure, cela ne pose aucun problème.

[EDIT] : Mais effectivement, dans le cas présent, il faut que ta fonction renvoie une valeur
ogenki:

En testant ta fonction, je ne tombe sur aucune erreur sur End Function.

Le classeur que tu ouvres avec ta fonction/procédure contient-il une macro à l'ouverture? Il se pourrait que ce soit cela qui pose problème...

Cela étant, je ne comprends pas l'utilité du "DoEvents" juste avant la fin de ta fonction... :?: :?:

[EDIT]: Ta propriété onaction pour le bouton est une propriété de type string qui doit contenir un nom de procédure valable, ce qui est impossible dans ton cas de figure.

Tu dois envoyer comme propriété de ton bouton

Code:

onaction="openfiles"

Ta proc openfiles ne doit pas accepter de paramètres, et tu dois donc
utiliser dans cette proc une variable initialisée avec le nom de ton fichier...

Pierre Fauconnier

le plantage à lieu quand ? à l'utilisation ou à la création du bouton ?

c'est quoi le "i"
Code:

1 2 3 4 With Bouton .OnAction = Openfiles(XlsFiles(i)) .Caption = "consulter" End With

23/02/2006, 15h33
ogenki
Citation:
Envoyé par bbil

le plantage à lieu quand ? à l'utilisation ou à la création du bouton ?

c'est quoi le "i"

Code:

1 2 3 4 With Bouton .OnAction = Openfiles(XlsFiles(i)) .Caption = "consulter" End With
le i c'est " test1.xls" ( XlsFiles est un tableau dans lequel je recupere tout les .xls d'un meme repertoire )

mon bouton est créer mais le caption n'est pas mis...donc je dirai en plin millieu... lol

je vien de relancé le code en metant exit function a la place du DoEvent
Code:

1 2 3 4 5 6 Public Function Openfiles(FileToOpen As String) MsgBox FileToOpen Workbooks.Open "C:\Documents and Settings\avaysse\Mes documents\" & FileToOpen, , True Exit Function End Function
bin il me renvoi la meme erreur mais sur le exit function... a croire que je ne doit surtout pas sortir de la fonction... lol
23/02/2006, 15h39
SfJ5Rpw8

ben dans le .onAction .. ce n'est pas le résultat de la fonction à exécuter qu'il faut mettre .. mais son nom .. du genre :

Code:

.OnAction = "Openfiles(" & XlsFiles(i) & ")"
23/02/2006, 15h41
SpaceFrog

non je crois que ça plante sur le click du bouton ...

Voir l'édition de mon message précédent pour la solution.

A savoir:
onaction doit contenir une valeur texte qui renvoie vers une procédure valide...

Cette procédure ne doit pas accepter d'arguments et tu dois donc utiliser en son sein une variable initialisée avec le nom de ton fichier
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public NomFichier as string Sub MaProc() MonBouton.Onaction = "Openfiles" NomFichier = "Fichier.xls" ... End Sub Sub OpenFiles() workbooks.open "c:..." & nomfichier ... End Sub
Ok?

Pierre Fauconnier

23/02/2006, 15h42
ogenki

Citation:

Envoyé par bbil

ben dans le .onAction .. ce n'est pas le résultat de la fonction à exécuter qu'il faut mettre .. mais son nom .. du genre :

Code:

.OnAction = "Openfiles(" & XlsFiles(i) & ")"

je vien de le testé.. il me renvoi la meme erreur.. mais cette foi.. il ne rentre meme pas dans la fonction il plante sur le

Code:

.OnAction = "Openfiles(" & XlsFiles(i) & ")"

:cry:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 butTop = Range("g" & lastline + 7).Top butLeft = Range("g" & lastline + 7).Left butHeight = Range("g" & lastline + 7).Height butWidth = Range("g" & lastline + 7).Width Set Bouton = ActiveSheet.Buttons.Add(Left:=butLeft, Top:=butTop, Width:=butWidth, Height _ :=butHeight * 2) With Bouton .OnAction = "Openfiles" .Caption = "consulter" End With
avec le bouton comme sa effectivement sa plante plus dans le code.. mais sa plante sur le click du bouton puisque comme je le pensais si on ne lui donne pas de parametre comment la fonction va faire pour " deviné" de quel .xls il s'agit

( je precise que se code est dans une boucle qui s'execute pour tout les .xls d'un repertoire...)

23/02/2006, 16h00
SfJ5Rpw8

Citation:

Envoyé par ogenki

Citation:

Envoyé par bbil

ben dans le .onAction .. ce n'est pas le résultat de la fonction à exécuter qu'il faut mettre .. mais son nom .. du genre :

Code:

.OnAction = "Openfiles(" & XlsFiles(i) & ")"

je vien de le testé.. il me renvoi la meme erreur.. mais cette foi.. il ne rentre meme pas dans la fonction il plante sur le

Code:

.OnAction = "Openfiles(" & XlsFiles(i) & ")"

:cry:

?? ben c'est normal qu'il ne rentre pas dans la fonction à la création des boutons ? non ? .... c'est quoi le message d'erreur? ...
23/02/2006, 16h02
ogenki

bin toujour la meme

Citation:

erreur defini par l'application ou par l'objet..

si sa peu aidé..je suis sous excel 2003.. voila :D
23/02/2006, 16h34
Pierre Fauconnier

Tu dois utiliser une variable externe à ta proc car tu ne peux pas attribuer à un bouton une procédure qui requiert un paramètre...

Si maintenant du veux créer autant de boutons que tu as de fichiers à ouvrir, c'est un tout autre problème.

Chaque bouton devrait alors se voir attribuer une procédure qui lui est propre, ce qui est lourd, d'abord, et même parfaitement ingérable...

Si c'est cela que tu souhaites faire, je crains que ce soit impossible à réaliser, car il me semble qu'il n'y a pas moyen de détecter sur quel bouton tu viens de cliquer (je suppose que ce sont des boutons de formulaire que tu crées...).

Pourquoi ne pas créer une liste des fichiers dans des cellules Excel, puis utiliser openfiles en récupérant la valeur de la cellule active...??

Il serait peut-être intéressant que tu expliques la finalité de ton projet pour que l'on puisse t'aider.

Pierre Fauconnier
23/02/2006, 16h37
ogenki

sur ce projet se n'est pas la premiere fonction ou j'utilise le nom du fichier en paramentre... et sa a tres bien marché pour les autres.. dailleur je v surement reprendre la meme forme de code...

enfait je liste les .xls... et je fait un bouton chaqun pour les ouvrir en lecture seule.. c'est tout;. lol
23/02/2006, 16h42
ouskel'n'or
Déjà, tu ne peux pas dire On action "une fonction" Donc, mets plutôt
Code:

1 2 3 4 5 Public Sub Openfiles(FileToOpen) MsgBox FileToOpen Workbooks.Open "C:\Documents and Settings\avaysse\Mes documents\" & FileToOpen, , True DoEvents End Sub
De toutes façon, attends-tu quelque chose dans le click du bouton au retour de ta fonction ?

A+

Edit
Extrait de l'aide pour onaction

Citation:

Renvoie ou définit le nom d'une macro exécutée quand l'objet spécifié est sélectionné. Type de données String en lecture-écriture.

je vien de faire un truc magnifique... mais qui marche....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
butTop = Range("g" & lastline + 7).Top
            butLeft = Range("g" & lastline + 7).Left
            butHeight = Range("g" & lastline + 7).Height
            butWidth = Range("g" & lastline + 7).Width
 
            Set Bouton = ActiveSheet.Buttons.Add(Left:=butLeft, Top:=butTop, Width:=butWidth, Height _
            :=butHeight * 2)
            With Bouton
                .OnAction = "Openfiles"
                .Name = XlsFiles(i)
                .Caption = "consulter"
            End With

avec en fonction

Code:

1
2
3
4
5
6
7
Public Function Openfiles()
Dim FileToOpen
FileToOpen = Application.Caller
MsgBox FileToOpen
Workbooks.Open "C:\Documents and Settings\avaysse\Mes documents\" & FileToOpen, , True
  Exit Function
End Function

donc voila :D se jolie code "marche " et non en meme temp.. enfait il fonctionne pour tout mes .xls sauf le dernier... :? :?

j'ai une idée de pourquoi sa marche pas.. je vous tien au courant.. :lol:

23/02/2006, 16h51
ouskel'n'or

Hello Ogenki,
Tu pourrais essayer mon code, il est plus simple... :wink: s'il fonctionne... :cry:
Et en plus, j'aurais ma réponse : Ça marche / Ça marche pas...

A+

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 01h33.