Optimisation macro

[RONIBO]

Bonjour,

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

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?

 

[Dranreb]

Re : Optimisation macro

Bonjour.
Essayez comme ça :

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

 

[RONIBO]

Re : Optimisation macro

Re,

Merci Dranreb 🙂

Ca fonctionne nickel 🙂

J'ai fait quelques petites modifs 🙂

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+

 

[Dranreb]

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.

 

[RONIBO]

Re : Optimisation macro

Re,

Merci pour les explications,

Mais je sais comment et ou je dois mettre :

On Error Resume Next et testez derrière If Err then

 

[Dranreb]

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.

 

[RONIBO]

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+