Macro ok sous Excel2000 mais pas Excel 2003

prasikall32 Messages postés 5 Statut Membre -  
 prasikall32 -
Bonjour,


J'ai une macro qui génère, avec une boucle, des feuilles dans un même fichier cible sous Excel 2000.

Quand j'utilise Excel 2003 et la même macro, chaque feuille générée est balancée vers un fichier séparé.

Imaginons que je doive générer 40 feuilles, alors je dois ensuite récupérer chaque fiche et la déplacer dans un même fichier....

S'agit il d'un paramétrage d'excel à faire ou d'un pb de comptabilité de macro entre v2000 et v2003?

merci d'avance pour votre aide!!!!!!

Prasi
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour,

on ne peut faire mieux que de compatir à tes problèmes car sans voir la macro...

dans l'attente
0
Réponse 2 / 2
prasikall32
 
génération_classeur
=ENTRER("Pour quel mois faut-il générer les fiches :";1;"QUEL MOIS";TEXTE(AUJOURDHUI();"mmmm aa")) Saisie de la date


=SI(Mois)
= POSER.VALEUR(Premier;FAUX)
= POSER.VALEUR(Nom_liste;LIRE.DOCUMENT(1))
= POSER.VALEUR(Nom_classeur;TEXTE(Mois;"\p\r\_mm\_aa"))
= POSER.VALEUR(N_m;MOIS(Mois))
= POSER.VALEUR(Nb_jours;31+(N_m= 1)-(N_m= 2)*(2-(MOD(ANNEE(Mois);4)=0))+(N_m= 3)+(N_m= 5)+(N_m= 7)+(N_m= 8)+(N_m= 10)+(N_m= 12)) Calcul du nombre de jours


= ECRAN(FAUX)

= POUR.CELLULE("Cellule_nom";!Nom_base;VRAI) Boucle sur la base
= POSER.VALEUR(Jour;1) Init du compteur N° de jour
= SELECTIONNER(Cellule_nom;)
= POSER.VALEUR(Nom;CELLULE.ACTIVE()) Nom
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Prénom;CELLULE.ACTIVE()) Prénom
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(horaire;CELLULE.ACTIVE()) Type d'horaire

= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMLundi;CELLULE.ACTIVE()) Heure matin début lundi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMLundi;CELLULE.ACTIVE()) Heure matin fin lundi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSLundi;CELLULE.ACTIVE()) Heure début soir lundi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSLundi;CELLULE.ACTIVE()) Heure fin soir lundi

= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMMardi;CELLULE.ACTIVE()) Heure matin début mardi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMMardi;CELLULE.ACTIVE()) Heure matin fin mardi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSMardi;CELLULE.ACTIVE()) Heure début soir mardi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSMardi;CELLULE.ACTIVE()) Heure fin soir mardi

= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMMercredi;CELLULE.ACTIVE()) Heure matin début mercredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMMercredi;CELLULE.ACTIVE()) Heure matin fin mercredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSMercredi;CELLULE.ACTIVE()) Heure début soir mercredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSMercredi;CELLULE.ACTIVE()) Heure fin soir mercredi

= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMJeudi;CELLULE.ACTIVE()) Heure matin début jeudi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMJeudi;CELLULE.ACTIVE()) Heure matin fin jeudi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSJeudi;CELLULE.ACTIVE()) Heure début soir jeudi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSJeudi;CELLULE.ACTIVE()) Heure fin soir jeudi

= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMVendredi;CELLULE.ACTIVE()) Heure matin début vendredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMVendredi;CELLULE.ACTIVE()) Heure matin fin vendredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSVendredi;CELLULE.ACTIVE()) Heure début soir vendredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSVendredi;CELLULE.ACTIVE()) Heure fin soir vendredi

= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMSamedi;CELLULE.ACTIVE()) Heure matin début samedi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMSamedi;CELLULE.ACTIVE()) Heure matin fin samedi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSSamedi;CELLULE.ACTIVE()) Heure début soir samedi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSSamedi;CELLULE.ACTIVE()) Heure fin soir samedi

= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMDimanche;CELLULE.ACTIVE()) Heure matin début dimanche
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMDimanche;CELLULE.ACTIVE()) Heure matin fin dimanche
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSDimanche;CELLULE.ACTIVE()) Heure début soir dimanche
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSDimanche;CELLULE.ACTIVE()) Heure fin soir dimanche

= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Section;CELLULE.ACTIVE()) Section
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Site;CELLULE.ACTIVE()) Site
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Service;CELLULE.ACTIVE()) Service
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Société;CELLULE.ACTIVE()) Société

= POSER.VALEUR(Nom_fiche;Nom&" "&Prénom) Constitution du nom de la fiche

= SI(Premier)
= ACTIVER(Nom_nouveau)
= SINON()
= NOUVEAU.DOCUMENT("TICKET";;Premier)
= POSER.VALEUR(Mois_ticket;"&C&28&A&D&14"&TEXTE(Mois;"mmmm aaaa"))
= MISE.EN.PAGE(Mois_ticket)
= SELECTIONNER("Premier")
= POSER.VALEUR(Nom_ticket;LIRE.DOCUMENT(1))
= FIN.SI()
= NOUVEAU.DOCUMENT("PRESENCE";;VRAI)
= POSER.VALEUR(Nom_nouveau;LIRE.DOCUMENT(1))
= NOMMER.CLASSEUR(Nom_nouveau;Nom_fiche)
= POSER.VALEUR(Nom_nouveau;LIRE.DOCUMENT(1))
= POSER.VALEUR(Premier;VRAI)

= MODE.DE.CALCUL(3) On annule de mode de calcul automatique
= POSER.VALEUR(Nom_doc;LIRE.DOCUMENT(1)) Créer la nouvelle fiche

= POSER.VALEUR(Horaire_lundi;HFMLundi-HDMLundi+HFSLundi-HDSLundi) Calcul de l'horaire du lundi
= POSER.VALEUR(Horaire_mardi;HFMMardi-HDMMardi+HFSMardi-HDSMardi) Calcul de l'horaire du mardi
= POSER.VALEUR(Horaire_mercredi;HFMMercredi-HDMMercredi+HFSMercredi-HDSMercredi) Calcul de l'horaire du mercredi
= POSER.VALEUR(Horaire_jeudi;HFMJeudi-HDMJeudi+HFSJeudi-HDSJeudi) Calcul de l'horaire du jeudi
= POSER.VALEUR(Horaire_vendredi;HFMVendredi-HDMVendredi+HFSVendredi-HDSVendredi) Calcul de l'horaire du vendredi
= POSER.VALEUR(Horaire_samedi;HFMSamedi-HDMSamedi+HFSSamedi-HDSSamedi) Calcul de l'horaire du samedi
= POSER.VALEUR(Horaire_dimanche;HFMDimanche-HDMDimanche+HFSDimanche-HDSDimanche) Calcul de l'horaire du dimanche

= FORMULE(Mois;!Mois_feuille) Mise à jour de la date
= FORMULE(Nom;!Nom_feuille)
= FORMULE(Prénom;!Prénom_feuille)
= FORMULE(Section;!Section_feuille)
= FORMULE(Site;!Site_feuille)
= FORMULE(Service;!Service_feuille)
= FORMULE(Société;!Société_feuille)
= FORMULE(horaire;!horaire_feuille)

= POUR.CELLULE("Jour_actif";!Jours_feuille;FAUX) Boucle sur les N°
= SELECTIONNER(Jour_actif;)
= SI(Jour<Nb_jours)
= FORMULE(Jour;Jour_actif) Mise à jour du quantième
= SELECTIONNER("LC(-1)")
= FORMULE(MAJUSCULE(GAUCHE(TEXTE(!Mois_feuille+Jour-1;"jjj");1)))
= POSER.VALEUR(Jour;Jour+1)
= FIN.SI()
= SUIVANT()

