Discussion :

[Ronatan]

Bonjour à tous,

J'ai récupéré une VBA qui me permet d'enregistrer sur réseau et d'envoyer par mail d'une feuille Excel en PDF

'Enregistrement du document
Chemin = "F:\public\Bureau\" & Range("C4") & " " & Range("C5").Value & "\"
Fichier = Range("C1") & " " & Range("D1") & " " & Range("C4") & " " & Range("C5") & " " & ".pdf"
'Recherche si le dossier existe et création si non.
If Dir(Chemin, 16) = "" Then MkDir Chemin
'ActiveWorkbook.SaveAs Chemin & Fichier

'Enregistrer la feuille en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Il fonctionne bien mais j'ai essayé de modifier ce code, mon but est de faire exactement la même chose mais en restant sur un format Excel d'une feuille avec sa zone d'impression

En vous remerciant d'avance

[Franc]

Salut, teste ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
'Enregistrement du document
Chemin = "F:\public\Bureau\" & Range("C4") & " " & Range("C5").Value & "\"
Fichier = Range("C1") & " " & Range("D1") & " " & Range("C4") & " " & Range("C5") & " " & ".xlsx"
'Recherche si le dossier existe et création si non.
If Dir(Chemin, 16) = "" Then MkDir Chemin
 
'Enregistrer la feuille en format Excel
ActiveSheet.Copy 
ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close SaveChanges:=False

[Ronatan]

Bonjour Franc,
Top les modifications fonctionnent
J'ai deux points :
1- Lorsque le l'enregistrement j'ai un message

Pas besoin de macro sur le fichier qui s'enregistre, un format juste excel classic suffit
2- Aujourd'hui mon fichier lors de l'enregistrement écrase l'ancien fichier, serait-il possible de garder l'historique en mettant des (2), (3) etc... sur le nom du fichier?

[Franc]

Bonjour, pour le point 1 je ne vois pas où est le problème, j'ai testé et tout se passe bien, les fichiers sont sauvés au format .xlsx sans le moindre message.
Pour le point 2, voici:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'Enregistrement du document
chemin = "F:\public\Bureau\" & Range("C4") & " " & Range("C5").Value & "\"
fichierBase = Range("C1") & " " & Range("D1") & " " & Range("C4") & " " & Range("C5") & " " & ".xlsx" 'Changez l'extension en .xlsx
'Recherche si le dossier existe et création si non.
If Dir(chemin, 16) = "" Then MkDir chemin
 
'Vérifiez si le fichier existe déjà et ajoutez un numéro à la fin si nécessaire
i = 1
fichier = fichierBase & ".xlsx"
While Dir(chemin & fichier) <> ""
    fichier = fichierBase & " (" & i & ")" & ".xlsx"
    i = i + 1
Wend

[Ronatan]

Franc,

Ca marche très je comprends votre démarche
Par contre pour le point 1 :
A la base mon fichier est en format "xlsm" j'ai juste changé mon enregistrement en "FileFormat:=xlOpenXMLWorkbookMacroEnabled" pour passer du "xlsx" vers "xlsm" du coups je n'ai plus le message

Du coups tout fonctionne parfaitement

Sincèrement merci beaucoup