Enregistrer une plage de cellules dans un autre fichier

Le 01/06/2019 à 16:22

Bonjour,

Je souhaiterais enregistrer une plage définie d’un tableau via un bouton sur un répertoire prédéfini. Ex. Enregistrer par clic la plage (A1 :L34) dans ma clé USB . Mais j'aimerais qu'à chaque fois qu'on cliquera sur le bouton alors la plage s'enregistrera dans un nouveau fichier excel avec comme nom: classeur_(suivi de la date en format anglais du jour de l'enregistrement).

Merci.

Le probleme est que j'ai besoin de l'enregistre dans une clé usd le nom du disque peut changer F: ; G: ...

Voici ce que j'ai trouve, comment faire pour qu'il se enregistre dans le dossio de ma clé usd ( le fichier initial est dans la clé usb )

Sub ColleEtSauve()

Dim MaPlage As Range

LaDate = Year(Date) & "-" & Month(Date) & "-" & Day(Date) 'Variable qui prend la date du jour format aaaa-m-j

Set MaPlage = Range("A1:L34") 'Applique la plage voulue à la variable, changer le range pour changer la plage

MaPlage.Copy 'Fait la copie de la zone voulue

Workbooks.Add 'Ouvre un nouveau Fichier XL

ActiveSheet.Paste 'Colle la sélection à copier sur la feuille active, donc la nouvelle

'Fait la sauvegarde, la deuxième ligne en retrait reprend la variable avec la date

ActiveWorkbook.SaveAs Filename:= _

"C:\Documents and Settings\Administrateur\Mes documents\" _

& LaDate & ".xls", _

FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

Merci d'avance pour votre aide.

Le 01/06/2019 à 16:24