Bonjour à tous,
Un problème sur lequel je me casse la tête depuis de nombreuses heures. Si certains d'entre vous ont une idée sur le sujet je suis preneur
J'ai créer un petit programme qui à pour but créer autant de classeur que ligne afin de pouvoir le diffuser de manière individuelle.
Je fais en sorte de pouvoir choisir l'onglet du classeur en question (Afin de me positionner sur le bon mois) et je souhaite tous simplement les enregistrer dans le même répertoire que le fichier source.
J'ai pris le parti de copier a chaque fois la feuille complète dans un classeur en la renommant du nom du commercial à qui je vais diffuser le classeur, puis je souhaitais expurger le fichier des lignes qui ne correspondaient pas au commercial en question. seul problème cela marche bien pour le premier mais après la boucle pour supprimer ne marche pas ....
J'ai beau essayé dans tous les sens rien.
J'ai fais un fichier exemple.
Merci par avance pour votre aide !
Un problème sur lequel je me casse la tête depuis de nombreuses heures. Si certains d'entre vous ont une idée sur le sujet je suis preneur
J'ai créer un petit programme qui à pour but créer autant de classeur que ligne afin de pouvoir le diffuser de manière individuelle.
Je fais en sorte de pouvoir choisir l'onglet du classeur en question (Afin de me positionner sur le bon mois) et je souhaite tous simplement les enregistrer dans le même répertoire que le fichier source.
J'ai pris le parti de copier a chaque fois la feuille complète dans un classeur en la renommant du nom du commercial à qui je vais diffuser le classeur, puis je souhaitais expurger le fichier des lignes qui ne correspondaient pas au commercial en question. seul problème cela marche bien pour le premier mais après la boucle pour supprimer ne marche pas ....
J'ai beau essayé dans tous les sens rien.
J'ai fais un fichier exemple.
Merci par avance pour votre aide !
VB:
Sub suppression()
Dim mav As Variant
Dim Chemin As String
Dim i As Integer
Dim j As Integer
Dim b As Variant
Dim c As Variant
Chemin = ActiveWorkbook.Path & Application.PathSeparator
mav = InputBox("rentrer nom feuile", "nom feuile")
With ThisWorkbook.Sheets(mav)
For i = .Range("B" & .Rows.Count).End(xlUp).Row To 6 Step -1
b = .Range("C" & i).Value
c = .Range("e" & i).Value
Sheets(mav).Select
Sheets(mav).Copy
ActiveWorkbook.SaveAs Filename:=Chemin & b & " " & c & ".xlsx"
For j = 6 To 50
If Cells(j, 3).Value <> b Then
Cells(j, 3).entireraw.Delete
End If
Next j
Next i
End With
End Sub