Macro - Ouvrir fichier excel nommé ou le créer s'il n'existe pas

Bonjour David,

Ceci est juste un petit bout de code pour donner le nom du fichier correct à partir de la date introduite en cellule A1.

==========================================

Cette cellule A1 doit obligatoirement avoir un format de date,
mais celui-ci peut être quelconque.

----------------------------------------------------------------------------

JX contiendra le Jour sur 2 chiffres : dd
MX contiendra le Mois sur 2 chiffres : mm

Je passe par ces 2 variables pour faire un test qui déterminera
s'il faut ajouter ou non un "0" devant.

----------------------------------------------------------------------------

Inutile d'utiliser une variable pour l'Année : comme de toute façon
elle est sur 4 chiffres, elle ne nécessite pas de traitement et peut
être reprise telle que.

==========================================

FX contiendra le nom du fichier complet, mais ATTENTION :

1) Si vous êtes sûr et certain que ni maintenant, ni plus tard,
ce nom de fichier ne contiendra AUCUN ESPACE, vous pouvez
utiliser la 1ère ligne FX = ... ; dans le cas inverse, il faudra
alors utiliser la 2ème ligne FX = ... (celle en commentaire,
car elle ajoute un guillemet au début et un autre à la fin).

Je suis même tenté de vous dire : « Dans le doute ou même
par simple précaution, utilisez plutôt la 2ème ligne ! ».

Pour cette 2ème ligne, FX commence bien par 3 guillemets
consécutifs et se termine bien de la même façon : ce n'est
pas une erreur de frappe, et ça évite d'utiliser Chr$(34) !

----------------------------------------------------------------------------

2) Vous pourrez remarquer que j'ai rajouté l'extension ".xls" ;
vous savez qu'elle est valable pour Excel 2003, MAIS pour
Excel 2007 ou ultérieur, il faudra ajouter :

- "m" pour des classeurs avec macros : *.xlsm
- "x" pour des classeurs sans macros : *.xlsx

Et si en plus vous avez besoin d'ouvrir des classeur modèles,
il faudrait aussi prendre en compte :

- pour Excel 2003 : les *.xlt
- pour Excel 2007 : les *.xltm et *.xltx

Option Explicit

Sub Essai()
  Dim JX As String * 2, MX As String * 2, FX As String
  JX = Day([A1]): If JX < 10 Then JX = "0" & RTrim$(JX)
  MX = Month([A1]): If MX < 10 Then MX = "0" & RTrim$(MX)
  FX = "fichierA-" & JX & "-" & MX & "-" & Year([A1]) & ".xls"
  'FX = """fichierA-" & JX & "-" & MX & "-" & Year([A1]) & ".xls"""
  MsgBox "Date en A1 : " & [A1] & vbLf & "=> Nom du fichier :" & vbLf & vbLf & FX
End Sub

Vous n'aurez donc plus de problème à cause des "/".

Cordialement.

Bonjour

pour "enregistrer sous" avec date du jour

chemin = "D:\docus\"
nomfich = "azerty"
jour = Format(Sheets(1).Range("A1"), "dd-mm-yyyy")
nomfich = chemin & nomfich & "_" & jour & ".xlsm"
'
    ActiveWorkbook.SaveAs Filename:=nomfich

comme tu lances à partir d'une macro le nouveau classeur est donc en suffixe xlsm ou xltm

tu as intérêt à installer des variables (chemin, nomfich..) pour éviter le cauchemar des guillemets simples ou doubles dand activeworkbok?save as...

 Michel

J'ai suivi le conseil d'albkan

Cela fonctionne parfaitement ! Cette macro est donc résolue.

Sub Enregistrer()

Dim Chemin As String, Fichier As String, JX As String, MX As String

Chemin = "L:\Laboratoire\TestMacro\Archives\"
JX = Day([C3]): If JX < 10 Then JX = "0" & RTrim$(JX)
MX = Month([C3]): If MX < 10 Then MX = "0" & RTrim$(MX)
Fichier = "ExempleA" & "-" & Year([C3]) & "-" & MX & "-" & JX & ".xlsm"

ActiveWorkbook.SaveCopyAs Chemin & Fichier

Application.Quit
ActiveWorkbook.Close False

End Sub

Merci beaucoup.

