MACRO copie feuille + Nom de cellule + etc...

[caseras]

Bonjour,

je suis nouveau et j'aurais besoin d'un coup de mains, svp.


J'ai fait une macro qui recopie une feuille type et se renomme à partir de 3 cellules, ce qui m'est nécessaire.

J'ai trois soucis avec la macro que j'ai fait :

1. La copie de ma feuille se fait à la fin, et non juste après ma feuille type
2. Si j'envoie deux fois la même feuille à copier, la deuxième copie plante au lieu de mettre "NOM" (1) alors que je dois pouvoir la copier plusieurs fois
3. Je reste sur la feuille copiée alors que j'aimerais plutôt me retrouver sur la feuille type en A1

(Dans ma macro il y a une ligne pour supprimer les objets que je veux conserver)

Vos idées seront la bienvenues, merci !

 

[phlaurent55]

Re : MACRO copie feuille + Nom de cellule + etc...

Bonjour caseras, et bienvenue sur le forum

essaie ceci:

Sub Archiver()
Dim nomE As String
Dim plage As Range
Dim dj As String
 
With Sheets("Dooo")

nomE = .[A1]
nomD = .[B1]
Set plage = Union(.[A1], .[B1], .[C1])
dj = Format(.[C1], "dd-mm")

End With

Sheets("Dooo").Copy after:=Sheets("Dooo")
Sheets(2).Name = nomE & "  " & dj & " à " & nomD & "  (" & Sheets.Count - 1 & ")"

With ActiveSheet
ActiveSheet.DrawingObjects.Delete
End With

Sheets("Dooo").Select
Range("A1").Select
End Sub

à+
Philippe

 

[caseras]

Re : MACRO copie feuille + Nom de cellule + etc...

Bonsoir Philippe,

Nickel, exactement ce que je voulais !

Et puis quelle rapidité ! je croyais naïvement que ce problème prendrait beaucoup plus de temps !

En attendant un grand MERCI !