commande Si alors sinon

Bonjour à tous
je souhaiterais insérer une fonction dans une macro VBA. Cette commande traduirait :


Si le fichier X est ouvert alors sauvegarder X sinon ouvrir le fichier X.
chemin d'accès de X = U:\Tram\20130304_SCH_DEX_Plan de remisage.xlsm

Je pense qu'il faut utiliser IF, THEN et ELSE mais je ne trouve pas la solution.

merci de votre aide
bonne journée

Bonjour art_bras_cames,

A quel moment souhaites-tu que cette macro se lance ? Depuis un autre fichier ?
Quelles sont les interactions entre ton fichier "20130304_SCH_DEX_Plan" et le fichier dans laquelle la macro se trouve ?

Pour ma part, je n'aime pas gérer les erreurs sous Excel (peu prudent d'après moi).
Pour ton problème, je ferais quelque chose de la sorte, sous réserve que j'ai bien compris :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub close_save() Dim x As String Dim flag As Boolean   x = "C:\Chemin\TEST.xls" flag = True   For Each Wkb In Workbooks If Wkb.FullName = x Then flag = False Wkb.Close True 'MsgBox "Fermé" Exit For End If Next Wkb   If flag Then Workbooks.Open Filename:=x 'MsgBox "Ouvert" End If   End Sub

---

Tiens moi au courant ! :ccool:

Cordialement,
Kimy

bonjour, merci de ta rapidité

En effet cela fait partie d'une macro plus complète qui est lancée depuis un autre fichier et dans lequel je viens copier des cellules de cet autre fichier.

A+

Voici la partie de la macro existante

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sheets("semaine1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _ IgnorePrintAreas:=False Workbooks.Open Filename:="U:\TRAM\20130304_SCH_DEX_Plan de remisage.xlsm" Windows("20130304_SCH_DEX_Plan de remisage.xlsm").Activate Sheets("Sortie semaine").Select ActiveSheet.Unprotect Windows("Tableau PDS.xlsm").Activate

---

Je souhaite remplacer ce qui est en bleu par ce que je recherche.

Essaye quelque chose comme cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Sub close_save() Dim x As String Dim flag As Boolean   Sheets("semaine1").Select   ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _ IgnorePrintAreas:=False   x = "U:\TRAM\20130304_SCH_DEX_Plan de remisage.xlsm" flag = True   For Each Wkb In Workbooks If Wkb.FullName = x Then flag = False Wkb.Close True Exit For End If Next Wkb   If flag Then Workbooks.Open Filename:=x   With Workbooks("20130304_SCH_DEX_Plan de remisage").Worksheets("Sortie semaine") .Unprotect   'etc... End With End If   End Sub

---

Tiens moi au courant ! :ccool:

Cordialement,
Kimy

bonjour Kimy-Ire,

Ne serait-ce pas plutôt cela que souhaite art_bras_cames ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Sub close_save() Dim x As String Dim flag As Boolean   Sheets("semaine1").Select   ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _ IgnorePrintAreas:=False   x = "U:\TRAM\20130304_SCH_DEX_Plan de remisage.xlsm" flag = True   For Each Wkb In Workbooks If Wkb.FullName = x Then Workbooks.Save 'Filename:=x flag = False Exit For End If Next Wkb   If flag Then Workbooks.Open Filename:=x End If   With Workbooks("20130304_SCH_DEX_Plan de remisage").Worksheets("Sortie semaine") .Unprotect   'etc... End With End Sub

---

Cordialement,

Bonjour nibledispo,

Si je me réfère au premier commentaire de art_bras_cames qui suit :

Citation:

---

Si le fichier X est ouvert alors sauvegarder X sinon ouvrir le fichier X.
chemin d'accès de X = U:\Tram\20130304_SCH_DEX_Plan de remisage.xlsm

---

je dirais que l'exécution ne dois se réaliser que si le fichier est fermé. Cependant, je peux ne pas avoir compris.

Cordialement,
Kimy

Bonjour à vous
je tenais dans un premier temps à vous remercier pour toute l'attention que vous portez à mon projet.

Kimy dans ta solution, lorsque mon fichier x est ouvert la commande le sauve bien mais le ferme ensuite. Par contre quand x est fermé il n'y a pas de pb la macro l'ouvre bien.
Pourrais-tu voir pour qu'après l'enregistrement il reste ouvert ?

Nibledispo lorsque je lance ta solution, j'ai une erreur de compilation sur la ligne :

Code:

---

Workbooks.Save 'filename=x

---

Bonne journée

Bonjour,

Et si tu enleves l'apostrophe devant filename ?

Cordialement,

bonjour Paul,
non cela ne fonctionne pas, j'ai essayé de mettre activeworkbook.save il n'y a plus de pb de compilation. Mais cela ne fonctionne pas car je ne suis pas sur le fichier X je suis sur le fichier d'origine.
Bonne journée

re...

et si tu mets tout simplement wbk.save

Hello
et ben non ça fonctionne pas

re....,

Alors je ne comprends plus rien. Je me demande pourquoi le wbk.close de Kimy marche et pas mon wbk.save.

Kimy saura peut-être expliquer ce mystère.

Cordialement

Bonjour à tous !

Alors, pour le coup, je ne comprends pas non plus.
Ma sauvegarde fonctionne bien de la sorte :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

x = "C:\Users\...\Desktop\VBA\supertest.xlsm" flag = True   For Each Wkb In Workbooks If Wkb.FullName = x Then flag = False Wkb.Save 'True Exit For End If Next Wkb   If flag Then Workbooks.Open Filename:=x   With Workbooks("20130304_SCH_DEX_Plan de remisage").Worksheets("Sortie semaine") .Unprotect   'etc... End With End If

---

A mettre les bonnes parties aux bons endroits...

N'hésitez pas à me faire un retour.

Cordialement,
Kimy

Bonjour Kimy

Je m'étais absenté quelques jours et me revoilà.
J'ai essayé ta commande mais elle ne fonctionne pas correctement. Si mon fichier X est ouvert mais qu'il n'a pas été sauvé avant, j'ai une boite de dialogue qui m'indique que le fichier est déjà ouvert et que si je l'ouvre à nouveau , je risque de perdre les données.
Je pense que la sauvegarde ne fonctionne pas.

Pourrais-tu m'aider ?