Menu

Pb Macro VBA/Excel

- - Dernière réponse : cs_Le Pivert
Messages postés
5990
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
- 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
Afficher la suite 

Votre réponse

1 réponse

Messages postés
5990
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
421
cs_Le Pivert
Messages postés
5990
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
421 -
Pour être sur d'être dans le bon répertoire, voici un code avec le choix du dossier:

Option Explicit
 Dim Chemin As String
Private Sub CommandButton1_Click()
Enregistrementfactures
End Sub
Sub Enregistrementfactures()
'Je declare mes variables
Dim Nomdossier As String
Dim Chemincomplet As String
'Je nomme mon dossier et donne le chemin de sauvegarde
Nomdossier = Application.InputBox("COMPTABILITE AD44", "Annee ?")
If Nomdossier = "" Then Exit Sub
ChoixRepertoire
MkDir (Chemin & "\" & Nomdossier & "\")
Chemincomplet = Chemin & "\" & Nomdossier & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemincomplet & "Facturenumero_" & Range("C17").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub
Sub ChoixRepertoire()
   Dim objShell As Object, objFolder As Object, oFolderItem As Object
   Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
 
    On Error Resume Next
    Set oFolderItem = objFolder.Items.Item
    Chemin = oFolderItem.Path
End Sub


@+
Babs44300
Messages postés
7
Date d'inscription
lundi 15 avril 2019
Statut
Membre
Dernière intervention
15 avril 2019
-
Merci de tes efforts
il recherche bien le répertoire qui convient et après une erreur "5" "Argument ou appel de procédure incorrect"



Suite au prochain numéro
cs_Le Pivert
Messages postés
5990
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
421 -
essaie cela:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemincomplet & "Facturenumero_" & Range("C17").Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False


@+
Babs44300
Messages postés
7
Date d'inscription
lundi 15 avril 2019
Statut
Membre
Dernière intervention
15 avril 2019
-
Pareil, Désolé
cs_Le Pivert
Messages postés
5990
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2019
421 -
Commenter la réponse de cs_Le Pivert