= POUR.CELLULE("Cellule_jour";!Jours_feuille;VRAI) Boucle sur les jours
= SELECTIONNER(Cellule_jour;)
= SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=1) Test si LUNDI
= SELECTIONNER("LC(1)";)
= SI(HDMLundi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMLundi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMLundi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMLundi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSLundi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSLundi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSLundi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSLundi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_lundi;CELLULE.ACTIVE())


= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=2) Test si MARDI
= SELECTIONNER("LC(1)";)
= SI(HDMMardi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMMardi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMMardi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMMardi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSMardi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSMardi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSMardi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSMardi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_mardi;CELLULE.ACTIVE())

= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=3) Test si MERCREDI
= SELECTIONNER("LC(1)";)
= SI(HDMMercredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMMercredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMMercredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMMercredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSMercredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSMercredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSMercredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSMercredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_mercredi;CELLULE.ACTIVE())

= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=4) Test si JEUDI
= SELECTIONNER("LC(1)";)
= SI(HDMJeudi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMJeudi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMJeudi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMJeudi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSJeudi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSJeudi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSJeudi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSJeudi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_jeudi;CELLULE.ACTIVE())


= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=5) Test si VENDREDI
= SELECTIONNER("LC(1)";)
= SI(HDMVendredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMVendredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMVendredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMVendredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSVendredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSVendredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSVendredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSVendredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_vendredi;CELLULE.ACTIVE())

= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=6) Test si SAMEDI
= SELECTIONNER("LC(1)";)
= SI(HDMSamedi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMSamedi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMSamedi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMSamedi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSSamedi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSSamedi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSSamedi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSSamedi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_samedi;CELLULE.ACTIVE())

= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=7) Test si DIMANCHE
= SELECTIONNER("LC(1)";)
= SI(HDMDimanche=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMDimanche;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMDimanche=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMDimanche;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSDimanche=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSDimanche;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSDimanche=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSDimanche;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";)
= FORMULE(Horaire_dimanche;CELLULE.ACTIVE())

= SINON()
= SELECTIONNER("LC(-1):LC(14)";)
= MOTIFS(17;0;;VRAI)
= FIN.SI()

= SUIVANT()

Changer le nom de la fiche
= MODE.DE.CALCUL(1) On remet le mode de calcul automatique
= SELECTIONNER("L1C1")
= PROTEGER.DOCUMENT(VRAI;FAUX;"SOCIETE";VRAI)
= ECRAN(VRAI)
= ECRAN(FAUX)
= ACTIVER(Nom_ticket)
= FORMULE(Nom;CELLULE.ACTIVE())
=SELECTIONNER("LC(1)";)
= FORMULE(Prénom;CELLULE.ACTIVE())
=SELECTIONNER("LC(1)";)
=POSER.VALEUR(Ticket;"='"&Nom_fiche&"'!Tickets")
=POSER.VALEUR(Heures_sup;"='"&Nom_fiche&"'!Heures_sup")
= FORMULE(Ticket;CELLULE.ACTIVE())
=SELECTIONNER("L(0)C(1)";)
= FORMULE(Heures_sup;CELLULE.ACTIVE())
=SELECTIONNER("L(1)C(-3)";)


= ACTIVER(Nom_liste)

= SUIVANT()
= ACTIVER(Nom_nouveau)
= PROTEGER.DOCUMENT(VRAI;FAUX;"SOCIETE";VRAI)
= ENREGISTRER.SOUS(Nom_classeur;1;;;;)
= ECRAN(VRAI)

=FIN.SI()

=POSER.VALEUR(Nom_classeur;"") effacer les liaisons avec d'autres fichiers
=POSER.VALEUR(Nom_liste;"")
=POSER.VALEUR(Nom_ticket;"")
=POSER.VALEUR(Nom_nouveau;"")
=POSER.VALEUR(Nom_doc;"")
=POSER.VALEUR(Ticket;"")
=POSER.VALEUR(Heures_sup;"")

=RETOUR()
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses