[VBA-E]bloquage sur end function

Version imprimable

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+
23/02/2006, 16h53
Pierre Fauconnier

Citation:

Envoyé par 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

Le problème n'est pas d'utiliser une procédure ou une fonction qui utilise un nom de fichier en paramètre, le problème, c'est que
Tu ne peux pas affecter à un bouton (de formulaire) une procédure qui requiert un paramètre... :!: :!: :!:

Essaie de le faire en Excel et tu verras que tu ne trouveras pas ta procédure openfiles dans la liste des procédures disponibles pour être affectées à ton bouton...

Est-ce clair?

[EDIT]: Par contre, je cherchais une solution pour récupérer le nom du bouton, mais tu as trouvé avant moi, c'était Application.caller...
Si cela ne marche pas pour le dernier fichier, ce n'est qu'un problème mineur à régler...

Pierre Fauconnier
23/02/2006, 16h56
ogenki

salut ousk desolé sa marche pas... le meme probleme que tout a l'heure sa peut pas marché vu qu'il ne peu pas deviné le nom du fichier.. je rapelle que mon . action est

Code:

.action "Openfiles"

;)

l'utilisation des application caller est un tres bon moyen de faire passé une variable dans une fonction..
23/02/2006, 16h58
ogenki

Citation:

Envoyé par Pierre Fauconnier

Citation:

Envoyé par 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

Le problème n'est pas d'utiliser une procédure ou une fonction qui utilise un nom de fichier en paramètre, le problème, c'est que
Tu ne peux pas affecter à un bouton (de formulaire) une procédure qui requiert un paramètre... :!: :!: :!:

Essaie de le faire en Excel et tu verras que tu ne trouveras pas ta procédure openfiles dans la liste des procédures disponibles pour être affectées à ton bouton...

Est-ce clair?

Pierre Fauconnier

d'ou le superbe code que j'ai mis plus haut en passant mon parametre dans le .name et en le recuperant dans l'application caller ;) non ???
23/02/2006, 17h00
Pierre Fauconnier

En effet, c'est pour cela que j'ai édité mon message...

Très belle solution... :bravo:

Pierre Fauconnier
23/02/2006, 18h27
ogenki

:oops: :oops: :oops: :oops: merci l'idée et de bidou lol

autre chose vous savez quelque chose sur la longeur du . name ??

je pense que sa plante a cause de sa.. des info ?
23/02/2006, 18h33
ouskel'n'or

Hello,
Eh voilà, on a trouvé le pourquoi de Application.caller :lol: Depuis le temps qu'on cherchait. Mais je ne comprends pas : Pourquoi utiliser une fonction ? Avec une sub, ça ne marche pas ? Ça ferait une ligne de moins :lol: et si tu mets

Code:

Workbooks.Open "C:\Documents and Settings\avaysse\Mes documents\" & Application.Caller, , True

ça fait encore deux lignes et une déclaration de moins... :wink:
Après, j'arrive plus à simplifier...

Le .name ? Essaie d'afficher ce qu'il y a dans xlsFiles(i) Il sort d'où ce tableau ? Il est déclaré en local, en public ?

A+
23/02/2006, 18h38
ogenki

lol bah declaré la variable a l'interieur de la fonction permet une meilleur lisibilité non ?

ensuite bin pas de probleme je lance une nouvelle question sur le forum..

derniere chose tu m'oublie pas sur le prob de copie special ??;)

sinon merci a tous pour votre aide :D
23/02/2006, 18h50
ouskel'n'or

Citation:

declaré la variable a l'interieur de la fonction permet une meilleur lisibilité non ?

Oui, certes, mais chaque fois que tu utilises un variable le programme doit s'y référer et pur ça aller faire un détour par la mémoire et si tu es limité... Non, dans une procédure courte ce n'est pas bien grave. Mais bon, j'ai l'habitude de m'en passer chaque fois que je peux.

A+

Citation:

tu m'oublie pas sur le prob de copie special

Non :cry: Non :cry:

Fuseau horaire GMT +2. Il est actuellement 07h23.