Discussion :

[Regales2015]

Bonsoir,

Quelqu'un peut il m'aider.

Je voudrais réaliser une macro à partir d'un fichier xls ou xlsx me permettant de d'archiver des lignes sur un onglet différent, mais devant s'incrémenter à la suite des précédents enregistrements afin de conserver l'historique.

Avec l'enregistreur de macro je n'arrive pas réaliser l'incrémentation et je galère en VBA.

Les lignes à archiver sont celles dont la valeur "ARCHIVE" est pointée en colonne AP de l'onglet "Général" (Cde honorée et date réponse client non vide). Elles sont déplacées (coupées) vers l'onglet "Archive". Les lignes vides de l'onglet "Général"(ex lignes coupées) devront être supprimées afin de ne pas avoir de pas de ligne vide.

Les lignes sont pointées dans l'onglet "Archive". Si j'enregistre 3 lignes, lors de mon prochain archivage, il devra se faire à partir de la 4 ème ligne, etc....

Onglet "Général" = onglet de travail

Onglet "Archive" = onglet d'archive des commandes honorées

J'espère ne pas avoir été trop brouillon dans mes explications.

Merci à toutes les bonnes volontés.

Jean Marc

[kiki29]

Salut, regarde PDFCreator Générer des PDFs sans doublons via l'incrémentation d'un N° de fichier, la fonction Function RenommerFichierPDF(sChemin As String, sNomFichier As String) As String devrait t'aider.

Sinon lire aussi ceci.

[Regales2015]

Bonsoir,

je viens de voir votre post et je vous en remercie.

Je n'avais pas pensé au format pdf, je vais essayer.

Je vous recontacte pour le résultat.

Bonne soirée.

[Regales2015]

je n'arrive pas à faire fonctionner le code transmis.

Pouvez vous m'indiquer svp les lignes à modifier selon mon environnement.

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Option Explicit
 
Sub ImpressionPdfCreator()
Dim JobPDF As Object
Dim sNomPDF As String
Dim sDossierPDF As String
Dim sNouveauNomPDF As String
Dim FSO As Object
 
    ' le nom du PDF sans Extension car PDFCreator l'ajoute ...
    sNomPDF = "Essai"
    sDossierPDF = ThisWorkbook.Path & "\" & "Essais N° ss Doublons"
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If Not FSO.FolderExists(sDossierPDF) Then FSO.CreateFolder (sDossierPDF)
    Set FSO = Nothing
 
    sNouveauNomPDF = RenommerFichierPDF(sDossierPDF, sNomPDF)
 
    Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")
 
    With JobPDF
        .cStart "/NoProcessingAtStartup"
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sDossierPDF
        .cOption("AutosaveFilename") = sNouveauNomPDF
 
        .cOption("AutosaveFormat") = 0        ' 0 PDF
        .cOption("AutosaveStartStandardProgram") = 0
        .cClearCache
    End With
 
    ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    JobPDF.cPrinterStop = False
 
    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
 
    JobPDF.cClose
    Set JobPDF = Nothing
End Sub
 
Private Function RenommerFichierPDF(sChemin As String, sNomFichier As String) As String
Dim sNouveauNom As String
Dim i As Long
Dim FSO As Object
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.fileExists(sChemin & "\" & sNomFichier & ".pdf") = True Then
        sNouveauNom = sNomFichier
        i = 0
        While FSO.fileExists(sChemin & "\" & sNouveauNom & ".pdf") = True
            i = i + 1
            sNouveauNom = sNomFichier & Chr(40) & Format(i, "000") & Chr(41)
           'sNouveauNom = sNomFichier & "_" & Format(i, "000")
        Wend
        sNomFichier = sNouveauNom
    End If
    Set FSO = Nothing
    RenommerFichierPDF = sNomFichier
End Function

[Menhir]

je n'arrive pas à faire fonctionner le code transmis.

Est-ce que tu as essayé de le comprendre ?

[Regales2015]

Bonsoir,

oui j'ai bien essayé de comprendre le code, mais je n'arrive pas à l'adapter à mon contexte. Le fait de créer un fichier à chaque enregistrement (archivage) n'est pas complètement adapté à mon besoin.

Je voulais faire une césure des lignes contenant "archivé" en colonne "Archivage" dans un onglet sur le même fichier. Les lignes seront coupées et collées à chaque fois que j'activerai la macro, sans écrasement des données précédentes.

Les lignes vides (coupées) du premier onglet sont supprimées afin de ne pas avoir de lignes vide.

Merci pour votre aide, mais même avec des efforts, je n'arrive pas à réaliser la macro, en particulier l'incrémentation sans écrasement.