Intégration d"une macro

Intégration d"une macro - VB/VBA/VBS - Programmation

Marsh Posté le 24-01-2012 à 10:18:44    

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

Reply

Marsh Posté le 24-01-2012 à 10:18:44   

Reply

Marsh Posté le 24-01-2012 à 16:41:42    

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

Reply

Marsh Posté le 24-01-2012 à 17:41:16    

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

Reply

Marsh Posté le 25-01-2012 à 11:29:46    

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


Message édité par Madkiller92 le 25-01-2012 à 11:31:30

---------------
My FeedBack
Reply

Marsh Posté le 26-01-2012 à 08:18:20    

Merci, cela fonctionne

Reply

Marsh Posté le 26-01-2012 à 09:07:37    

Nickel :)


---------------
My FeedBack
Reply

Marsh Posté le 27-01-2012 à 06:09:10    

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


---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed