Autres Pour excel 2007 probléme code VBA

[IMESYS]

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]

Bonsoir le fil, IMESYS

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

 

[Jacky67]

Bonsoir à tous

En plus de la réponse de JM 🙂

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

 

[IMESYS]

Bonsoir le fil, IMESYS

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

 

[IMESYS]

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

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]

Re

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

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]

Sub

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

 

[Staple1600]

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]

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]

Re

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

 

[IMESYS]

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]

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]

Re

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

 

[Jacky67]

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]

Re

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

MsgBox DossierFacture

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