VBA - Copier uniquement la sélection d'un FILTRE
Bonjour,
Je cherche à sélectionner uniquement le résultat d'un filtre par une macro :
Sub CREERLESFICHIERS_3()
Dim f As Worksheet, i&, nomf$
Set f = Sheets("FOURNISSEURS")
For j = 1 To Range("B" & Rows.Count).End(xlUp).Row
nomf = Range("B" & j)
codef = Range("A" & j)
Selection.AutoFilter
Sheets("FICHIER_FORMATE").Range("$A:$S").AutoFilter Field:=12, Criteria1:=nomf
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & nomf & "_FOURNISSEUR_SELECTION_" & codef & ".xlsx"
.Close
End With
Next j
End Sub
Ma fonction plante au niveau de cette ligne : " .SaveAs ThisWorkbook.Path & "\" & nomf & "_FOURNISSEUR_SELECTION_" & codef & ".xlsx""
Alors que si j’exécute la fonction ci-après, il n'y a pas d'erreur mais du coup je ne récupère pas uniquement la sélection de mon filtre.
Sub CREERLESFICHIERS_3()
Dim f As Worksheet, i&, nomf$
Set f = Sheets("FOURNISSEURS")
For j = 1 To Range("B" & Rows.Count).End(xlUp).Row
nomf = Range("B" & j)
codef = Range("A" & j)
Selection.AutoFilter
Sheets("FICHIER_FORMATE").Range("$A:$S").AutoFilter Field:=12, Criteria1:=nomf
Sheets("FICHIER_FORMATE").Copy
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & nomf & "_FOURNISSEUR_SELECTION_" & codef & ".xlsx"
.Close
End With
Next j
End Sub
Je n'arrive pas à voir où est mon erreur. Pouvez-vous m'aider svp ?
Bonjour et bienvenue
https://forum.excel-pratique.com/viewtopic.php?f=2&t=13 ... si tu pouvais remplir l'alinéa 6 ?