Sarunoben
XLDnaute Nouveau
Bonjour à tous,
je bosse sur des petits projets et j'ai besoin de faire une exportation de données vers plusieurs individus à partir d'un fichier source.
Dans une feuille2, il y aurait les données brutes
-colonne A: le nom des individus
-colonne b: un fruit
-colonne c: un légume.
Sur la feuille 1: les données mises en forme, et, un menu déroulant qui permet de changer l'individu.
Je veux demander à excel de m'exporter la feuille 2 selon un premier individu, puis, selon le second de la liste et ainsi de suite.
J'ai déjà une macro que j'utilise (je bidouille en m'inspirant de choses que je lis sur le forum) et exporter une feuille x, y ou z vers des classeurs x, y ou z j'y arrive mais pas à partir d'un menu déroulant
Quelqu'un peut il m'aider?
Merci d'avance.
En pièce jointe un exemple de ce que j'ai en tête, ci dessous, la macro que j'utilise pour l'autre projet
Sub Cc1()
'
Dim nom As String
Dim prénom As String
Dim NumSem As String
Sheets(Array("feuille1")).Copy
With ActiveWorkbook
nom = [A1]
NumSem = [B43]
.SaveAs "P:\blabla\" & "Dashboard " & nom & " " & NumSem & ".xls", FileFormat:=56
.ReadOnlyRecommended = True
.Save
.Close
End With
End Sub
je bosse sur des petits projets et j'ai besoin de faire une exportation de données vers plusieurs individus à partir d'un fichier source.
Dans une feuille2, il y aurait les données brutes
-colonne A: le nom des individus
-colonne b: un fruit
-colonne c: un légume.
Sur la feuille 1: les données mises en forme, et, un menu déroulant qui permet de changer l'individu.
Je veux demander à excel de m'exporter la feuille 2 selon un premier individu, puis, selon le second de la liste et ainsi de suite.
J'ai déjà une macro que j'utilise (je bidouille en m'inspirant de choses que je lis sur le forum) et exporter une feuille x, y ou z vers des classeurs x, y ou z j'y arrive mais pas à partir d'un menu déroulant
Quelqu'un peut il m'aider?
Merci d'avance.
En pièce jointe un exemple de ce que j'ai en tête, ci dessous, la macro que j'utilise pour l'autre projet
Sub Cc1()
'
Dim nom As String
Dim prénom As String
Dim NumSem As String
Sheets(Array("feuille1")).Copy
With ActiveWorkbook
nom = [A1]
NumSem = [B43]
.SaveAs "P:\blabla\" & "Dashboard " & nom & " " & NumSem & ".xls", FileFormat:=56
.ReadOnlyRecommended = True
.Save
.Close
End With
End Sub