Bnjour à tous !
Toujours dans ma recherche de Macro-isation de mon mode de travail, je voudrais améliorer une macro:
Cette macro duplique un fichier excel en fonction d'une liste et lui donne le nom que je souhaite : (date + nom sur liste)
Avant d'enregistrer, je voudrais faire une autre modificication dans le fichier Excel : copier le nom sur la liste dans une cellule dans un autre onglet.
Je voulais faire ça :
mais cela ne fonctionne pas.
Merci de votre aide
Toujours dans ma recherche de Macro-isation de mon mode de travail, je voudrais améliorer une macro:
Cette macro duplique un fichier excel en fonction d'une liste et lui donne le nom que je souhaite : (date + nom sur liste)
PHP:
Sub duplicata()
derlig = Range("a65536").End(xlUp).Row
For i = 1 To derlig
chemin = ActiveWorkbook.Path
If Right(chemin, 1) <> "\" Then chemin = chemin & "\"
nomfich = ("31-03-09") & "_" & Cells(i, 1).Value & ".xls"
ActiveWorkbook.SaveAs Filename:=chemin & nomfich
Next
End Sub
Avant d'enregistrer, je voudrais faire une autre modificication dans le fichier Excel : copier le nom sur la liste dans une cellule dans un autre onglet.
Je voulais faire ça :
PHP:
Range(Cells(i,1)).select
selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("autres").Select
selection.paste
mais cela ne fonctionne pas.
Merci de votre aide