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

Optimisation macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion RONIBO
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

RONIBO

XLDnaute Impliqué
Bonjour,

J'utilise ce macro pour créer des fichiers pdf à partir des fichiers sur excel 2007

Code: 
Sub ImprimerPDF()
Dim LePath$
LePath = "C:\Users\" & Application.UserName & "\Desktop\" & [H10] & [I10] & " - " & [G14] & " (" & [A12] & ").pdf"
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=LePath, OpenAfterPublish:=True
End Sub

J'aimerais lui intégrer un petit truc,

Afficher un msgbox lorsque que le fichier pdf existe déjà

ex : Un fichier nommé 'Nom du fichier' existe déjà à cet emplacement (mettre emplacement)
Voulez-vous le remplacer ?

Si je choisis "OUI", ouvrir le fichier
Si non, annuler.

Voici un fichier exemple 🙂

Merci d'avance

PS : Y a -il des correction à faire dans ce macro, tout vous semble correcte?
 

Pièces jointes

Trier par date Trier par votes
Re : Optimisation macro

Bonjour.
Essayez comme ça :
VB: 
Sub ImprimerPDF()
Dim LePath$
LePath = "C:\Users\" & Application.UserName & "\Desktop\" & [H10] & [I10] & " - " & [G14] & " (" & [A12] & ").pdf"
If Dir(LePath) <> "" Then If MsgBox("Le fichier ci dessous existe déjà :" & vbLf & LePath & vbLf _
   & "Voulez vous le remplacer ?", vbYesNo + vbQuestion, "Impression PDF") = vbNo Then Exit Sub
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=LePath, OpenAfterPublish:=True
End Sub
 
Vote positif 0 Vote négatif
Re : Optimisation macro

Re,

Merci Dranreb 🙂

Ca fonctionne nickel 🙂

J'ai fait quelques petites modifs 🙂

Code: 
Sub ImprimerPDF()
Dim LePath$
LePath = "C:\Users\" & Application.UserName & "\Desktop\" & [H10] & [I10] & " - " & [G14] & " (" & [A12] & ").pdf"
If Dir(LePath) <> "" Then If MsgBox("Un fichier nommé " & vbLf & LePath & "existe déjà à cet emplacement" & vbCr & _
"Voulez-vous le remplacer ?", vbYesNo + vbQuestion, "Voulez-vous écraser le fichier PDF existant ?") = vbNo Then Exit Sub
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=LePath, OpenAfterPublish:=True
End Sub

J'aimerais intègrer un petit truck pour éviter un message d'erreur.

Lorsque j'ai crée le fichier pdf et j'oublie de laisser ouvert Adobe Reader

Lorsque j'essaye de créer de nouveau le fichier pdf, j'aimerais mettre un message comme :

"Veuillez fermer le fichier (Nom du fichier.pdf) pour en créer un nouveau"

Merci

a+
 
Vote positif 0 Vote négatif
Re : Optimisation macro

On ne répète en principe pas la question dans le titre de fenêtre d'un message: on met un court texte qui désigne le dispositif programmé qui émet ce message.
Si la méthode ExportAsFixedFormat (qui n'existe pas dans ma version d'Excel) plante néanmoins, mettez devant On Error Resume Next et testez derrière If Err then etc. Mais voyez si vous ne pouvez pas remédier au cas automatiquement avant de le tenter.
 
Vote positif 0 Vote négatif
Re : Optimisation macro

On Error Resume Next est à mettre devant une instruction qui peut provoquer une erreur afin que ça n'interrompe pas l'exécution.
If Err Then suivi des instructions appropriées, derrière elle, pour savoir si elle a provoqué une erreur et prendre les dispositions qui s'imposent alors.
On Error GoTo 0 est à mettre dès qu'il n'y a plus en principe d'instruction dont on pense qu'elle peuvent provoquer d'erreur.
 
Vote positif 0 Vote négatif
Re : Optimisation macro

Bonjour,

Merci Dranreb, j'ai pu éviter l'erreur avec le rajout de code 🙂

Donc d'après s'que je comprends on peut pas mettre de msgbox (le chier est ouvert, fermez le)

C'est ça?

a+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
433
cathodique
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
565
firecarl
F
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
670
MarineU
M
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
849
Phil69970
G
  • Question Question
Microsoft 365 vba intégrer réf onglet dans code sauvegarde
Réponses
2
Affichages
631
patricktoulon
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
733
PHIL37
P
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
D
  • Question Question
XL pour MAC modif par inputbox
Réponses
2
Affichages
506
Delorme
D
  • Question Question
XL 2021 choisir un onglet avant envoyer par email
Réponses
2
Affichages
608
gothc
  • Question Question
XL 2021 Ouverture d'un PDF à l'aide d'un bouton clic et pour multi utilisateur PC
Réponses
3
Affichages
648
AugusteP
D
  • Question Question
Microsoft 365 sauvegarde par VBA
2
Réponses
22
Affichages
1 K
Didier03
D
E
  • Résolu(e)
Microsoft 365 Enregistrement en PDF avec modification du nom en fonction du contenu de cellules
Réponses
2
Affichages
1 K
Elwer
E
  • Question Question
XL 2019 macro enregistrement pdf avec l'enregistreur
Réponses
7
Affichages
985
vgendron
C
  • Résolu(e)
XL 2019 Export PDF - OpenAfterPublish:= _True - bloquer l'ouverture en cas d'abandon
Réponses
9
Affichages
1 K
kiki29
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
M
  • Question Question
XL 2021 Macro/débogage et protection de feuille
Réponses
3
Affichages
693
Oneida
  • Résolu(e)
XL 2013 (RESOLU) Vérifier si elle existe une copie identique
Réponses
2
Affichages
524
chaelie2015
K
  • Question Question
Microsoft 365 Export PDF bouton macro + VBA
Réponses
6
Affichages
2 K
Kan
K
H
  • Question Question
Microsoft 365 Besoin aide : Erreur code macro . Problème est résolu
Réponses
7
Affichages
1 K
heart clean
H
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…