Pb Macro VBA/Excel

Fermé

Bernard - 15 avril 2019 à 11:51
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 15 avril 2019 à 18:39

Bonjour,
j'aimerais créer un programme VBA assez simple, mais une erreur lors du lancement du programme apparaît ("Erreur d'exécution '5' : Argument ou appel de procédure incorrect"). Pourriez-vous m'aider ?

Sub Enregistrementfactures()
'Je declare mes variables
Dim Nomdossier As String
Dim Chemin As String

'Je nomme mon dossier et donne le chemin de sauvegarde
Nomdossier = Application.InputBox("COMPTABILITE AD44", "Annee ?")
Chemin = "F:\20190401_ORGA_RESTOS\COMPTABILITE AD44\2019\" & Nomdossier & "\"

If Nomdossier = "" Then Exit Sub

ActiveSheet.ExportAsFixedFormat Type:=xltypexlsx, Filename:= _
Chemin & "Facturenumero_" & Range("C17").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

End Sub

Merci d'avance

Configuration: Windows / Edge 17.17134

A voir également:

Pb Macro VBA/Excel
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide
Si et excel - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 avril 2019 à 11:56

Bonjour,

il faut créer ton dossier!

https://excel-malin.com/codes-sources-vba/creation-dossiers-et-sous-dossiers-en-vba/

Babs44300 Messages postés 7 Date d'inscription lundi 15 avril 2019 Statut Membre Dernière intervention 15 avril 2019
15 avril 2019 à 12:00

Merci de ta réponse rapide mais pas assez fort en VBA pour savoir comment faire, puis je avoir une assistance plus précise
Merci d'avance

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 avril 2019 à 12:05

Ce n'est pourtant pas trop compliqué!

voici l'exemple, il suffit de l'adapter

MkDir("C:\Test\MonDossier1\")

Je nomme mon dossier et donne le chemin de sauvegarde 
Nomdossier = Application.InputBox("COMPTABILITE AD44", "Annee ?") 
MkDir("F:\20190401_ORGA_RESTOS\COMPTABILITE AD44\2019\" & Nomdossier & "\" )
Chemin = "F:\20190401_ORGA_RESTOS\COMPTABILITE AD44\2019\" & Nomdossier & "\"

Babs44300 Messages postés 7 Date d'inscription lundi 15 avril 2019 Statut Membre Dernière intervention 15 avril 2019
15 avril 2019 à 13:24

Ah ce n'était que ça effectivement je peux le faire mais maintenant j'ai une erreur 75 "erreur d'accès chemin/fichier"

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 avril 2019 à 13:41

change:

ActiveSheet.ExportAsFixedFormat Type:=xltypexlsx

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF

@+ Le Pivert

Babs44300 Messages postés 7 Date d'inscription lundi 15 avril 2019 Statut Membre Dernière intervention 15 avril 2019
15 avril 2019 à 14:05

Désolé ça ne change rien toujours un pb de chemin et j'ai vérifié il est bon

je te joins l'image de l'erreur
Merci encore

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters