renvoi variable avec fonction

[rjcb]

Bonsoir a tous,

je rencontre des difficultés avec le renvoi d'une variable par une fonction:

Function path() As String

path = Application.GetOpenFilename("Excel(*.xls),*.xls")

End Function

Sub FillFormCRE()

Worksheets("Productions en cours").Activate


    'Detect the first row available Dim lastrow As Long
    lastrow = Range("A65536").End(xlUp).Row + 1
 
    Range("A11").Select
    ActiveCell.FormulaR1C1 = path   <<<< n'affiche rien

EndIf

Si vous avez une idée sur le blocage?

Merci

 

[pierrejean]

Re : renvoi variable avec fonction

Bonjour rjcb

Peut-etre ajouter en debut demodule

Public path

 

[BZH42]

Re : renvoi variable avec fonction

Bonjour,rjcb
Deux points:
remplacer endif par End sub

Ensuite, path étant un mot réservé d'Excel, je suggère de renommer la fonction f_Path
En plaçant une majuscule dans le nom de la fonction, ça permet de vérifier si la foinction est reconnue pendant l'écriture du code (en minuscule)
J'ai testé et ça marche

 

[rjcb]

Re : renvoi variable avec fonction

Bonjour,

Alors voici ce que j'ai fais, mais sans succès, cela n'affiche rien et lorsque j'execute en mode pas à pas je n'ai rien dans la variable path dans la fonction FillFormCRE().

Public Function F_Path() As String

pth = Application.GetOpenFilename("Excel(*.xls),*.xls")
FillFormCRE

End Function

Sub FillFormCRE()

Worksheets("Productions en cours").Activate

    'Detect the first row available Dim lastrow As Long
    lastrow = Range("A65536").End(xlUp).Row + 1
    Range("A11").Select
    ActiveCell.FormulaR1C1 = pth

End Sub

BZH42,

Ce code marche t il chez toi ?

Merci