Discussion :

[Danieldu54]

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

[MarcelG]

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 :

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

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.

[AlainTech]

Voir la réponse là:
http://www.developpez.net/forums/d98...r/#post5530408