Discussion :

[Invité]

Bonjour,

En enregistrant par macro, une feuille excel (ou plus) sous format PDF ou XPS, je n'ai pas de message comme pour excel m'indiquant que le fichier existe déjà.

Quelle est la solution? mon code est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Chemin As String, MonFichier As String
Chemin = ThisWorkbook.Path
 
MonFichier = Chemin & "\" & "PV CmdP" & " " & Sheets("ConsultCMDP").Range("C2") & ".pdf"
 
    Sheets(Array("A", "B", "C")).Select
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MonFichier, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Je voudrais, faire en sorte que si le fichier existe déjà, qu'il ne soit pas créé. Je ne voudrai pas avoir le message d'invite de confirmation.

Je vous remercie.

Cordialement,

[patricktoulon]

Bonjour
Une facon toute simple
tester si le fichier existe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if dir(chemin de ton fichier au complet)<>0 then 
'faire ceci
else 'faire cela
end if

Au plaisir

[Invité]

Bonjour,
Je ne sais pas exactement si c’est ça que tu veux mais regarde quand même.

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
Dim FichierExiste As String
Dim I As Long
Dim Chemin As String, MonFichier As String
Chemin = ThisWorkbook.Path
 
MonFichier = Chemin & "\" & "PV CmdP" & " " & Sheets("ConsultCMDP").Range("C2") & ".pdf"
 
    Sheets(Array("A", "B", "C")).Select
 FichierExiste = Dir(MonFichier)
 While FichierExiste <> ""
    I = I + 1
    FichierExiste = Dir(Replace(Replace(MonFichier, ".pdf", CStr(I) & ".pdf"), ".XPS", CStr(I) & ".XPS"))
 Wend
 If I > 0 Then MonFichier = Replace(Replace(MonFichier, ".pdf", CStr(I) & ".pdf"), ".XPS", CStr(I) & ".XPS")
    ActiveWindow.Application.DisplayAlerts = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MonFichier, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    ActiveWindow.Application.DisplayAlerts = True

[Invité]

Messieurs je vous remercie,

En fait, j'ai remarqué qu'à chaque fois que j'enregistre une feuille au format pdf, au cours de cette opération l'écrasement du fichier portant le même nom est automatique,
aucun message ne prévient qu'un fichier existe déjà. Mon bout de code fait partie d'une procédure, je voudrais donc faire un test et si le fichier existe alors les lignes de
code de création du fichier sont "jumpées" et la procédure se poursuit.

J'ai testé le code de "Rdurupt", il fonctionne. mais ce n'est pas ce que je cherche. En fait, ton code renomme le fichier en incrémentant le nom.

Pour le code Patricktoulon, c'est une bonne piste mais j'ai "une erreur 13, incompatibilité de type" , sur la ligne de code où est inséré le chemin du fichier
voici le code:

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
Dim Chemin As String, MonFichier As String
Chemin = ThisWorkbook.Path
 
MonFichier = Chemin & "\" & "PV CmdP" & " " & Sheets("ConsultCMDP").Range("C2") & ".pdf"
 
If Dir(MonFichier) <> 0 Then
GoTo suite 'faire ceci
Else 'faire cela
 
    Sheets(Array("A", "B", "C")).Select
    'Sheets("Station").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MonFichier, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 End If
    Sheets("ConsultCMDP").Select
suite:
 
MsgBox "Veuillez Patientez! Création du Fichier au format Excel." & Chr(10) & Chr(10) & "Cliquez sur OK."

Je n'ai pas bien compris, je n'arrive pas à trouver mes erreurs.

Je vous remercie beaucoup.

Cordialement,

[Invité]

Rebonjour,

La piste de Patricktoulon était bonne. J'ai poursuivis mes recherches et je suis tombé sur ceci http://www.developpez.net/forums/d46...ichier-existe/

Il fallait mettre ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
txt=Dir(chemin+NomFichier)
if txt="" then
'Faire ceci
else
'Faire cela
end if

Je vous remercie beaucoup.

Cordialement,