Discussion :

[MichaSarah]

Bonjour,
Je rencontre un probleme lors de l'execution d'une de mes macros, que je n'arrive pas à expliquer pour le moment. Pourriez-vous m'aider ?

J'utilise la macro "LaTotale" composée de plusieurs petites macros :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub LaTotale()
    Call ini_sub
    Call ImporterInfos1
    Call ImporterInfos2
    Call Test_ROV
    Call CopieOnglets
    Call Initialisation
    Call ImporterInfos3
    Call fin_sub

Dans ini_sub il y a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Application.DisplayAlerts = False 'messages excel
    Application.DisplayStatusBar = True 
    Application.StatusBar = "Documentation CR en cours..."
    Application.ScreenUpdating = False 
    Application.Cursor = xlWait 'sablier
    Application.Calculation = xlCalculationManual

et dans fin_sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    Application.DisplayAlerts = True
    Application.StatusBar = False
    Application.ScreenUpdating = True 
    Application.Cursor = xlDefault
    Application.Calculation = xlCalculationAutomatic

Les autres macros permettent de copier , supprimer des données entre fichiers. Lorsque j'utilise les macros les unes après les autres, toutes les actions s'effectuent correctement. Mais lorsque je lance "LaTotale" la dernière action de la macro "ImporterInfos3" qui consiste à faire une copie des données d'un fichier à un autre après tous les traitements ne se realise pas.
Auriez-vous une piste de resolution ?

Merci
Michasarah

[Philippe PONS]

Bonjour,

faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

dans ini_sub ne sert à rien, car cette propriété est automatiquement remise à True dès que End Sub est exécutée!

et quand tu dis que ImporterInfos3 ne se réalise pas, que veux tu dire?
As tu essayé d'exécuter ton programme en mode pas à pas (F8) pour déterminer quelle instruction bloque?
Il faut que tu utilise les outils de débogage pour rechercher la ou les causes d'erreurs ou de plantage.

Cordialement,

[patricktoulon]

Bonjour
il y a une raison assez simple a ca peut être
essaie de mette l'appel (call....) de la macro a la fin de la macro précédente

ou alors met des variable pour chaque macro

dim macro1,macro2,macro3 ' etc......
et a chaque fin de macro tu met la variable a true
et entre chaque call

tu met un do loop until variable=true
ca arrive quand on sépare le code en beaucoup de macro malgré le monotache de VBA des fois ca se croise: l'une commence alors que l'autre n'a pas fini

[MichaSarah]

Bonsoir,
Merci pour vos réponses et conseils.
La macro fonctionnait en pas à pas ou lorsque les macros étaient lancées séquentiellement mais pas en global (LaTotale). J'ai essayé de mettre des call en fin de macros précédentes mais sans plus de réussite.
En regardant plus en detail, en automatique une cellule servant de référence était effacée . J'ai rectifié cette erreur et depuis cela fonctionne. Egalement avec des call en fin de macros précédentes

Salutations
MichaSarah