Lone-wolf
XLDnaute Barbatruc
Bonjour à tous
Comment copier la feuille active et l'enregistrer sous un autre nom, voici la macro:
ThisWorkbook.Path & "\" si les feuilles vont dans le même dossier du classeur source, sinon mettre le chemin complet. Exemple: "C:\Users\Toto\AppData\Roaming\Mes classeurs\"
Et pour l'exécuter sans avoir besoin d'un bouton
Comment copier la feuille active et l'enregistrer sous un autre nom, voici la macro:
Code:
Option Explicit
Sub Copie_Feuille_Active()
Dim chemin$, nom$, cel As Range
Application.ScreenUpdating = False
chemin = ThisWorkbook.Path & "\"
With Feuil1
For Each cel In .Range("a2:a6")
nom = cel.value & ".xls"
.Copy
ActiveSheet.SaveAs Filename:=chemin & nom, FileFormat:=xlExcel8
ActiveWindow.Close
Next cel
End With
End Sub
ThisWorkbook.Path & "\" si les feuilles vont dans le même dossier du classeur source, sinon mettre le chemin complet. Exemple: "C:\Users\Toto\AppData\Roaming\Mes classeurs\"
Et pour l'exécuter sans avoir besoin d'un bouton
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call Copie_Feuille_Active
Cancel = True
End Sub
Dernière édition: