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
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