Utilisation d'une boite de dialogue pour sélection un fichiers à joindre

  • Initiateur de la discussion Initiateur de la discussion lmc71
  • 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 !

lmc71

XLDnaute Occasionnel
Bonjour,
J'utilise la macro suivante pour recopier le résultat de données de plusieurs fichiers.
Je souhaiterais pouvoir sélectionner un fichier nominatif dans une boite de dialogue en lieu et place de la ligne Const Mesfichiers = ......... , mais je veux conserver la fonction de la macro.

Est-ce possible ?
Y a-t-il quelqu'un pour me venir en aide !

Codialement


Sub recup_Bellegarde_Refait()


Const MesFichiers = "1Déc,2Janv,3Fév,4Mars,5Avril,6Mai,7Juin,8Juil,9Aout,10Sept,11Oct,12Nov"
Dim Chemin As String, Fichier As String, S

Range("c3").Select 'sélectionner la cellule de début
Chemin = "D:\cELINE serge HONORAIRES\Honoraires\Bellegarde\HO macro\"

For Each S In Split(MesFichiers, ",")
Fichier = Chemin & S & ".xlsm"
Workbooks.Open Filename:=Fichier
Range("Résultat").Copy
ThisWorkbook.Activate
Selection.PasteSpecial Paste:=xlPasteValues
Windows(S & ".xlsm").Activate
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("c65536").End(xlUp).Offset(1, 0).Select
Next S
End Sub
 
- 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
Retour