Intégration d"une macro - VB/VBA/VBS - Programmation
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
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
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."
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
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