dans le cadre d'une de mes macro qui manipule plusieurs classeurs je dois
mettre en forme 4 classeurs selon un format identique avant de les
rassembler.
J'ai donc créer une fonction qui prend pour parametre un objet classeur
préalablement défini et initialisé.
ce qui donne
function MiseEnForme ( byval Classeur as objet)
classeur.activate
'// instructions diverses zé variées
'//fin
end function
en faisant cela , ca me permet de faire une fonction pour mes quatre
classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce
momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide...
et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o)
sinon tant pis je ferai autrement !!!!
Bonjour ! Essaie de remplacer function par sub (au début et à la fin), pê que ça marchera...
-----Message d'origine----- bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs classeurs je dois
mettre en forme 4 classeurs selon un format identique avant de les
rassembler. J'ai donc créer une fonction qui prend pour parametre un objet classeur
préalablement défini et initialisé. ce qui donne
function MiseEnForme ( byval Classeur as objet) classeur.activate '// instructions diverses zé variées '//fin end function
en faisant cela , ca me permet de faire une fonction pour mes quatre
classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce
momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide... et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o)
sinon tant pis je ferai autrement !!!!
merci d'avance orel
.
Orel
toujours pareil .... en suspens
merci
"Vincent." a écrit dans le message news: 00ad01c38c17$715afa30$ Bonjour ! Essaie de remplacer function par sub (au début et à la fin), pê que ça marchera...
-----Message d'origine----- bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs classeurs je dois
mettre en forme 4 classeurs selon un format identique avant de les
rassembler. J'ai donc créer une fonction qui prend pour parametre un objet classeur
préalablement défini et initialisé. ce qui donne
function MiseEnForme ( byval Classeur as objet) classeur.activate '// instructions diverses zé variées '//fin end function
en faisant cela , ca me permet de faire une fonction pour mes quatre
classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce
momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide... et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o)
sinon tant pis je ferai autrement !!!!
merci d'avance orel
.
toujours pareil .... en suspens
merci
"Vincent." <vincent.N0SP@MfallasATfr.pwc.com> a écrit dans le message news:
00ad01c38c17$715afa30$a101280a@phx.gbl...
Bonjour !
Essaie de remplacer function par sub (au début et à la
fin), pê que ça marchera...
-----Message d'origine-----
bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs
classeurs je dois
mettre en forme 4 classeurs selon un format identique
avant de les
rassembler.
J'ai donc créer une fonction qui prend pour parametre un
objet classeur
préalablement défini et initialisé.
ce qui donne
function MiseEnForme ( byval Classeur as objet)
classeur.activate
'// instructions diverses zé variées
'//fin
end function
en faisant cela , ca me permet de faire une fonction pour
mes quatre
classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '//
MonClasseur qui a ce
momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide...
et sur la ligne Classeur.ativate j'ai une erreur 424 :
objet requis
Question : peu t on faire ce que je veu faire ??? si oui
comment ;o)
"Vincent." a écrit dans le message news: 00ad01c38c17$715afa30$ Bonjour ! Essaie de remplacer function par sub (au début et à la fin), pê que ça marchera...
-----Message d'origine----- bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs classeurs je dois
mettre en forme 4 classeurs selon un format identique avant de les
rassembler. J'ai donc créer une fonction qui prend pour parametre un objet classeur
préalablement défini et initialisé. ce qui donne
function MiseEnForme ( byval Classeur as objet) classeur.activate '// instructions diverses zé variées '//fin end function
en faisant cela , ca me permet de faire une fonction pour mes quatre
classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce
momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide... et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o)
sinon tant pis je ferai autrement !!!!
merci d'avance orel
.
Frédéric Sigonneau
Bonjour,
Est-ce bien ce genre de syntaxe que tu utilises (et le même nom pour ta fonction...) :
Sub test() Dim Classeur As Workbook
Set Classeur=Workbooks("MonClasseur.xls") MiseEnForme Classeur
End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs classeurs je dois mettre en forme 4 classeurs selon un format identique avant de les rassembler. J'ai donc créer une fonction qui prend pour parametre un objet classeur préalablement défini et initialisé. ce qui donne
function MiseEnForme ( byval Classeur as objet) classeur.activate '// instructions diverses zé variées '//fin end function
en faisant cela , ca me permet de faire une fonction pour mes quatre classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide... et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o) sinon tant pis je ferai autrement !!!!
merci d'avance orel
Bonjour,
Est-ce bien ce genre de syntaxe que tu utilises (et le même nom pour ta
fonction...) :
Sub test()
Dim Classeur As Workbook
Set Classeur=Workbooks("MonClasseur.xls")
MiseEnForme Classeur
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs classeurs je dois
mettre en forme 4 classeurs selon un format identique avant de les
rassembler.
J'ai donc créer une fonction qui prend pour parametre un objet classeur
préalablement défini et initialisé.
ce qui donne
function MiseEnForme ( byval Classeur as objet)
classeur.activate
'// instructions diverses zé variées
'//fin
end function
en faisant cela , ca me permet de faire une fonction pour mes quatre
classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce
momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide...
et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o)
sinon tant pis je ferai autrement !!!!
Est-ce bien ce genre de syntaxe que tu utilises (et le même nom pour ta fonction...) :
Sub test() Dim Classeur As Workbook
Set Classeur=Workbooks("MonClasseur.xls") MiseEnForme Classeur
End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs classeurs je dois mettre en forme 4 classeurs selon un format identique avant de les rassembler. J'ai donc créer une fonction qui prend pour parametre un objet classeur préalablement défini et initialisé. ce qui donne
function MiseEnForme ( byval Classeur as objet) classeur.activate '// instructions diverses zé variées '//fin end function
en faisant cela , ca me permet de faire une fonction pour mes quatre classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide... et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o) sinon tant pis je ferai autrement !!!!
merci d'avance orel
Pierre Fauconnier
Bonjour
Il faut que MonClasseur utilisé soit un objet classeur et non le nom d'un classeur..
Dim MonClasseur as Workbook Set MonClasseur= Workbooks("ClasseurXXX.xls") retour=MiseEnForme(MonClasseur)
Si MonClasseur est une variable de type String, tu auras ceci
Dim MonClasseur as string MonClasseur="ClasseurXXX.xls" retour=MiseEnForme(Workbooks(MonClasseur))
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
Orel wrote:
bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs classeurs je dois mettre en forme 4 classeurs selon un format identique avant de les rassembler. J'ai donc créer une fonction qui prend pour parametre un objet classeur préalablement défini et initialisé. ce qui donne
function MiseEnForme ( byval Classeur as objet) classeur.activate '// instructions diverses zé variées '//fin end function
en faisant cela , ca me permet de faire une fonction pour mes quatre classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide... et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o) sinon tant pis je ferai autrement !!!!
merci d'avance orel
Bonjour
Il faut que MonClasseur utilisé soit un objet classeur et non le nom d'un
classeur..
Dim MonClasseur as Workbook
Set MonClasseur= Workbooks("ClasseurXXX.xls")
retour=MiseEnForme(MonClasseur)
Si MonClasseur est une variable de type String, tu auras ceci
Dim MonClasseur as string
MonClasseur="ClasseurXXX.xls"
retour=MiseEnForme(Workbooks(MonClasseur))
--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)
Orel wrote:
bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs classeurs je
dois mettre en forme 4 classeurs selon un format identique avant de
les rassembler.
J'ai donc créer une fonction qui prend pour parametre un objet
classeur préalablement défini et initialisé.
ce qui donne
function MiseEnForme ( byval Classeur as objet)
classeur.activate
'// instructions diverses zé variées
'//fin
end function
en faisant cela , ca me permet de faire une fonction pour mes quatre
classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce
momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide...
et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o)
sinon tant pis je ferai autrement !!!!
Il faut que MonClasseur utilisé soit un objet classeur et non le nom d'un classeur..
Dim MonClasseur as Workbook Set MonClasseur= Workbooks("ClasseurXXX.xls") retour=MiseEnForme(MonClasseur)
Si MonClasseur est une variable de type String, tu auras ceci
Dim MonClasseur as string MonClasseur="ClasseurXXX.xls" retour=MiseEnForme(Workbooks(MonClasseur))
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
Orel wrote:
bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs classeurs je dois mettre en forme 4 classeurs selon un format identique avant de les rassembler. J'ai donc créer une fonction qui prend pour parametre un objet classeur préalablement défini et initialisé. ce qui donne
function MiseEnForme ( byval Classeur as objet) classeur.activate '// instructions diverses zé variées '//fin end function
en faisant cela , ca me permet de faire une fonction pour mes quatre classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide... et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o) sinon tant pis je ferai autrement !!!!
merci d'avance orel
Orel
Ok Bien compris ... en fait maintenant ca marche avec MonClasseur de type objet....
mais j'ecris dans mes tablettes vos propositions ...
merci encore
orel
"Orel" <pub[nospam]@owel.fr.st> a écrit dans le message news: #
bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs classeurs je dois mettre en forme 4 classeurs selon un format identique avant de les rassembler. J'ai donc créer une fonction qui prend pour parametre un objet classeur préalablement défini et initialisé. ce qui donne
function MiseEnForme ( byval Classeur as objet) classeur.activate '// instructions diverses zé variées '//fin end function
en faisant cela , ca me permet de faire une fonction pour mes quatre classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide... et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o) sinon tant pis je ferai autrement !!!!
merci d'avance orel
Ok Bien compris ...
en fait maintenant ca marche avec MonClasseur de type objet....
mais j'ecris dans mes tablettes vos propositions ...
merci encore
orel
"Orel" <pub[nospam]@owel.fr.st> a écrit dans le message news:
#IqxwXBjDHA.2404@TK2MSFTNGP12.phx.gbl...
bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs classeurs je dois
mettre en forme 4 classeurs selon un format identique avant de les
rassembler.
J'ai donc créer une fonction qui prend pour parametre un objet classeur
préalablement défini et initialisé.
ce qui donne
function MiseEnForme ( byval Classeur as objet)
classeur.activate
'// instructions diverses zé variées
'//fin
end function
en faisant cela , ca me permet de faire une fonction pour mes quatre
classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce
momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide...
et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o)
sinon tant pis je ferai autrement !!!!
Ok Bien compris ... en fait maintenant ca marche avec MonClasseur de type objet....
mais j'ecris dans mes tablettes vos propositions ...
merci encore
orel
"Orel" <pub[nospam]@owel.fr.st> a écrit dans le message news: #
bonjour !
dans le cadre d'une de mes macro qui manipule plusieurs classeurs je dois mettre en forme 4 classeurs selon un format identique avant de les rassembler. J'ai donc créer une fonction qui prend pour parametre un objet classeur préalablement défini et initialisé. ce qui donne
function MiseEnForme ( byval Classeur as objet) classeur.activate '// instructions diverses zé variées '//fin end function
en faisant cela , ca me permet de faire une fonction pour mes quatre classeurs ...
mais voila ca ne fonctionne pas !
j'appel ma fonction :
retour = MiseEnFormeEncaissement(MonClasseur) '// MonClasseur qui a ce momment là est bien valide ...
je fait F8 je rentre dans ma fonction
et là mon parametre Classeur est vide... et sur la ligne Classeur.ativate j'ai une erreur 424 : objet requis
Question : peu t on faire ce que je veu faire ??? si oui comment ;o) sinon tant pis je ferai autrement !!!!