Copier Coller cellules visible entre 2 classeurs ouvert

bibbip35

XLDnaute Occasionnel
Bonsoir à tous

J'essaye en vain de copier coller les cellules visbles entre 2 classeur ouverts en VBA
J'arrive bien a copier les valeurs visible mais je perds a chaque fois le format ....
J'ai essayé paste ; mais cela ne fonctionne pas ...

Est-ce que vous aurriez une idée ?

MERCI encore pour votre aide

Bibbip35

PDP_NAME = (Sheets("Paramêtres").Range("B1").Value) 'Fichier PDP ADEX

Nom_Fichier = Application.GetOpenFilename("SIMUL_APPRO_OF (*.XLSX), *.XLSX)")
If Nom_Fichier <> False Then
Set wbMyWb = Workbooks.Open(Nom_Fichier) 'Fichier Simul APPRO
wbMyWb.Activate

Call Défusionner

Dim DernLigne As Long
DernLigne = ActiveSheet.Range("D" & Rows.Count).End(xlUp).Row + 0

ActiveSheet.Range("$C$2:$Y$" & DernLigne).AutoFilter Field:=16, Criteria1:= _
"<>*Stock*", Operator:=xlAnd

ActiveSheet.Range("C3:W" & DernLigne).Copy

Windows(PDP_NAME).Activate
'Sheets("Liste_Manquants").Select
Sheets("Liste_Manquants").Range("A2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Bibipp,
Après avoir essayé, la simple commande copie valeur et format:
VB:
    Range("C281").Select
    Selection.Copy
    Windows("Insertion_ligne (1).xlsm").Activate
    Range("H20").Select
    ActiveSheet.Paste
sinon peut être :
Code:
ActiveSheet.Range("C3:W" & DernLigne).Copy
Windows(PDP_NAME).Activate
        With Sheets("Liste_Manquants").Range("A2")
            .PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlPasteFormats
            .Application.CutCopyMode = False
        End With