Autres Pour excel 2007 probléme code VBA

IMESYS · 11 Mars 2020

Bonsoir ,
j'ai créé un fichier de suivi et facturation plus devis pour ma fille qui démarre une activité d'autoentrepreneur.
J'ai presque réussi. Il me manque le bon fonctionnement du bouton de sauvegarde factures et Devis.
Les factures et devis s'enregistrent bien en PDF mais pas à l'endroit désiré qui est Dossier Factures ou Dossier Devis.
Ils s'enregistrent dans mes Documents.
J'ai tout essayé et rien n'y fait.
J'attends un peu d'aide.
Merci

voici mon code
Sub EnregistrementFactures()

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

On Error GoTo 1

'nom Dossier
NomDossier = Application.InputBox("Dossier Enregistrement : ", "Dossier")
CheminDossier = " C:\Users\imesy\Documents\Dossier Factures\" & 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

Staple1600 · 11 Mars 2020

Bonsoir le fil, IMESYS

IMESYS
Peut-être, non ?
nomcomplet = CheminDossier & Range("C8") & ".pdf"

Jacky67 · 11 Mars 2020

Bonsoir à tous

En plus de la réponse de JM

Elever l'espace devant le C:\
CheminDossier = " C:\Users\imes........

IMESYS · 11 Mars 2020

Staple1600 à dit:
Bonsoir le fil, IMESYS

IMESYS
Peut-être, non ?
nomcomplet = CheminDossier & Range("C8") & ".pdf"

IMESYS · 11 Mars 2020

J'ai essayé et il ne sort pas de sauvegarde de facture

Jacky67 à dit:
Bonsoir à tous

En plus de la réponse de JM

Elever l'espace devant le C:\
CheminDossier = " C:\Users\imes........

j'ai essayé celà ne change rienen enlevant l'espace, et encore moins avec la solution de staple1600

Staple1600 · 11 Mars 2020

Re

Rendons à César
Ce n'est pas mon code mais ton code
Par contre, ceci est mon code
Testes-le

VB:

Sub test()
NomDossier = InputBox("Dossier Enregistrement : ", "Dossier", "Saisir ici le nom du dossier")
CheminDossier = "C:\Users\imesy\Documents\Dossier Factures\" & NomDossier & "\"
If NomDossier = "" Then Exit Sub
nomcomplet = CheminDossier & Range("C8") & ".pdf"
MsgBox nomcomplet
End Sub

Et tire-en la conclusion idoine

IMESYS · 11 Mars 2020

Staple1600 à dit:
Sub

Merci de ta réponse.
ça fonctionne mais enregistrement toujours dans mes Documents et non dans Dossier Factures.
Je démoralise.

Staple1600 · 11 Mars 2020

Re

Le test était de savoir qu'est-ce qui s'affiche dans le MsgBox ?
Et est-ce que ce qui s'affiche est un chemin valide
(Est-ce les dossiers et sous-dossiers existent bien sur ton disque dur ?)

Jacky67 · 11 Mars 2020

IMESYS à dit:
Merci de ta réponse.
ça fonctionne mais enregistrement toujours dans mes Documents et non dans Dossier Factures.
Je démoralise.

RE...
Il Faut vérifier que
- C: soit le bon lecteur
-Users\imesy\Documents\Dossier Factures\ ==>ces dossiers doivent exister avec le bon orthographe.
-Que le dossier saisie par NomDossier=InputBox…… existe
-Que la feuille qui comporte Range("C8") soit la feuille active au lancement de la macro
Si tout cela est réuni, il n'y a aucune raison que cela ne fonctionne pas

Staple1600 · 12 Mars 2020

Re

Messages #8 et #9, même combat
Je plussoie le message#9

IMESYS · 12 Mars 2020

Jacky67 à dit:
RE...
Il Faut vérifier que
- C: soit le bon lecteur
-Users\imesy\Documents\Dossier Factures\ ==>ces dossiers doivent exister avec le bon orthographe.
-Que le dossier saisie par NomDossier=InputBox…… existe
-Que la feuille qui comporte Range("C8") soit la feuille active au lancement de la macro
Si tout cela est réuni, il n'y a aucune raison que cela ne fonctionne pas

Ce qui est incompréhensible c'est que en test, tout est bon. Avec ta ligne de codes j'ai rien qui s'enregistre alors que tous les renseignements de lecteur, dossier, C: , feuille active, sont bons.
J'ai même essayé avec mon code en installant mon fichier sur un dique dur externe et demandant à enregistrer sur celui-ci, j'ai le meme problème lea sauvegarde de facture va dans mes documents du C:. j'ai également essayé avec ton code paramétré et rien ne se sauvegarde.

IMESYS · 12 Mars 2020

Staple1600 à dit:
Re

Le test était de savoir qu'est-ce qui s'affiche dans le MsgBox ?
Et est-ce que ce qui s'affiche est un chemin valide
(Est-ce les dossiers et sous-dossiers existent bien sur ton disque dur ?)

oui tout est bon

Staple1600 · 12 Mars 2020

Re

IMESYS
Tu peux recopier ce qui s'affiche dans le MsgBox, stp ?

Jacky67 · 12 Mars 2020

IMESYS à dit:
Ce qui est incompréhensible c'est que en test, tout est bon. Avec ta ligne de codes j'ai rien qui s'enregistre alors que tous les renseignements de lecteur, dossier, C: , feuille active, sont bons.
J'ai même essayé avec mon code en installant mon fichier sur un dique dur externe et demandant à enregistrer sur celui-ci, j'ai le meme problème lea sauvegarde de facture va dans mes documents du C:. j'ai également essayé avec ton code paramétré et rien ne se sauvegarde.

RE.
En faisant un "enregistrement sous", tu arrives jusqu'à quel répertoire (dossier) ??
Peux-tu alors enregistrer ??

IMESYS · 12 Mars 2020

Staple1600 à dit:
Re

IMESYS
Tu peux recopier ce qui s'affiche dans le MsgBox, stp ?

VB:

MsgBox DossierFacture

Avec MsgBox NomDossier et celà reste identique rien ne se sauvegarde et le tout sans erreur

Autres Pour excel 2007 probléme code VBA

IMESYS

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

IMESYS

XLDnaute Nouveau

IMESYS

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

IMESYS

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

IMESYS

XLDnaute Nouveau

IMESYS

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

IMESYS

XLDnaute Nouveau

Discussions similaires