Application Macro à plusieurs fichiers

  • Initiateur de la discussion Initiateur de la discussion screewy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

screewy

XLDnaute Nouveau
Bonjour,

J'ai réalisée une macro afin d'ouvrir plusieurs fichiers Excel.
Ma macro :
Code :
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour