Pb Macro VBA/Excel [Fermé]

Signaler
-
Messages postés
6830
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
8 juillet 2020
-
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

1 réponse

Messages postés
6830
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
8 juillet 2020
532
Messages postés
6830
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
8 juillet 2020
532
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


@+
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
Messages postés
6830
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
8 juillet 2020
532
essaie cela:

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


@+
Messages postés
7
Date d'inscription
lundi 15 avril 2019
Statut
Membre
Dernière intervention
15 avril 2019

Pareil, Désolé
Messages postés
6830
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
8 juillet 2020
532
Voilà un exemple:

https://www.cjoint.com/c/IDpqM3WqpKQ