Macro copie d'une feuille

[aranel]

Bonjour,

J'utilise la macro suivante afin de dupliquer un formulaire saisi.
Je souhaite ajouter une fonction qui me permette d'insérer automatique en A6 le texte "Exemplaire client".
Est ce possible ?

Sub copier()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
    Sheets("commande").Copy After:=Sheets(i)
    ActiveSheet.Name = "Exemplaire client " & i
Next i
End Sub

Je souhaite également envoyer cette feuille + une autre appelée "conditions" par mail. Existe-t-il une macro capable d'envoyer ces deux feuilles en pj dans un mail outlook ?
Merci

 

[phlaurent55]

Re : Macro copie d'une feuille

Bonsoir aranel

il te faut ajouter ce qui est en rouge dans le code ci-dessous

Sub copier()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
Sheets("commande").Copy After:=Sheets(i)
ActiveSheet.Name = "Exemplaire client " & i
Range("A6").value="Exemplaire Client"
Next i
End Sub

 

[Compte Supprimé 979]

Re : Macro copie d'une feuille

Bonsoir Aranel,

Je souhaite ajouter une fonction qui me permette d'insérer automatique en A6 le texte "Exemplaire client".

Sub copier()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
    Sheets("commande").Copy After:=Sheets(i)
    ActiveSheet.Name = "Exemplaire client " & i
   [COLOR=blue][B]ActiveSheet.Range("A6").Value = "Exemplaire Client"[/B][/COLOR]
Next i
End Sub

Je souhaite également envoyer cette feuille + une autre appelée "conditions" par mail. Existe-t-il une macro capable d'envoyer ces deux feuilles en pj dans un mail outlook ?

Oui, ce sujet a été abordé de nombreuses fois sur le forum
Merci de faire une recherche avancée

A+

Edit : oups collision, bonsoir Phlaurent55