erreur dans code

[pierrof]

Rebonjour forum
Voila j'ai un petit souci avec un code qui normalement dit me permettre de lire une cellule d'un fichier fermer
Mon nom de fichier est en "A5" je pense que mon erreur dois se situé à la reconnaissance du nom.


Private Sub CommandButton1_Click()
If Range("A5") <> 0 Then
Range("D5") = ("=O:\Production\Données de production\Base de données\" & Range("a5").Value & "Données'!$AW$54")
End If
End Sub

Merci d'avance😉

 

[porcinet82]

Re : erreur dans code

Salut,

Essaye en corrigeant de la manière suivante :

Range("D5") = ("=O:\Production\Données de production\Base de données\[" & Range("a5").Value & "]Données'!$AW$54")

@+

 

[pierrof]

Re : erreur dans code

ça ne marche pas..😕

 

[porcinet82]

Re : erreur dans code

re,

Il te met quoi comme erreur? Parce que j'ai fais le test chez moi et ca fonctionne. Est-ce que les extension de tes fichiers sont affichées? Au quel cas, il faut que tu mettes dans ta cellule Nom_fichier.xls

@+

 

[pierrof]

Re : erreur dans code

erreur d'execution 1004
erreur définie par l'application ou par l'objet
😕

 

[porcinet82]

Re : erreur dans code

re,

excuse, j'avais simplement oublié un ' en recopiant le code :
Range("D5") = "='O:\Production\Données de production\Base de données\[" & Range("a5").Value & "]Données'!$AW$54"

@+

 

[pierrof]

Re : erreur dans code

C'etait bien ça merci beaucoup
bonne apres midi