Détection d'ouverture d'un fichier et son remplacement
Bonsoir,
Je reviens ici vous demander un peu d'aide à mon projet:
Après un export fait d'un application, j'obtient un fichier nommé "export_(N°aléatoire)_appl.xls" qui contient une macro auto_open ainsi qu'un fichier de données du même nom en format *.dat.
Mon but étant de remplacer automatiquement le fichier "export_(N°aléatoire)_appl.xls" par un autre (tout en conservant le nom original) qui contient également une même macro auto_open mais lègèrement modifiée.
Est-ce possible de détecter l'ouverture d'un fichier avec un nom se terminant par _appl.xls avec le nom d'auteur "appliV3" et de lancer ensuite son remplacement puis son ouverture (avec donc l'éxécution de sa fameuse macro auto_open) ?
Je demande peut-être l'impossible mais bon ... :aie:
Fonction Fichier est Ouvert + Propriétés
Bonjour,
Je n'utilise pas Excel 2007, mais si cela peut t'aider
1 - En ce qui concerne les propriétés d'un classeur (dont l'auteur), regarde la FAQ
http://excel.developpez.com/faq/?pag...#LirePropriete
2 - Pour tester l'ouverture éventuelle d'un fichier, voici une fonction :
TEST SI FICHIER EST OUVERT PAR FONCTION
Code:
1
2
3
4
5
6
7
8
9
10
11
| Function FichierEstOuvert(ByRef FichierTeste As Variant) As Boolean
Dim FICHIER As Long
On Error GoTo Erreur
FICHIER = FreeFile
Open FichierTeste For Input Lock Read As #FICHIER
Close #FICHIER
FichierEstOuvert = False
Exit Function
Erreur:
FichierEstOuvert = True
End Function |
L' argument de cette fonction est
le chemin complet + le séparateur (généralement " \") + le nom du fichier avec son extension.
Tu peux ensuite combiner les 2 propriétés.
Cordialement.
Marcel.
