• Publicité

Problème code VBA pour excel

Dans ce forum, vous pouvez poser toutes vos questions concernant l'utilisation de logiciels de bureautique (Microsoft Office, Open Office, etc.)

Modérateurs: Sebastien, Stéphane, Christophe

Problème code VBA pour excel

Messagepar IMESYS » 10 Mar 2020 23:50

Messieurs, bonsoir.
Je suis nouveau sur le forum et j'ai un problème de code VBA que je viens de créer en regardant de ci et de ça.
Je suis novice en VBA;
J'ai réalisé un fichier Excel pour la gestion d'un autoentrepreneur . Dans ce fichier il y a entre autre une feuille facture et une feuille devis.
La feuille est automatisée pour l'impression de la facture et du devis, ainsi que pour le changement de date automatique et j'ai crée une macro pour changement des Numéros de Facture et Devis Tout celà fonctionne.
Ma fille qui monte son entreprise voulait aussi un enregistrement automatique en PDF des devis et factures dans un fichier séparé et personnalisé.
j'ai réussi tant bien que mal à récupérer un code VBA que j'ai adapté a mes besoins.
Mon Fichier est sur C:\Users\imesy\Documents
mes fichiers pour la sauvegarde sur C:\Users\imesy\Documents\Dossier Factures et idem pour Dossier Devis.
Mon problème est que la facture s'enregistre bien mais sur Documents et non sur Dossier Factures ou Dossier devis pour les devis
mon code VBA est :

Sub EnregistrementFactures()

'Déclaration des Variables
Dim NomDossier As String
Dim CheminDossier As String

On Error GoTo 1

'nom Dossier
NomDossier = Application.InputBox("Dossier Factures : ", "Dossier")
CheminDossier = "C:\Users\imesy\Documents\Dossier Factures\" & NomDossier & "\"

If NomDossier = "" Then Exit Sub

'Enregistrement au format PDF
nomcomplet = CheminDossier & NomDossier & Range("C8") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
nomcomplet, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
1

End Sub

Je n'arrive pas à trouver la solution pour que les factures aillent dans leur dossiers respectifs.
Quelqu'un pourrait il m'aider?

Merci d'avance
IMESYS
No0b
No0b
 
Messages: 1
Enregistré le: 10 Mar 2020 23:30

Retourner vers Forum d'entraide : Bureautique

 


  • Articles en relation
    Réponses
    Vus
    Dernier message
  • Excel : NB.SI
    par Loche » 11 Mar 2009 11:32
    3 Réponses
    4895 Vus
    Dernier message par Sebastien Voir le dernier message
    13 Mar 2009 23:42
  • Excel
    par lucetflo » 07 Aoû 2009 10:00
    1 Réponses
    2478 Vus
    Dernier message par Sebastien Voir le dernier message
    07 Aoû 2009 16:32
  • EXCEL
    par cmnisabelle » 31 Oct 2010 17:10
    1 Réponses
    2198 Vus
    Dernier message par Sebastien Voir le dernier message
    31 Oct 2010 22:13
  • excel
    par jojo » 24 Avr 2011 01:53
    2 Réponses
    2106 Vus
    Dernier message par jojo Voir le dernier message
    24 Avr 2011 16:50
  • excel
    par akhesa68 » 25 Oct 2011 14:41
    2 Réponses
    2022 Vus
    Dernier message par akhesa68 Voir le dernier message
    26 Oct 2011 08:40

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 7 invités

  • Publicité
cron