Discussion :

[florianne]

Voici le code:

Code :

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

1
2
3
Function Mettrerep()
Mettrerep = ThisWorkbook.Path
End Function

J'utilise cette fonction pour afficher le chemin du fichier excel sur lequel je travaille.Par exemple en cellule A1: =Mettrerep()
Je travaille sur différents postes informatiques qui sont en réseau et équipé d'excel 2007.
Sur Certains postes cette fonction ne donne aucun résultat.
Chez moi et avec la plupart des autres postes elle fonctionne.
D'autre part si je cree la procedure:

Code :

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

1
2
3
4
Public Sub Mettrerep2()
Mettrerep = ThisWorkbook.Path
Feuil1.Range("A1") = ThisWorkbook.Path
End Sub

Alors ça fonctionne bien pour tous les postes !!

L'appuie sur la touche F9 ne change rien.La feuille n'est pas protégée .....
Je ne comprend pas.

[jfontaine]

Bonjour,

Pour commencer, je te conseillerais de stipuler le type de retour

Code :

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

1
2
3
Function Mettrerep() As String
Mettrerep = ThisWorkbook.Path
End Function

Sur Certains postes cette fonction ne donne aucun résultat.

Est ce que le classeur a été enregistré sur le disque, ou est en mémoire ? si en mémoire pas de Workbook.Path)

[AlainTech]

Bonjour,

Il n'est pas possible de modifier le contenu d'une feuille dans une fonction appelée d'une cellule.

Donc, cette ligne

Code :

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

Feuil1.Range("A1") = ThisWorkbook.Path

n'est pas exécutée.