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
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