Application Macro à plusieurs fichiers

[screewy]

Bonjour,

J'ai réalisée une macro afin d'ouvrir plusieurs fichiers Excel.
Ma macro :
Code :

Sub ImportFichier()
'Nombre de fichier Excel à ouvrir
Dim strNbFich As String

strNbFich = InputBox("Nombre de Fichier Excel à Ouvrir", "Nombre de Mois", 0)

For i = 1 To strNbFich
'Ouverture des Fichiers sources
    ChDir _
        "\\Pysn1001\doc-ap\PGPI\Résultats mensuels\Dataforce"
        
    strMonFichier = Application.GetOpenFilename("fichier Excel (*.xls), *.xls")
                        
    MsgBox strMonFichier
        
    Workbooks.OpenText Filename:=strMonFichier, _
        Origin:=xlWindows
    
    Next i
        
End Sub

Maintenant, je souhaiterai pouvoir appliquer la même mise en forme pour tous les fichiers que j'ai ouvert mais je suis obligé de les sélectionner un par un puis d'y utiliser ma macro me servant pour la mise en forme.

Sauriez vous me dire comment faire pour automatiser cela ?

Merci

 

[Pierrot93]

Re : Application Macro à plusieurs fichiers

Bonjour,

peut être lancer la macro dans ta boucle..;

    Workbooks.OpenText Filename:=strMonFichier, _
        Origin:=xlWindows
                   Call NomDeTaMacroMiseEnForme
    Next i

bon après midi
@+

 

[screewy]

Re : Application Macro à plusieurs fichiers

Merci pour ton aide