Discussion :

[art_bras_cames]

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

[Kimy_Ire]

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 :

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
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 !

Cordialement,
Kimy

[art_bras_cames]

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 :

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

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.

[Kimy_Ire]

Essaye quelque chose comme cela :

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
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 !

Cordialement,
Kimy

[nibledispo]

bonjour Kimy-Ire,

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

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
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,

[Kimy_Ire]

Bonjour nibledispo,

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

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

[art_bras_cames]

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 :

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

 Workbooks.Save  'filename=x

Bonne journée

[nibledispo]

Bonjour,

Et si tu enleves l'apostrophe devant filename ?

Cordialement,

[art_bras_cames]

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

[nibledispo]

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

[Kimy_Ire]

Bonjour à tous !

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

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
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

[art_bras_cames]

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 ?