Bonjour à tous,
J'ai une macro qui m'enregistre automatiquement ma feuille en format pdf avec le nom exacte que je veux, c'est à dire la valeur d'une cellule_Valeur d'une autre cellule. Tout ceci est parfait pour mon application (c'est a dire un appareil unique). voici le code:
Sub enregistrerRU227()
Dim nompdf As String
On Error GoTo erreur
nompdf = "\\server2016\QUALITE\1 - METROLOGIE\CERTIFICATS\RUGOSIMETRE\RU 227\Certificat\" & Range("A9").Value & "_" & Format([I9], "dd_mm_yy")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Exit Sub
erreur:
MsgBox "Erreur : " & Err.Number & vbLf & Err.Description
End Sub
Cependant, cette fois j'aimerai une macro bouton, ou lorsque j'appuie sur le bouton, il commence l'étape d'enregistrer sans la finir, c'est à dire qu'il va sur le chemin prédéfini \\server2016\QUALITE\1 - METROLOGIE\CERTIFICATS\TAMPON LISSE\ il choisie le fomat .pdf et j'aurai juste à rentrer/taper le nom que je désire pour le fichier.
Je ne sais pas si c'est réalisable. Si non, ben je me démerderai .
Je vous joins la feuille excel en question. Merci d'avance!
Je pense que sa peu bloqué sur le fait qu'on prédéfinisse le .pdf, si sa bloque sur ce sujet on peut passer outre le .pdf et "juste" prédéfinir le chemin pour enregistrer.