bonjour
j'ai des macros en fonctionnement qui appellent souvent plusieurs fichiers
je veux controler s'ils sont ouverts et modifié ou non pour les sauvegarder ou non (sans message)
s'ils ne sont pas ouverts les ouvrir

dans une macro
avoir le nom du fichier en variable
Dim nomfichier As ???
nomfichier="x:\chemin\nomfichier.xls"

je souhaite tester si un "x:\chemin\nomfichier.xls" est dejà ouvert
s'il a besoin d'être sauvegarder car modifié le sauvegarder sans mise a jour des liens et sans message

s'il n'a pas ete modifié terminer

s'il n'est pas ouvert l'ouvrir sans message de mise a jour des liens et sans message

j'ai un debut mais probleme de fonctionnement et sans variable

merci a tous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub a_0_test_ouverture_fichier_2internet()
'le nom du fichier en variable
'Dim nomfichier As ???
' nomfichier="x:\chemin\nomfichier.xls"
 
'ActiveWorkbook.Save
On Error GoTo 0
estouvert = True
'si non ouvert ouverture
ouvre:
If estouvert = False Then Workbooks.Open FileName:=.........., updatelinks:=0
'====
End Sub
merci a tous