Pb Macro VBA/Excel
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
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
-
ContributeurBonjour,
il faut créer ton dossier!
https://excel-malin.com/codes-sources-vba/creation-dossiers-et-sous-dossiers-en-vba/
-
-
ContributeurCe 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 & "\" -
-
-
-
