Discussion :

[greg06500]

Bonjour à tous,

J'ai un prog de facturation, quand j'édite une facture celle ci s'imprime sur l'imprimante et s'enregistre aussi dans un dossier en format PDF.
Dans un combo j'ai mis les n° de facture pour pouvoir sortir des duplicata au besoin.
Ma question est comment puis je faire pour réussir à les récuperer et les ouvrir avec PDF.

Merci pour votre aide

GREG

[cavo789]

Comment se nomme ton fichier PDF ? Il me semble que le meilleur choix serait 093839575.pdf (soit le numéro de la facture suivi de l'extension .pdf).

[greg06500]

Salut

En fait dans les option de PDF CREATOR j'ai mis en enregistrment auto avec Date et heure.

Merci
@+

[LeForestier]

quand le fichier est enrégistré mettre le Chemin + Nom du fichier dans un tableau qui est lu en même temps que les données du combo ?

[kiki29]

A adapter
dans un Module

Code :

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

1
2
3
4
5
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

dans ThisWorkbook, à choisir

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub ShellExecuteOuvrir()
Dim fich as String
    fich = "C:\Transfert\Essai.pdf"
    ShellExecute 0, "open", fich, "", "", 0
End Sub
 
Sub ShellOuvrir
       Shell """C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe"" ""C:\Transfert\Essai.pdf""", vbMaximizedFocus
End Sub

[greg06500]

Salut a tous

En fait je voudrais qu'il s'enregistre automatiquement avec le n° de facture mais je n'y arrive pas(au fait je débute) sans que l'utilisateur n'est a choisir le nom du fichier ou quoi que ce soit, mais qu'ensuite il puisse sortir un duplicata donc récuperer le n° du combo et aller chercher la facture correspondante.

Merci

GREG

[greg06500]

re bonjour

j'ai essayé ça mes ca ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Enregistrement()
 
Dim Chemin$, Fichier$, Numfact$, Jour$, F$, N$
Chemin = "C:\FACTURE\"
Jour = Format(Now(), "ddmmyyyy")
Numfact = Range("E2")
 
N = Jour & "_" & Numfact
F = Application.GetSaveAsFilename(N, "fichier pdf,*.pdf")
Application.ActivePrinter = "PDFCreator sur Ne00:"
SendKeys N & "{ENTER}", False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne00:"
End Sub

@+ et merci d'avance