Discussion :

[Juan Jacko]

Bonjour,

je suis censé faire une fonction d'import, qui reconnait la cellule d'une feuille que l'on désire importer, et la copie/colle sur la feuille on la fonction est appeler.

petit problème, lorsque j'appelle la fonction elle s'applique sur la feuille ou je l'ai appelée ...

comment faire ???

Excellement

Juan

[Theze]

Bonjour,

Là, il faudrait un peu plus d'explications, comment as-tu écris ta fonction ?
Si ta fonction est comme ça (pour l'exemple bien sûr) :

Code :

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

1
2
3
4
5
6
7
8
 
Public Function RETOUR_VALEUR(Cellule As Range) As String
 
    Application.Volatile
 
    RETOUR_VALEUR = CStr(Cellule.Value)
 
End Function

tu écris ta formule comme ceci dans une autre feuille :
=RETOUR_VALEUR(Feuil2!A1)

Hervé.

[Juan Jacko]

Salut,

Voila le code :

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
 
 
Private Sub import_Click()
Dim classeurSource As Workbook, classeurDestination As Workbook, CheminSource As String
 
'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.Workbooks.Open("E:\DONNEES\G91271\MES_DOCUMENTS\PROJET\FICHIER A IMPORTER.xls", , True)
 
'définir le classeur destination
Set classeurDestination = ThisWorkbook
 
classeurSource.Sheets("Sheet 1").Activate ' j'active la feuille du fichier source pour que la fonction s'exerce dessus
colonne = ThisWorkbook.reconnaissanceColonne("inst nom installation", 1)
MsgBox "colonne numero " & colonne
'fermer le classeur source
'classeurSource.Close False
 
End Sub