bonjour ,
je rencontre un problème avec une macro vba excel 10
jusqu'à présent elle fonctionnait correctement maintenant j'ai une erreur
macro défaillante ci dessous
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Sub Enregistrementdevis() ' variables Dim NomDossier As String Dim Chemin As String ' je nomme le dossier et donne le chemin de sauvegarde D:\DEVIS_FACTURES NomDossier = Application.InputBox("Enregistrement DEVIS:", "Années ?") Chemin = "D:\DEVIS_FACTURES " & NomDossier & "\" If NomDossier = "" Then Exit Sub 'enregistre fichier en pdf. PRECISIONS la cellule D4 du "classeur Devis" contient un format personnalisé aaaammjjhhmm comme suit avec la fonction maintenant() ex: 201905211801 la cellule b8 contient le nom du client ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Chemin & "DevisN°_" & Range("D4").Value & Range("B8").Value & ".pdf", quality:= _ xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _ from:=1, to:=1, openafterpublish:=False ' l'ARRET DE LA MACRO SE FAIT ICI
Merci d'avance de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 'enregistre fichier en xlsm ActiveWorkbook.SaveCopyAs Chemin & "DEVISNumero_" & Range("D4").Value & Range("B8").Value & " .xlsm" End Sub
Partager