Discussion :

[IMESYS]

Je suis débutant dans VBA sur Excel 2007 et désire pouvoir sur un fichier excel pouvoir enregistrer mes factures et devis en PDF. je sais créer un bouton et y affecter un code de macro, mais j'ai des problèmes pour créer un code VBA qui fonctionne.
J'ai essayé mais mes factures ne s'enregistrent pas au bon endroit.
Mon numéro de facture est en case"C8" et la bonne facture est bien prise en compte.
Mon dossier de destination est "C:\imesy\Documents\Dossier Factures"
Ma macro se nomme "EnregistrementFactures"

Voici ma macro:

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
Sub EnregistrementDevis()
 
'Déclaration des Variables
Dim NomDossier As String
Dim CheminDossier As String
 
 On Error GoTo 1
 
'nom Dossier
NomDossier = Application.InputBox("DossierDevis:", "Dossier")
 
CheminDossier = "C:\Users\imesy\Documents\Dossier Devis " & NomDossier & "\"
 
If NomDossier = "" Then Exit Sub
 
'Enregistrement au format PDF
nomcomplet = NomDossier & Range("C8") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
nomcomplet, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
1
 
End Sub

Quelqu'un est il capable de me donner la solution pour que ma facture s'enregistre au bon endroit.
Merci d'avance
IMESYS

[Philippe Tulliez]

Bonjour,
En ligne 12 du code publié, il manque un backslash entre la constante "C:\Users\imesy\Documents\Dossier Devis " et la variable NomDossier sauf évidemment si l'utilisateur encode lui-même ce caractère.
Il y a également un problème de caractères espacés qui suivent le texte Dossier Devis. Je doute en effet que le nom du dossier soit suivi de ces caractères

[IMESYS]

Merci pour ta réponse. j'ai mis le backslsh comme tu l'a indiqué entre Dossier Devis et nom dossier de cette façon.

Code :

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

"C:\Users\imesy\Documents\Dossier Devis\" & NomDossier & "\"

Quant au reste je ne vois pas.
Je suis vraiment débutant en VBA.
Pour l'instant tout ce que j'ai fait c'est reprendre plus ou moins le travail des autres.
J'ai commandé un livre pour me former, et on verra bien.
Dis moi quoi faire pour résoudre mon code.
Merci

Au fait, j'ai essayé comme ça et toujours le même problème la feuille va dans mes documents et non dans Dossier Factures

[Philippe Tulliez]

Bonjour,

Au fait, j'ai essayé comme ça et toujours le même problème la feuille va dans mes documents et non dans Dossier Factures

Je n'avais pas été voir plus loin et effectivement il est logique que le document soit sauvé dans le répertoire par défaut puisqu'en ligne 17 du code publié tu ne lui donnes que le nom du dossier et pas le chemin complet soit la variable NomDossier et pas CheminDossier

[IMESYS]

J'ai changé par CheminDossier c'est la même chose. la facture va toujours dans dossier.
Merci tout de même.
Je désespère. Cela fait une semaine que je galère.

[Philippe Tulliez]

Bonjour,
Il n'y a aucune raison que cela ne fonctionne pas, le programme n'a pas d'état d'âme et fait exactement ce qu'on lui demande.
Il serait intéressant de publier à nouveau le code avec les modifications faites