Bonjour,

Dans un classeur A j'ai une macro qui me permet de copier une feuille et de sauvegarder le fichier avec un nom concaténé par 3 valeurs de cellules.
Ca fonctionne parfaitement.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Extraction()
 
Dim wkDest As Workbook
 
Set wkDest = Application.Workbooks.Add
 
ThisWorkbook.Sheets("Feuil1").Cells.Copy wkDest.Sheets("Feuil1").Range("A1:E100")
 
wkDest.SaveAs ThisWorkbook.Path & "\" & Join(Application.Transpose(Feuil2.[B1:B3].Value), "_") & ".xls"
 
End Sub
Maintenant j'aimerais faire encore mieux en copiant cette feuille dans un fichier modèle que j'aurais créé au préalable (seule l'en-tête sera remplie).
La difficulté est d'ouvrir un fichier modèle différent en fonction de la valeur d'une cellule de mon classeur A (qui sera le nom d'un client avec un logo différent en en-tête).

Pour résumé, lorsque le nom d'un client sera dans une cellule du classeur A, ça ouvrira le fichier excel du client (déjà configuré avec le logo en en-tête) et ça conservera la fonction SAVEAS de ma macro existante.

Merci pour votre aide car là ça me dépasse largement, je ne sais même pas si c'est réalisable !!!!

Je pense qu'il y a une combinaison à faire avec ce code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
valeur = Range("B1").Value
Workbooks.Open Filename:="\\...chemin...\" & valeur & ".xls"
Mais comment l'insérer dans ma macro existante?