Bonjour,
je dispose d'une application qui me permets d'extraire un fichier au format Excel. Le nom de ce nouveau fichier est toujours le même "xxxxxxx.xls"
 
Mon objectif est d'intégrer automatique une macro dans chaque nouveau fichier créée
 
Merci de votre aide

je progresse,j 'ai réussi à créer la macro avec un bouton sur la barre d'outil mais je souhaite, en cliquant sur la macro, que lorsque le fichier ne correspond pas au fichier nommé "xxxx.xls" , obtenir un message d'erreur et le fermer
 
Merci

je teste ce code mais j'ai une erreur avec la ligne du IF :
 
Sub Test()
    Dim fichier As String
    fichier = "c:\Reporting Final(1).xls"
    If ActiveWorkbook = fichier Then
        MsgBox "Classeur déja ouvert."
    Else
        MsgBox "Classeur fermé."
    End If
End Sub
 
Merci

Salut,

Essaye avec ça

If ActiveWorkbook.FullName = fichier Then
        MsgBox "Classeur déja ouvert."

Par contre ça ne marche que si le fichier ouvert est enregistré sur le PC (en même temps c'est logique).

Mais de mémoire, on peut pas comparer des chaines de caractères comme ça, il faut utiliser LIKE :

If ActiveWorkbook.FullName Like fichier Then
        MsgBox "Classeur déja ouvert."

Merci, cela fonctionne

Nickel

Salut, enfin si on veut car la généralisation est plus complexe : au minimum, à lire et assimiler
http://excel.developpez.com/faq/?p [...] ancesExcel
http://excel.developpez.com/faq/?p [...] seurOuvert