Il me reste plus qu'à coder maintenant l'autre macro, sur l'autre fichier excel.
Pareil, sur ce fichier y'a une case avec la date à écrire.
Et quand j'applique la macro, cela ouvrir le fichier crée grace à la macro ci-dessous , et s'il n'existe pas encore, à la place, il m'ouvre le fichier ExempleA.xlsm

Vous auriez une idée de comment procéder?
J'ai essayer une bricole du genre :

Sub TestCrea()

Dim Test As String, JX As String, MX As String, Tramevierge As String

JX = Day([C3]): If JX < 10 Then JX = "0" & RTrim$(JX)
MX = Month([C3]): If MX < 10 Then MX = "0" & RTrim$(MX)
Test = "L:\Laboratoire\TestMacro\Archives\ExempleA" & "-" & Year([C3]) & "-" & MX & "-" & JX & ".xlsm"
Tramevierge = "L:\Laboratoire\TestMacro\TrameVierge\ExempleA.xlsm"

If Dir(Test) Then
Workbooks.Open Test

Else
Workbooks.Open Tramevierge

End Sub

Mais ça m'envoie dans le mur :)

Merci d'avance.

Bonjour David,

J'ai oublié que sur le forum, la règle est de se tutoyer, dans le respect et avec courtoisie. Tu peux donc me tutoyer toi aussi.

Je suis content que ma solution t'aie plu ; cependant :

----------------------------------------------------------------------------

1) J'avais utilisé RTrim$(JX) uniquement parce que j'avais déclaré JX comme une chaîne de caractères de longueur fixe, de 2 caractères : Dim JX As String * 2

C'est le * 2 final qui indique la longueur d'une chaîne fixe ; ce n'était pas 2 caractères ajoutés en plus par erreur.

Or dans ton code, tu utilises : JX As String (ce qui est possible aussi pour ce petit exercice).

Comme il n'y a pas, à la fin, de * nombre, c'est donc une chaîne de caractères de longueur variable.

Dans ce cas, le RTrim$() n'est plus nécessaire, et tu peux écrire plus simplement : JX = "0" & JX

Même chose, bien sûr, pour MX : pas de RTrim$() ; MX = "0" & MX

----------------------------------------------------------------------------

2) michel_m a indiqué dans son message 2 ci-dessus une solution encore meilleure que la mienne, en utilisant la fonction Format() ; mais lis d'abord la suite avant d'aller lire son message :

Je connaissais déjà la fonction Format(), mais je n'ai pas pensé à l'utiliser ici, alors que ça simplifie encore plus :

a) Utiliser cette fonction Format() évite le test < 10 et l'ajout éventuel d'un 0 devant.

b) Pour ton 1er code et ton 2ème code :

- dans ta ligne Dim, enlève les 2 déclarations JX As String et
MX As String

- Enlève les 2 lignes entières qui commencent par JX = et MX =

c) Dans ton 1er code, réécris la ligne Fichier = comme suit :
Fichier = "ExempleA" & "-" & Format([C3], "yyyy-mm-dd") & ".xlsm"

d) Dans ton 2ème code, réécris la ligne Test = comme suit :
Test = "L:\Laboratoire\TestMacro\Archives\ExempleA" & "-" & Format([C3], "yyyy-mm-dd") & ".xlsm"

Pour c) et d) j'ai volontairement évité "dd-mm-yyyy", car ça aurait donné jour-mois-an.

Ton choix de l'ordre des éléments est très bon, car c'est plus utile en cas de tri ; j'ai mis "yyyy-mm-dd" pour respecter cet ordre :
an-mois-jour.

Tu verras que cette solution aussi marche parfaitement, avec un code VBA beaucoup plus court (optimisé) !

----------------------------------------------------------------------------

Un grand merci à michel_m pour son très judicieux message :
Message #2 de michel_m

----------------------------------------------------------------------------

Pour ce que tu demandes ensuite, j'y réfléchirai plus tard, mais je ne te promets rien ; et michel_m te fournira peut-être une réponse.
 

Bonsoir David,

Lis d'abord mon message 4 ci-dessus, avant celui-ci.
Voici maintenant la solution pour ta 2ème partie.

ATTENTION !

Une ligne On Error Goto ... doit obligatoirement être la 1ère
de la Sub ! Elle doit donc être AVANT même la ligne Dim ...

