XL 2016 recopie données sous condition

[pika83]

Bonjour, je viens vers vous car je cherche le moyen de copier uniquement le format des cellule d'une feuille d'un classeur annexe sur une feuille pré-conditionnée. Exemple si celle ci affiche une condition alors recopie les données de la feuille demandée.
d'avance merci pour votre aide.

 

[Staple1600]

Bonjour le fil

pika83
Pas sûr d'avoir tout compris
Ci-dessous une macro qui recopie le format des fichiers Base Origine vers Base.xlsx selon la valeur en A1
NB: Pour tester il faut que tous les classeurs soient dans le même dossier.
Mettre le code VBA dans Base.xlsx et l'enregistrer en Base.xlsm
(pour pouvoir conserver les macros)

Sub RecopierFormat()
Dim Chemin$, wkS As Workbook
Chemin = ThisWorkbook.Path & "\"
Fichier = "Base Origine" & Cells(1) * 1 & "V2.xlsx"
Application.ScreenUpdating = False
Set wkS = Workbooks.Open(Filename:=Chemin & Fichier)
wkS.Sheets(1).Range("E5:BA11").Copy
ThisWorkbook.Sheets(1).Range("E5").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
wkS.Close False
End Sub

Au début de ton message, tu parles de recopier uniquement les formats puis ensuite les données
Quelques éclaircissements seraient les bienvenus
Il faut recopier de Base vers Base Origine ou de Base Origine vers Base ?
Et il faut recopier le format seul ou les valeurs seules et le format (donc sans les formules) ?

 

[pika83]

Bonjour staple1600, merci pour ton aide, effectivement je me suis mal exprimé.
En fait je veux uniquement recopié que les valeurs de "Base Origine" vers "Base" suivant la valeur mise dans la cellule A1.

 

[Staple1600]

Re

Donc il suffit de modifier ma macro en ce sens en remplaçant
Paste:=xlPasteFormats
par
Paste:=xlValues

 

[pika83]

OK merci, je vais tester.