Lancer une macro automatiquement
the_cube
Messages postés
12
Statut
Membre
-
lami20j Messages postés 21644 Statut Modérateur, Contributeur sécurité -
lami20j Messages postés 21644 Statut Modérateur, Contributeur sécurité -
Voila je voudrais savoir comment faire appelle a une macro.
Je vous explique mon probléme:
Je dois enregistrer à l'aide d'une macro un document excel sous la forme d'une date du type JJ MM YYYY
Pour cela j'ai écris le prog suivant :
Sub EnregRapport()
Dim D as String
D= Day(Now) & "_" & Month(Now) & "_" Year(Now)
ActiveWorkbook.SaveAs Filename:="U:\stagiaires\taittinger\rapport sur excel\Rapport\Rapport_" & D & ".xls"
End sub
Ensuite je suis allé dans le VBA de la feuille concerné et j'ai placé ce code pour permettre de lancer ma macro de sauvegarde à partir de l'événement d'une cellule:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = "3" And Target.Row = "2" Then '
If Range("C2").Value = 1 Then
MsgBox "Sub EnregRapport()" ' 'appel à la macro
End If
End If
End Sub
Mais malheureusement quand je met la valeur 1 dans ma cellule C2, il m'affiche Sub EnregRapport(), alors que moi je veux executer cette macro.
Merci de vos réponses
Je vous explique mon probléme:
Je dois enregistrer à l'aide d'une macro un document excel sous la forme d'une date du type JJ MM YYYY
Pour cela j'ai écris le prog suivant :
Sub EnregRapport()
Dim D as String
D= Day(Now) & "_" & Month(Now) & "_" Year(Now)
ActiveWorkbook.SaveAs Filename:="U:\stagiaires\taittinger\rapport sur excel\Rapport\Rapport_" & D & ".xls"
End sub
Ensuite je suis allé dans le VBA de la feuille concerné et j'ai placé ce code pour permettre de lancer ma macro de sauvegarde à partir de l'événement d'une cellule:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = "3" And Target.Row = "2" Then '
If Range("C2").Value = 1 Then
MsgBox "Sub EnregRapport()" ' 'appel à la macro
End If
End If
End Sub
Mais malheureusement quand je met la valeur 1 dans ma cellule C2, il m'affiche Sub EnregRapport(), alors que moi je veux executer cette macro.
Merci de vos réponses
A voir également:
- Lancer une macro automatiquement
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Lancer une application au démarrage windows 10 - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Logiciel pour trier les photos automatiquement - Guide
2 réponses
Bon... Je vais peut etre répondre une grosse connerie, car je débute, mais c'est pas plutot
call EnregRapport() ?
@+
call EnregRapport() ?
@+
C'est tu la fonction qui permet de faire un double click
d'après l'aide VBA :
DoubleClick, méthode
Cette méthode équivaut à double-cliquer sur la cellule active.
expression.DoubleClick
expression Obligatoire. Expression qui renvoie un objet Application.
Exemple
Cet exemple montre comment double-cliquer sur la cellule active de la feuille Sheet1.
Worksheets("Sheet1").Activate Application.DoubleClickA+