renvoi variable avec fonction

rjcb · 21 Janvier 2011

Bonsoir a tous,

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

Code:

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 · 21 Janvier 2011

Re : renvoi variable avec fonction

Bonjour rjcb

Peut-etre ajouter en debut demodule

Code:

Public path

BZH42 · 21 Janvier 2011

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 · 24 Janvier 2011

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

Code:

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

renvoi variable avec fonction

rjcb

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

BZH42

Guest

rjcb

XLDnaute Occasionnel

Discussions similaires

renvoi variable avec fonction

rjcb

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

BZH42

Guest

rjcb

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency