anthooooony
XLDnaute Occasionnel
Bonjour,
J'ai un fichier avec 78 onglets que j'aimerais dispatcher vers des feuilles choisie. J'ai un code, qui est en bas de page qui créé autant de fichier que d'onglet. Lorsque j'ai beaucoup d'onglet j'ai beaucoup de fichier dans beaucoup de dossier, pour tous les regrouper c'est assez long.
Est-il possible de lui dire comme dans l'exemple ci dessous.Que l'agence 1 s'enregistre dans un fichier spécifique? en créant les relations au préalable dans les lignes de code.
Merci d'avance à tous !
Bonne journée dans ce froid de Sibérie !
Onglet généré Fichier vers lequel il pourrait pointer
Agence1a region nord
Agence1b region nord
Agence1c region nord
Agence2a region est
Agence2b region est
Agence2c region est
Agence3a region ouest
Agence3b region ouest
Agence3c region ouest
Agence4a region sud
Agence4b region sud
Agence4c region sud
Agence5a region idft
Agence5b region idft
Agence5c region idft
etc etc
J'ai un fichier avec 78 onglets que j'aimerais dispatcher vers des feuilles choisie. J'ai un code, qui est en bas de page qui créé autant de fichier que d'onglet. Lorsque j'ai beaucoup d'onglet j'ai beaucoup de fichier dans beaucoup de dossier, pour tous les regrouper c'est assez long.
Est-il possible de lui dire comme dans l'exemple ci dessous.Que l'agence 1 s'enregistre dans un fichier spécifique? en créant les relations au préalable dans les lignes de code.
Merci d'avance à tous !
Bonne journée dans ce froid de Sibérie !
Onglet généré Fichier vers lequel il pourrait pointer
Agence1a region nord
Agence1b region nord
Agence1c region nord
Agence2a region est
Agence2b region est
Agence2c region est
Agence3a region ouest
Agence3b region ouest
Agence3c region ouest
Agence4a region sud
Agence4b region sud
Agence4c region sud
Agence5a region idft
Agence5b region idft
Agence5c region idft
etc etc
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 16/12/2011 par fl170417
'
'
Dim vnom, vdir As String
For Each Sheet In Sheets
Sheet.Select
vnom = ActiveSheet.Name
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "N:\"
'choix du repertoire en fonction du nom agence
Select Case vnom
Case "Agence1": vdir = "Est\"
Vmail = "ro@co.com"
Case "Agence2": vdir = "Nord\"
Vmail = "ro@co.com"
Case "Agence3": vdir = "Nord\"
Vmail = "anthony@co.com"
Case "Agence4": vdir = "Est\"
Vmail = "anthony@co.com"
Case "Agence5": vdir = "Est\"
Vmail = "anthony@co.com"
End Select
ActiveWorkbook.SaveAs Filename:="N:\" & vdir & vnom & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveSheet.Name = vnom
'envoyer ton mail avec le fichier en attaché et vmail (déclarée en "public vmail as string" )comme adresse mail
'Call EnvoiMail 'ta macro d'envoi de mail
ActiveWindow.Close savechanges = True
Next
End Sub