bonjour et bonne année 2016
je souhaite tester si un fichier ouvert a besoin d'être sauvegarde car il a été modifié.
je teste s'il est ouvert
si non je l'ouvre
s'il est ouvert je teste s'il est modifié
s'il oui jesauvegarde
si non je continue
c'est la deuxième macro qui pose probleme
__________________
Sub a_0_test_ouverture_fichier_2internet()
'
' Application.Run "XXXmoneyshop.xls!a_0_test_ouverture_fichier"
' test 2internet Macro enregistrée le 25/11/2015 par moneyshop
'====
estouvert = False
On Error GoTo ouvre
Workbooks("2internet_arc.xls").Activate
'teste si fichier a besoin d'être sauvegardé
Application.Run "XXXmoneyshop.xls!a_0_test_2internet"
'ActiveWorkbook.Save
On Error GoTo 0
estouvert = True
'si non ouvert ouverture
ouvre:
If estouvert = False Then Workbooks.Open FileName:="X:\1_money\1dossier_internet\2internet_arc.xls", updatelinks:=0
'====
End Sub
_____________________________
Sub a_0_test_2internet()
'
' Application.Run "XXXmoneyshop.xls!a_0_test_2internet" Macro
' Macro enregistrée le 16/01/2016 par moneyshop
'
Dim Fichier$
Fichier = "X:\1_money\1dossier_internet\2internet_arc.xls"
If dir(Fichier) = "" Then
ThisWorkbook.SaveAs Fichier
' il passe directement a else même si fichier modifié
Else
'fin!
End If
End Sub
je souhaite tester si un fichier ouvert a besoin d'être sauvegarde car il a été modifié.
je teste s'il est ouvert
si non je l'ouvre
s'il est ouvert je teste s'il est modifié
s'il oui jesauvegarde
si non je continue
c'est la deuxième macro qui pose probleme
__________________
Sub a_0_test_ouverture_fichier_2internet()
'
' Application.Run "XXXmoneyshop.xls!a_0_test_ouverture_fichier"
' test 2internet Macro enregistrée le 25/11/2015 par moneyshop
'====
estouvert = False
On Error GoTo ouvre
Workbooks("2internet_arc.xls").Activate
'teste si fichier a besoin d'être sauvegardé
Application.Run "XXXmoneyshop.xls!a_0_test_2internet"
'ActiveWorkbook.Save
On Error GoTo 0
estouvert = True
'si non ouvert ouverture
ouvre:
If estouvert = False Then Workbooks.Open FileName:="X:\1_money\1dossier_internet\2internet_arc.xls", updatelinks:=0
'====
End Sub
_____________________________
Sub a_0_test_2internet()
'
' Application.Run "XXXmoneyshop.xls!a_0_test_2internet" Macro
' Macro enregistrée le 16/01/2016 par moneyshop
'
Dim Fichier$
Fichier = "X:\1_money\1dossier_internet\2internet_arc.xls"
If dir(Fichier) = "" Then
ThisWorkbook.SaveAs Fichier
' il passe directement a else même si fichier modifié
Else
'fin!
End If
End Sub