Discussion :

[Elvt87]

Bonjour
Je souhaite pouvoir exporter une feuille excel (la page excel est un modèle) au format PDF vers un répertoire défini. Il s'agit d'un formulaire de commande de matériel, les utilisateurs rentrent leurs besoins et doivent produire un fichier PDF.
Mon souci c'est de produire un pdf sans écraser ceux existant. Je souhaite que le PDF soit automatiquement renommé par incrémentation. Si par exemple j'ai le pdf déjà existant "commande 1" je veux que le prochain fichier s'appelle "fichier 2" etc etc.

j'ai ça comme commande mais il bloque à la ligne i=i+1

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
' Enregistrer la page  en PDF vers espace partagé
 
Sub EnregistrerPageEnPDF()
Dim lnk As String, i As Byte
 
lnk = Config.lien_espace_co & Range("f2")
 
  If lnk <> "" Then
 
Do
    lnk = Config.lien_espace_co & Range("f2") & "_" & i + 1
 
i = i + 1
 
Loop While lnk <> ""
        ThisWorkbook.SaveAs Range("f2") & "_" & i & ".pdf"
  Else
        ThisWorkbook.SaveAs Range("f2") & ".pdf"
 
MsgBox "Page PDF générée dans Espace partagé"
 
End If
End Sub

Pourriez-vous m'aider ?
Par avance merci!

[patricktoulon]

Bonjour
fait simplement un test (dir) avant c'est tout si c'est rien tu sauve si le chemin ressort tu rechange i et reteste jusqu'a obtention d'un chemin qui n'existe pas deja

je te l'accorde c'est un peut compliqué avec ta boucle i avec condition sur la range je suis par sur que cela soit la bonne methode en tout cas ton code comme tel n'est pas clair

[MarcelG]

Bonjour Elvt, et bienvenu sur ce Forum,

Le plus rigoureux serait de boucler sur les fichiers Pdf du répertoire.

Voici un exemple issu de mes applicatifs, facilement adaptable.

La variable nb est de portée Module

Code :

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

1
2
3
4
5
nomword = Chemin & "\" & nmw
 
Call dénombre_word
 
nomword = nomword & IIf(nb = 0, "", "_" & nb + 1) & ".doc"

(Aujourd'hui, je mettrais cette procédure en fonction retournant une variable Byte nb)

La variable nmw, de portée module, correspond au nom du fichier.
Celle-ci peut aussi être intégrée à la variable Nomfich

Code :

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

Nomfich = dir(Chemin & "\*nmw*.doc")

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
Public Sub dénombre_word()
Dim fs, rep As Variant, NewRep As String, Nomfich As String
Dim lister As Integer
nb = 0
'Debug.Print chemin
Set fs = CreateObject("Scripting.FileSystemObject")
lister = fs.GetFolder(Chemin).Files.Count
Nomfich = dir(Chemin & "\*.doc")
Do While Nomfich <> ""
        If InStr(Nomfich, nmw) > 0 Then
                nb = nb + 1
                'Debug.Print Nomfich
        End If
        Nomfich = dir()
Loop
 
End Sub

[Elvt87]

Bonjour patricktoulon
Le programme est issu d'un copié collé depuis un forum, je ne maîtrise pas assez ce volet. Peux-tu m'indiquer comment utiliser la fonction Dir sachant que je ne souhaite pas devoir changer manuellement le nom du pdf créé, juste qu'il prenne le nom d'une cellule et que soit rajouté automatiquement l'indice à la suite pour pas supprimer les pdf déjà exista,nt


Bonjour MarcelG
Merci pour le message, je ne suis pas au niveau pour entièrement le décrypter :-)

[MarcelG]

Salut Elvt,

Patrick, que je salue, et moi avons évoqué le même processus.

Code :

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

je ne suis pas au niveau pour entièrement le décrypter

En consultant le code, tu vois sans doute ce à quoi il est fait allusion, non?
Pour la gestion des fichiers, tu peux consulter cet espace documentaire précieux (comme toute la FAQ)

[Elvt87]

Disons que je bidouille plus que je programme, de ce fait je ne comprends pas vraiment ce que vous indiquez. Je cherche juste à savoir s'il est possible de faire simple, pour que le programme enregistre mon pdf sans écraser un pdf déja existant...

[MarcelG]

Disons que je bidouille plus que je programme

Sur ce forum, nous essayons, moi le premier, de programmer
Dans ce cas, il faut commencer par acquérir les bases.
Pour ce faire, consulte chaque cible des liens que j'indique dans cette discussion au post #20.

Cela dit, une autre solution serait de suffixer le nom d'enregistrement par la date, voire l'heure,

Exemple (trivial)

Code :

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

Filename:= "lenom" & "_" & Format(Date, "d mmm yyyy")) & " à " & Format(Now, "hh"" h ""mm"" m ""ss")

Ainsi, le nom de chaque fichier aura les mêmes caractères au départ, mais seront suffixés par la date et l'heure d'enregistrement

Exemple

legrandmercatog_5 jan 2018 à 10 h 5 m 30.pdf