Discussion :

[locosr]

Bonjour à tous.

Je me heurte à nouveau à un problème en voulant réutiliser ma fonction dans une sub.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub informations()
 
Dim dlname As String
Dim ws As Worksheet
Dim y As Variant
 
 
Set ws = worksheets("echantillon")
 
dlname = ws.Cells(2, 3)
y = FnFondamentaux(dlname)
 
 
End Sub

Voici donc la sub qui m'affiche un message d'erreur disant que ma function ou ma sub n'est pas définie (erreur de compilation). Dans un premier temps le programme me surligne en bleu "fnfondamentaux", puis ensuite me surligne en jaune "sub informations". J'ai pourtant pris soin de définir ma fonction avec un variant comme expliqué dans un autre topic, et une nouvelle fois je ne vois pas d'où vient le soucis :/

Eventuellement voici le code de ma function au cas où ça pourrait aider

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Function Fondamentaux(dlname As String)
Dim wb As Workbook
 
 
Workbooks.Add.Activate
ActiveWorkbook.worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;dlname", Destination:=Range( _
        "$A$1"))
        .name = "q?s=asmtx&d=t"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
 
    End With
 
   ActiveSheet.Cells(1, 1).Offset(88, 1).Resize(7, 1).Cut Destination:=Workbooks("classeur1").worksheets("fondamentaux").Cells(2, 2)
   Application.DisplayAlerts = False
   ActiveWorkbook.Close
   Application.DisplayAlerts = True
 
End Function

Merci d'avance

[pijaku]

Bonjour,
Peut être rien à voir mais pourquoi Fn dans :

Code :

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

1
2
3
Sub informations()
'... bla bla ...
y = FnFondamentaux(dlname)

Essaye sans...

Code :

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

1
2
3
Sub informations()
'... bla bla ...
y = Fondamentaux(dlname)

[locosr]

Bah mince alors en enlevant le fn ça passe très bien. Merci beaucoup c'était bien vu, visiblement je dois encore développer mon intuition VBA parce que ça ne me serait pas venu à l'esprit.

En revanche je comprends pas trop pourquoi en enlevant le fn ça débloque le problème sachant que précédemment j'avais utilisé une autre fonction avec fn et il n'y avait pas de soucis, une idée ?

En tout cas merci beaucoup

[el_slapper]

Tiens, le FN, la dernière fois que j'ai vu ça, c'était en basic sous Sirius S1, autant dire au début des années 80(j'étais pas bien vieux). Tous les noms de fonctions devaient commencer par FN, je crois. Peut-être as-tu auparavant travaillé sur un basic analogue?