XL 2019 transfère de feuilles excel

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 !

Bonjour,

Le plus simple est d'enregistrer le fichier source sur le bureau :
VB:
Sub Enregistrer()
Dim chemin$
chemin = Environ("USERPROFILE") & "\Desktop\" 'chemin du bureau
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs chemin & "Requete.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled:
MsgBox "Le fichier a été enregistré sur le bureau...", vbInformation
End Sub
A+
 
Maintenant si Requete.xlsm contient des feuilles que l'on veut conserver :
VB:
Sub Transfert()
Dim fichier$, wb As Workbook, s As Object, n%
fichier = Environ("USERPROFILE") & "\Desktop\Requete.xlsm"
If Dir(fichier) = "" Then MsgBox "Fichier '" & fichier & "' introuvable !", 48: Exit Sub
Set wb = ActiveWorkbook 'fichier source
Application.ScreenUpdating = False
With Workbooks.Open(fichier) 'ouverture du fichier de destination
    For Each s In wb.Sheets
        s.Copy After:=.Sheets(.Sheets.Count)
    Next s
    .Close True 'enregistre et ferme le fichier de destination
End With
n = wb.Sheets.Count
MsgBox n & IIf(n < 2, " feuille a été transférée...", " feuilles ont été transférées..."), vbInformation
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

Discussions similaires

Réponses
2
Affichages
148
Réponses
8
Affichages
239
Réponses
4
Affichages
254
Retour