Bonjour,
Dans mon classeur j'ai deux feuilles une "saisie" et "PDF" dans la première j'ai toutes mes données que j'extrais dans "PDF" suivant certain critère.
Je voudrais rajouter a mon code la possibilité de voir si en colonne C de "saisie" si il y a un filtre et de l'appliquer dans la colonne C de PDF.
Ou plus simplement ne chercher que dans les cellules qui sont filtrées. Car pour l'instant malgrés un filtre sur la "saisie" cela extrait comme si je n'avais pas mis de filtre.
Dans mon classeur j'ai deux feuilles une "saisie" et "PDF" dans la première j'ai toutes mes données que j'extrais dans "PDF" suivant certain critère.
Je voudrais rajouter a mon code la possibilité de voir si en colonne C de "saisie" si il y a un filtre et de l'appliquer dans la colonne C de PDF.
Ou plus simplement ne chercher que dans les cellules qui sont filtrées. Car pour l'instant malgrés un filtre sur la "saisie" cela extrait comme si je n'avais pas mis de filtre.
VB:
Sub Extraction2()
Dim lig%, k%
With Feuil4 'ici Feuil1 est sheets("PDF")
.[A4:AS10000].Clear
'Range("A1:AQ3").Copy: .Cells(1, 1).PasteSpecial Paste:=xlPasteFormats
k = 5
For lig = 4 To Range("A1048576").End(3).Row
If Application.CountA(Range("A" & lig & ":F" & lig)) > 0 Then
If Cells(lig, 39) = "A meuler" Or Cells(lig, 43) = "RESTE LA FINITION" Or Cells(lig, 37) = "" Then
Range("A" & lig & ":AQ" & lig).Copy: .Cells(k, 1).PasteSpecial
k = k + 1
End If
End If
Next
.Columns("k:AJ").Hidden = True
chemin = ThisWorkbook.Path & "\Extractions\
'If Dir(ThisWorkbook.Path & "\Extractions\", vbDirectory) = "" Then
'MkDir (ThisWorkbook.Path & "\Extractions\")
'End If
'If Dir(chemin, vbDirectory) = "" Then
'MkDir (chemin)
'End If
Fichier = "SA à meuler sur" & " " & ActiveSheet.Name & " " & "au" & " " & Day(Date) & "-" & Month(Date) & "-" & Year(Date)
On Error Resume Next
Feuil4.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & Fichier & ".pdf"
If Err = 0 Then
MsgBox Fichier & ".Pdf a été créé"
Else
MsgBox "Impossible de créer le fichier PDF", vbExclamation, "ANNULATION"
End If
End With
End Sub