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