VBA - Comment corriger ma boucle pour quelle fonctionne? [Résolu]

Roland_M

XLDnaute Barbatruc

• 30 Juillet 2015

• #2

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

bonjour,

et dans cet ordre !?

Code:

Sub TousBilansActivite()

' LES VARIABLES
    Dim x As Integer
    Dim NomService As String
    Dim NomUO As String
    Dim NomDossier As String
    Dim Fichier As String
        
'La variable x va successivement prendre les valeurs 0 à "Nbre de Ligne"
    For x = 0 To 6

    NomService = Range("A7").Offset(x, 0).Value
    NomUO = Range("B7").Offset(x, 0).Value
    NomDossier = Range("C7").Offset(x, 0).Value
    Fichier = Range("D7").Offset(x, 0).Value
    CheminModele = "N:\PICARDIE\EXP\PIVO\RAPPORTS\Modèles Rapports\Bilan Activité"
    FichierModele = "Bilan activité - Modèle.xlsm"
    Dim Chemin As String, FichierExportSemaine As String
    Chemin = Range("$A$4") & "\" & NomService & "\" & NomUO & "\" & NomDossier & "\"
    LancerToutesMacros = "'" & Fichier & "'!TteMacro"

'CREATION DU BILAN D'ACTIVITE

    ' Ouverture du modèle pour MISE A JOUR DES DONNEES
    Workbooks.Open CheminModele & FichierModele
    ' Sauvegarde sous le bon fichier et le bon nom
    ActiveWorkbook.SaveAs Filename:=Chemin & Fichier
    ' Démarrage des macros du fichier ouvert
    ' Application.Run ("'Bilan Activité - 19SA10 - UO Ouest Oise - S29.xlsm'!TteMacro")
    Application.Run (LancerToutesMacros)
    ' Save et Fermeture du fichier
    ActiveWorkbook.Close SaveChanges:=True
      
'FIN DE LA BOUCLE
    Next x
    
End Sub

 

Dernière édition: 30 Juillet 2015

Vote positif 0 Vote négatif

A

AHB

XLDnaute Nouveau

• 30 Juillet 2015

• #3

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

Bonjour,

Je viens de tester, ça fait encore la même chose.

Décidément, il y a un truc, c'est sur!!

Merci pour ton aide,

AHB (Sybille)

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 30 Juillet 2015

• #4

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

re

as tu vu que j'ai modifié à la fin !

ActiveWorkbook.Close SaveChanges:=True

à la place de
ActiveWindow.Close

 

Vote positif 0 Vote négatif

A

AHB

XLDnaute Nouveau

• 30 Juillet 2015

• #5

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

oui, j'ai fait copier/coller ta macro à la place de la mienne
et je l'ai enregistrer pour pouvoir comparer ensuite.

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 30 Juillet 2015

• #6

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

re

oui mais !
j'ai modifié par après et tu n'as pas cette modif

ActiveWorkbook.Close SaveChanges:=True


il faut la reprendre !

 

Vote positif 0 Vote négatif

A

AHB

XLDnaute Nouveau

• 30 Juillet 2015

• #7

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

Oups...😱

Désolé, fatigué!! effectivement, je ne l'avais pas vu...
Donc ce coup-ci, je l'ai bien repéré et modifié!!!

Mais, ça ne marche toujours pas, désolé :S

De mon coté, je cherche d'autres solutions en vain...
En même temps, ça fait des jours que je cherche.

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 30 Juillet 2015

• #8

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

re

es-tu certain que ça ne vient pas de: Application.Run (LancerToutesMacros)

les codes exécutés dans cet appel ne seraient pas en cause ?


EDIT
avec mon code, faire un essai en mettant en rem ceci> Application.Run (LancerToutesMacros)
pour voir si ta boucle tourne !?

 

Dernière édition: 30 Juillet 2015

Vote positif 0 Vote négatif

A

AHB

XLDnaute Nouveau

• 30 Juillet 2015

• #9

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

Ahhh zut, tu as raison,

j'ai retiré cette ligne et ça fonctionne!! :S

Il ne reste plus qu'a trouver pourquoi faire appel à ma macro "LancerToutesMacros" bloque ma boucle!

Aie, j'ai pas fini!! :S

Mais déjà un très grand merci pour ça, j'avoue que j'étais dans une impasse, la, je commence à revoir où chercher.

PS : on peut faire appel à une autre macro dans une boucle normalement non?

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 30 Juillet 2015

• #10

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

re

oui on peut mais quelles sont ces macros ?
tu peux pas les mettre ici pour voir !?

 

Dernière édition: 30 Juillet 2015

Vote positif 0 Vote négatif

A

AHB

XLDnaute Nouveau

• 30 Juillet 2015

• #11

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

d'accord,

Voici ci-joint le fichier contenant la macro rebelle!

Pour le moment, mes tests font un flop

je me suis dit que vu que je fait "appel" à une macro, il faut peut être que je "ferme" cette macro à la fin...

(ça doit se voir que je n'ai pas eu de cours non?)

 

Pièces jointes

• Copie de Bilan activité - Modèle.xlsm

  72.2 KB · Affichages: 40

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 30 Juillet 2015

• #12

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

re

alors, commence par mettre en rem la ligne suivante en fin de macro: ActiveWindow.Close

et remplacer par: ActiveWorkbook.Close

 

Dernière édition: 30 Juillet 2015

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 30 Juillet 2015

• #13

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

Bonjour, AHB, Roland_M 🙂, le Forum,

AHB,

Qu'en est-il de cette discussion 🙄

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 30 Juillet 2015

• #14

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

salut DoubleZero !

ça avance et je crois avoir trouvé son erreur !?
pour l'instant il fait des essais ...

avec ceci:

commence par mettre en rem la ligne suivante en fin de macro: ActiveWindow.Close
et remplacer par: ActiveWorkbook.Close

 

Vote positif 0 Vote négatif

A

AHB

XLDnaute Nouveau

• 31 Juillet 2015

• #15

Re : VBA - Comment corriger ma boucle pour quelle fonctionne?

Bonjour,

j'ai bien remplacé la ligne suivante en fin de macro: ActiveWindow.Close
par: ActiveWorkbook.Close

Mais ma macro s’arrête toujours à la fin du 1er bilan et ne fait pas les autres

Sachant que ma macro appelé dans mon bilan, fait comme vous avez du le voir dans mon 2ème fichier appel à 4 macros à la suite, j'ai essayé de décomposer celle-ci pour cibler un maximum le problème.

Pour récapituler :

• Si je désactive la partie mise à jour des données (avec l'Application.Run) dans ce cas, ma boucle fonctionne et effactue tous mes rapports 😱
• Si je ne fait appel qu'à ma macro "NettoyageTableau" (je remplace 'LancerToutesMacros = "'" & Fichier & "'!TteMacro" par LancerToutesMacros = "'" & Fichier & "'!NettoyageTableau") dans ce cas, ma boucle fonctionne également.
• ...

Je continue les tests en ce sens et vous tiens au courant

 

Vote positif 0 Vote négatif