Progress Bar et copie de colonnes entre plusieurs fichiers

[Asap]

Bonjour à tous

Je suis tout nouveau ici, en apparence seulement car je cherche souvent de l'aide dans vos archives.

Malheureusement pour moi je n'ai pas trouvé de réponse à ma question du jour 🙁


J'ai un fichier xls dans lequel j'ai 3 Macros

- une permettant d'ouvrir un autre fichier et de copier les colonnes d'un fichier à l'autre
- une autre enregistrant le fichier a un nom défini a chaque fois par le contenu d'une des cellules copiées précédemment
- une derniere macro permettant de mettre en forme correctement mon fichier fini, de l'enregistrer, et de fermer le fichier contenant les macros sans enregistrer.

Ceci me va parfaitement et je ne veux pas faire de changement ( pour des raisons de praticité en entreprise)


J'aimerai creer une 4ème macro me permettant de

- Lancer les trois autres macros
- Cacher le passages d'un fichier à un autre via "Application.ScreenUpdating = False"
- Mais surtout , Afficher un userform montrant la progression de la macro.


Avez vous une idée de ce que je peux faire ?


Merci d'avance !

 

[phlaurent55]

Re : Progress Bar et copie de colonnes entre plusieurs fichiers

Bonjour Asap, et bienvenue sur le forum

J'aimerai creer une 4ème macro me permettant de

- Lancer les trois autres macros
- Cacher le passages d'un fichier à un autre via "Application.ScreenUpdating = False"

voici un exemple très simple
il suffit de lancer la macro4

Sub Macro1()
    Range("A1").Value = "Bonjour"
End Sub

Sub Macro2()
    Range("A2").Value = "à"
End Sub

Sub Macro3()
    Range("A3").Value = "tous"
End Sub

Sub Macro4()
Application.ScreenUpdating = False
Macro1 '(appel de la macro 1)
Macro2 '(appel de la macro 2)
Macro3 '(appel de la macro 3)
Application.ScreenUpdating = True
End Sub

à+
Philippe