Sub TestCrea()
  On Error GoTo ErrFile
  Dim Test As String, Tramevierge As String
  Test = "L:\Laboratoire\TestMacro\Archives\ExempleA" & "-" & Format([C3], "yyyy-mm-dd") & ".xlsm"
  Tramevierge = "L:\Laboratoire\TestMacro\TrameVierge\ExempleA.xlsm"
  Workbooks.Open Test: Exit Sub
ErrFile:
  Workbooks.Open Tramevierge
End Sub

Explications

Le premier Workbooks.Open va tenter d'ouvrir le fichier Test.

S'il existe bien, pas de problème : ouverture du fichier Test, et sortie de la Sub (grâce à Exit Sub).

S'il n'existe pas, une erreur d'ouverture de fichier se produit, et sans le On Error GoTo ... la Sub planterait tout bêtement et simplement !

Heureusement, ce On Error Goto ... permet de « récupérer l'erreur », ce pourquoi on peut dire que dans cette Sub, on a implémenté un « Gestionnaire d'erreurs ».

Donc quand l'erreur se produit, au lieu de planter, la Sub passe le contrôle de l'exécution du programme à l'endroit indiqué par ce qui suit le On Error GoTo, donc à l'étiquette ErrFile.

Pour le dire plus simplement : en cas d'erreur, ça va à la ligne ErrFile: pour exécuter la 1ère ligne qui suit : ouverture du fichier Tramevierge. Et voilà, le tour est joué !

Mais ATTENTION de ne pas oublier de mettre un Exit Sub juste avant l'étiquette ErrFile: sinon, après ouverture réussie du fichier Test, l'exécution du programme continuerait à la suite et rentrerait dans le gestionnaire d'erreur !

J'ai nommé l'étiquette ErrFile: mais tu peux choisir un autre nom si tu préfères ; par exemple : OuvrirFichierModèle:

Remarques bien qu'il y a un signe ":" (deux-points) à la fin de l'étiquette, alors qu'il n'en faut pas sur la ligne On Error Goto !
 

Bonjour tous,

ici une fonction qui permet non seulement de voir si le fichier existe, mais permet aussi de savoir s'il est déjà ouvert par qq'un pour traiter et éviter l'ouverture en lecture seule :
https://support.microsoft.com/en-us/help/291295
Sinon la proposition d'albkan suffit.
eric

Bonjour a tous,
petite incruste sans pretention

Juste pour en revenir au test Dir

Sub test()
    If Dir("d:\_acsv1\classeur2.xls") <> "" Then
        MsgBox "Fichier existe"
    Else
        MsgBox "Fichier n'existe pas"
    End If
End Sub

Peut etre complete avec test ouvert ou pas avec le lien de eriiic
Ce code pouvant faire tout en modifiant un peu pour recuperer l'erreur 53 (file not found) car il ne teste pas cette option

Bonjour David,

Ton problème est maintenant entièrement résolu :

A) Partie 1 : la date du fichier selon la cellule C3, au bon format ;
    version améliorée qui utilise la fonction Format() ;
    ceci grâce à une indication de michel_m.

B) Partie 2 : l'ouverture du fichier Test ou du fichier Tramevierge ;
    version améliorée qui utilise la fonction Dir() ;
    ceci grâce à une indication de f894009.

Depuis ton dernier message 3, il y a eu beaucoup d'autres messages, et je crois bien que tu risques de ne plus t'y retrouver ! Voici donc
les indications nécessaires :

==========================================

Le code définitif et complet est celui du message suivant :
Mon message #10

==========================================

Mais tu devrais quand même lire d'abord ce message, qui est très instructif pour la fonction RTrim$(), la différence entre les chaînes de caractères de longueur fixe / variable, l'utilisation de Format() :

Mon message #4 : c'est uniquement pour le format de date.

---------------------------------------------------------------------------

Puis les 2 messages suivants, qui sont très instructifs pour la mise
en place d'un gestionnaire d'erreur (avec On Error Goto ...) :

Mon message #5 : c'est mon 1er essai de résolution de la partie 2.
Mon message #7 : amélioration du code du message #5.
 

Merci pour toutes vos réponses.

J'ai enfin terminé mon fichier avec toutes les macros nécessaire et cela marche nickel avec toutes les solutions que chacun a proposé !

Ce problème est donc [résolu]
Mais je ne trouve pas le bouton pour cloturer ce topic...