Pb Macro VBA/Excel
Bernard
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Pb Macro VBA/Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
1 réponse
Bonjour,
il faut créer ton dossier!
https://excel-malin.com/codes-sources-vba/creation-dossiers-et-sous-dossiers-en-vba/
il faut créer ton dossier!
https://excel-malin.com/codes-sources-vba/creation-dossiers-et-sous-dossiers-en-vba/
Merci d'avance
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 & "\"en
@+ Le Pivert
je te joins l'image de l'erreur
Merci encore