XL 2019 transfère de feuilles excel

[nabilexcel2007]

bonjour

j'ai un fichier Excel plein de feuilles et je veux les transférées vers un fichier Excel xlsm nommé Requete son emplacement est sur le bureau

Merci

 

[job75]

Bonjour,

Le plus simple est d'enregistrer le fichier source sur le bureau :

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+

 

[job75]

Maintenant si Requete.xlsm contient des feuilles que l'on veut conserver :

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

 

[nabilexcel2007]

Bonjour
j'ai exécuter le code il marchait pas
Merci

 

[job75]

Bonjour,

Tous les codes que je donne sur XLD ont été testés et fonctionnent, qu'avez-vous donc fait ?

Joignez vos fichiers, s'ils sont trop lourds utilisez un hébergeur de fichiers par exemple TransferNow.net

A+

 

[Electronull]

Salut,
Démarre l'enregistrement de macro, et fais un copier de tes feuilles vers le fichier sur le bureau, tu auras la macro pour le faire une autre fois.