Comment enregistré 2 feuille d'un classeur existant
Bonjour,
Actuellement je dispose d'un bout de programme me permettant d'enregistrer une feuille excel d'un classeur dans un autre classeur :
Sub enregsous()
Dim nom As String, chemin As String
Sheets("devis").Copy
chemin = ThisWorkbook.Path & "\"
nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Range("E1").Text & "-" & Range("I1").Text & ".xls"
With ActiveWorkbook
MsgBox "Votre fichier a été sauvegardé et porte la référence : " & nom
.SaveAs Filename:=chemin & nom
.Close
End With
End Sub
Maintenant j'aimerais en enregistré une autre en plus de celle nommé "devis" toujours dans le même nouveau classeur.
J'aimerais également incrémenter un numéro au nom du nouveau classeur pour qu'il s'enregistre également en cas de doublon. par exemple j'enregistre une 1er fois, le nom est 11/06/10 Martin pierre. si j'enregistre une 2e fois il faudrait que j'obtienne 11/06/10 Martin pierre 2.
Merci d'avance pour vos réponses.
Bonjour,
Code que je connais cela ...
1. enregistrer une autre en plus de celle nommé "devis" toujours dans le même nouveau classeur
remplace la ligne
Sheets("devis").Copypar
Sheets(Array("Devis", "tata")).CopyAvec Tata le nom de ta deuxième feuille
2. incrémenter un numéro au nom du nouveau classeur
Là c'est nettement moins évident à faire car il faut contrôler s'il le classeur existe dans ton répertoire et si oui connaitre le numéro de ce classeur de manière à pourvoir l'incrémenter correctement.
Amicalement