Bonjour a tous,
ma nouvelle topic est en lien avec celle la https://www.developpez.net/forums/d1...llule-cellule/, j'ai plus ou moins réussis a faire ce que je voulais.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
i = 6
        While Cells(i, 13) <> ""
            Cells(i, 13).Select
            Selection.Copy
            Range("C5").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            'ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True,
            'IgnorePrintAreas:=False
            ActiveWorkbook.SaveAs Filename:= _
            "C:\TEST" & "\" & Format(Date, "yyyymmdd") & "\" & Format(Date, "yyyymmdd") & "." & Range("C5").Text & ".xlsm", FileFormat _
            :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            i = i + 1
        Wend
J'ai ceci comme code, qui doit prendre toutes les cellules non vide a partir de la ligne 6 de la 13 eme colonne, ça fait bien son travail sauf quand ça arrive à une cellule vide, il enregistre quand même avec la cellule vide mais après s’arrête, est ce qu'il me manque quelque chose?

Cordialement ThisioOo