Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Problème avec VBA ( Résolu)

firecarl

XLDnaute Nouveau
Bonjour la communauté,

J'aurais besoin d'un petit coup de pouce :
voici mon problème:
j'aimerais ajouter à ma macro la possibilité de vérifier avant d'enregistrer que le fichier n'existe pas déjà dans le dossier cible et afficher un message d'avertissement "attention" ce fichier existe déjà voulez vous vraiment l'enregistrer"

voici ma macro: en résumé cette macro crée un enregistrement pdf d'une facture en la nomant via le num de facture écrit dans la cellule F12 de la feuille excel,


Sub EnregistrerEnPDF()
Dim chemin As String
Dim nomFichier As String
Dim cheminDossier As String

' Définir le dossier où le fichier sera enregistré
cheminDossier = "C:\Users\ihoucine\Desktop\MICCI\Factures\"

' Vérifier que la cellule F12 contient une valeur
If Range("F12").Value = "" Then
MsgBox "La cellule F12 est vide. Veuillez entrer un nom de fichier."
Exit Sub
End If

' Obtenir le nom de fichier à partir de la cellule F12
nomFichier = Range("F12").Value & ".pdf"

' Construire le chemin complet du fichier
chemin = cheminDossier & nomFichier

' Enregistrer la feuille active en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard

' Message de confirmation
MsgBox "La feuille a été enregistrée en PDF sous le nom " & nomFichier
End Sub


Merci d'avance pour votre aide.
Bien cordialement
 

Pièces jointes

  • Facture Double.xlsm
    213 KB · Affichages: 4

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…