Discussion :

[BRUNO71]

Bonjour,

J'enregistre en vba un fichier excel au format pdf, je me sert de la cellule A1 comme nom, puis de la cellule A2 comme répertoire et de la cellule A3 comme date.
Dont voici le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim répertoire As String
Dim nom As String
Dim date As String
nom = Sheets("Feuil1").Range("A1").Value
répertoire = Sheets("Feuil1").Range("A2").Value
datefiche = Sheets("Feuil1").Range("A3").Value
Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
répertoire & " " & nom & " " & date, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Ca fonctionne très bien sans la date, mais moi j'aimerais rajouter la date..
Mais elle est d'office au format ( jj/mmm/08) et on ne peut pas enregistrer un fichier pdf avec le signe /....

Comment puis-je faire ?
Comment changer le format date à l'enregistrement ?

Merci de votre aide.

Bien cordialement

[deuxmains]

Bonjour BRUNO71

ton problème est normal puisque dans ton export tu demande à mettre date et pas la variable datefiche que tu as créé précedemment

commence par faire un formatage de ta date

Code :

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

datefiche = Format(Sheets("Feuil1").Range("A3").Value, "DD-MM_YYYY")

ensuite dans ton export met ta variable datefiche à la place de date

Code :

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

1
2
3
4
Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
répertoire & " " & nom & " " & datefiche, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

je suis parti du principe que la date en A3 n'est pas automatiquement la date du jour bien sur

[ucfoutu]

Bonjour,

Le jour (cela arrivera...) où tu voudras trier tes fichiers par date ou que tu chercheras parmi eux ceux créée entre la date date1 et la date date2, ou même chercher le plus anciennement créé ou le plus récemment créé, tu te mordras les doigts d'avoir nommé ainsi...
Jer te conseille vivement de mettre la date devant, sous la forme aaaammjj suivie du nom
De cette manière, Val(le_nom_de_fichier) te sortira toujours la date sous forme d'une valeur ,imérique ressemblant à 20080903 et ce genre de forme se prête directement à toutes les comparaisons et tris...
Si tu as de tels projets, c'est maintenant, qu'il faut y penser et nommer en vue de faciliter tes recherches...

[BRUNO71]

Bonsoir,

Merci deuxmains et merci ucfoutu pour le complément fort utile.


Bien cordialement