[VBA-E]bloquage sur end function

**ogenki** · 23/02/2006, 15h03

salut tout le monde

alors voila le probleme..

j'ai un bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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

**logica** · 23/02/2006, 15h07

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

**ogenki** · 23/02/2006, 15h16

tu aurais pas une solution dans des "goto" partout stp...

**logica** · 23/02/2006, 15h18

Je comprend pas ta question ?

Mon code présente la gestion d'erreur classique d'un fonction VB ...

**ogenki** · 23/02/2006, 15h21

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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..

**Pierre Fauconnier** · 23/02/2006, 15h26

Bonjour

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**SfJ5Rpw8** · 23/02/2006, 15h28

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

c'est quoi le "i"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ogenki** · 23/02/2006, 15h33

Envoyé par bbil

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

c'est quoi le "i"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**SfJ5Rpw8** · 23/02/2006, 15h39

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**SpaceFrog** · 23/02/2006, 15h41

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

**Pierre Fauconnier** · 23/02/2006, 15h41

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ogenki** · 23/02/2006, 15h42

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ogenki** · 23/02/2006, 15h56

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...)

**SfJ5Rpw8** · 23/02/2006, 16h00

Envoyé par ogenki

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

?? 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? ...

**ogenki** · 23/02/2006, 16h02

bin toujour la meme

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

si sa peu aidé..je suis sous excel 2003.. voila

**Pierre Fauconnier** · 23/02/2006, 16h34

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

**ogenki** · 23/02/2006, 16h37

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

**ouskel'n'or** · 23/02/2006, 16h42

Déjà, tu ne peux pas dire On action "une fonction" Donc, mets plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

**ogenki** · 23/02/2006, 16h48

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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