Macro_appelé une Feuille

sousou

XLDnaute Barbatruc

• 13 Juillet 2010

• #2

Re : Macro_appelé une Feuille

Bonjour pierre@

Si tu n'as vraiment qu'une feuille,remplace sheets("feuil1") par sheets(1), ca devrait marcher.
Attention je n'ai pas vue la macro!

 

Vote positif 0 Vote négatif

P

pierre@

Guest

• 13 Juillet 2010

• #3

Re : Macro_appelé une Feuille

oups deux envoi....

 

Dernière modification par un modérateur: 13 Juillet 2010

Vote positif 0 Vote négatif

P

pierre@

Guest

• 13 Juillet 2010

• #4

Re : Macro_appelé une Feuille

ok je vais essayer

Dans la macro c'est défini comme suit :

Const NomFeuille As String = "Feuil1"
...
.Cells(NumeroLigne, 5) = ExtraireValeur(NomDossier, NomFichier, NomFeuille, "A1" )

Je devrais remplacer : NomFeuille -> NomFichier.sheets(1) ?

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 13 Juillet 2010

• #5

Re : Macro_appelé une Feuille

Plutôt
NomFeuille -> NomFichier.sheets(1).name

 

Vote positif 0 Vote négatif

P

pierre@

Guest

• 13 Juillet 2010

• #6

Re : Macro_appelé une Feuille

J'ai essayer, jai encore un petit souci, je vous poste le passage concerné :

Code:

Private Function ExtraireValeur(ByVal Dossier As String, ByVal Fichier As String, _
                                ByVal Feuille As String, ByVal Cellule As String)
Dim Argument As String
    Dossier = Replace(Dossier, "'", "''" )
    Fichier = Replace(Fichier, "'", "''" )
    Feuille = Replace([B][COLOR="Red"]Fichier[/COLOR][/B].sheets(1).name, "'", "''" )
    Argument = "'" & Dossier & "[" & Fichier & "]" & Feuille & "'!" & Range(Cellule).Address(, , xlR1C1)
    ExtraireValeur = ExecuteExcel4Macro(Argument)
End Function

Il me fait erreur de compilation :qualificateur incorrect en surlignant Fichier

Qu'en pensez vous?
Merci
Cordialement.

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 13 Juillet 2010

• #7

Re : Macro_appelé une Feuille

re

Pas tout compris dans la macro du forum! (excel4.execute??=
mais cela me semble compliqué si ton objectif est seulement de reccuperer la cellule a1 de chaque feuille de chaquue classeur.
Regarde la proposition faite à angelamuss.. c'est pa loin de ce que tu veux, sauf la somme et la plage de cellule

 

Vote positif 0 Vote négatif

P

pierre@

Guest

• 19 Juillet 2010

• #8

Re : Macro_appelé une Feuille

jai trouvé! si ça intéresse qqun... pour lire le nom d'une feuille avec le classeur fermé il faut utilisé ADODB

le script :

Problème pour appelé une feuille & extraire des données sous excel - VB/VBA/VBS - Programmation - FORUM HardWare.fr

 

Vote positif 0 Vote négatif