Microsoft 365 Couper une feuille d'Excel d'un dossier et l'a coller dans un autre fichier d'Excel

yassine.013

XLDnaute Nouveau
Bonjour à tous,

Je souhaite couper une feuille d'Excel "Template" qui se trouve fichier dans "Template 13.03.2023.xlsm"(le Template il se met a jour tous les jours) dans un dossier outil et l'a coller dans un nouveau dossier "outil prod" contenant le fichier "jour.xlsx" et dans la feuille "j-1".

Merci de votre aide
 

Hieu

XLDnaute Impliqué
Bonjour Yassine,

J'ai créé un petit outil, ca devrait marcher? Difficile de répondre sans matière 🙃

Voici le code :
VB:
Sub mlk()
f_cut = Range("c2")
o_cut = Range("d2")
f_paste = Range("c3")
o_paste = Range("d3")

Workbooks.Open (Range("b2") & f_cut)
Workbooks.Open (Range("b3") & f_paste)
tt = Range("c2")
Windows(f_cut).Activate
Sheets("Template").Cells.Cut

Windows(f_paste).Activate
Sheets(o_paste).Range("a1").Select
ActiveSheet.Paste

Workbooks(f_cut).Close True
Workbooks(f_paste).Close True

End Sub
 

Pièces jointes

  • yassine_v0.xlsm
    21.1 KB · Affichages: 0

Discussions similaires

  • Question
Microsoft 365 Code VBA
Réponses
10
Affichages
703

Statistiques des forums

Discussions
314 628
Messages
2 111 339
Membres
111 107
dernier inscrit
cdel