Passage de nom de feuille en feuille

Dull

XLDnaute Barbatruc

• 11 Juillet 2006

• #2

Re : Passage de nom de feuille en feuille

Salut therafou, le Forum,

Michel_m m'avais bien dépanné sur ce fil

Code:

Sub chercher_xl4()
' auteur présumé: John Walkenbach
Dim chemin As String
chemin = "'" & ThisWorkbook.Path & "\"
Range("cible") = ExecuteExcel4Macro(chemin & "\tonclasseur.xls'!source")
End Sub

Bon courage

 

Vote positif 0 Vote négatif

therafou

XLDnaute Junior

• 11 Juillet 2006

• #3

Re : Passage de nom de feuille en feuille

Si je comprends bien je peux récupérer le nom "date_moi" avec la formule
=DECALER(Data3!$A$3;;;NBVAL(Data3!$A$3:$A$150)

qui se trouve dans test_formulaire.xls pour l'avoir dans graphique.xls?

soit

Sub chercher_xl4()
' auteur présumé: John Walkenbach
Dim chemin As String
chemin = "'" & ThisWorkbook.Path & "\"
Range("cible") = ExecuteExcel4Macro(chemin & "\test_formulaire.xls'!date_moi")
End Sub

 

Vote positif 0 Vote négatif

therafou

XLDnaute Junior

• 11 Juillet 2006

• #4

Re : Passage de nom de feuille en feuille

Je me retrouve avec une erreur lorsque je lance la macro.

Code:

Erreur d'Exécution '1004':
La méthode Range de l'objet '_Global' a échoué

Je continue à chercher la solution

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 11 Juillet 2006

• #5

Re : Passage de nom de feuille en feuille

Re

remplace "cible" par la destination, "A1" par exemple

ce qui donnerai

Code:

 Sub chercher_xl4()
' auteur présumé: John Walkenbach
Dim chemin As String
chemin = "'" & ThisWorkbook.Path & "\"
Range("A1") = ExecuteExcel4Macro(chemin & "\test_formulaire.xls'!date_moi")
End Sub

bon courage

 

Vote positif 0 Vote négatif

therafou

XLDnaute Junior

• 11 Juillet 2006

• #6

Re : Passage de nom de feuille en feuille

Sa fonctionne bien enfin je veux dire qu'il m'affiche #NOM? dans la cellule A1 de la feuille Feuil1. Mais s'est normal car la valeur source est une liste de nombre avec la formule:=
DECALER(Data3!$A$3;;;NBVAL(Data3!$A$3:$A$150)

Maintenant que je vois que le transfère est possible comment pouvoir récuperer ou réexploiter la liste

 

Vote positif 0 Vote négatif