Sub jj()
chemin = "C:\utilisat\métédis\"
nom = [feuil1!A2] & " " & [feuil1!A4] & ".xls"
sav = chemin & nom
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sav
End Sub
par ailleurs cette macro doit se déclencher lorsque je sors, je quitte la
cellule A4.
par ailleurs cette macro doit se déclencher lorsque je sors, je quitte la cellule A4.
Il me semble avoir répondu dans le fil précédent.
Copie: Ceci sans le module de la feuille en question. '--------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address <> "$A$4" Then Exit Sub If [a2] <> "" And [a4] <> "" Then jj 'ou le nom de ta macro Else MsgBox "Nom ou Prénom incorrecte" End If End Sub '---------- JJ
"jack 43" a écrit dans le message de news:
Bonsoir,
Voilà j'ai une macro qui enregistre dans le répertoire C:utilisatmétédis
le fichier au nom de la case A2 espace A4.xls
dans la macro si le nom de l'onglet de mon classeur s'appelle avec un nom en 2 mots, celà ne fonctionne plus, exemple :
Sub jj() chemin = "C:utilisatmétédis" nom = [feuil1!A2] & " " & [feuil1!A4] & ".xls" sav = chemin & nom Application.DisplayAlerts = False ActiveWorkbook.SaveAs sav End Sub
par ailleurs cette macro doit se déclencher lorsque je sors, je quitte la cellule A4.
par ailleurs cette macro doit se déclencher lorsque je sors, je quitte la
cellule A4.
Il me semble avoir répondu dans le fil précédent.
Copie:
Ceci sans le module de la feuille en question.
'---------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$A$4" Then Exit Sub
If [a2] <> "" And [a4] <> "" Then
jj 'ou le nom de ta macro
Else
MsgBox "Nom ou Prénom incorrecte"
End If
End Sub
'----------
JJ
"jack 43" <jack43@discussions.microsoft.com> a écrit dans le message de
news: 0687FDBB-F6B1-4F77-A7A9-7099BDF8096A@microsoft.com...
Bonsoir,
Voilà j'ai une macro qui enregistre dans le répertoire C:utilisatmétédis
le fichier au nom de la case A2 espace A4.xls
dans la macro si le nom de l'onglet de mon classeur s'appelle avec un nom
en
2 mots, celà ne fonctionne plus, exemple :
Sub jj()
chemin = "C:utilisatmétédis"
nom = [feuil1!A2] & " " & [feuil1!A4] & ".xls"
sav = chemin & nom
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sav
End Sub
par ailleurs cette macro doit se déclencher lorsque je sors, je quitte la
cellule A4.
par ailleurs cette macro doit se déclencher lorsque je sors, je quitte la cellule A4.
Il me semble avoir répondu dans le fil précédent.
Copie: Ceci sans le module de la feuille en question. '--------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address <> "$A$4" Then Exit Sub If [a2] <> "" And [a4] <> "" Then jj 'ou le nom de ta macro Else MsgBox "Nom ou Prénom incorrecte" End If End Sub '---------- JJ
"jack 43" a écrit dans le message de news:
Bonsoir,
Voilà j'ai une macro qui enregistre dans le répertoire C:utilisatmétédis
le fichier au nom de la case A2 espace A4.xls
dans la macro si le nom de l'onglet de mon classeur s'appelle avec un nom en 2 mots, celà ne fonctionne plus, exemple :
Sub jj() chemin = "C:utilisatmétédis" nom = [feuil1!A2] & " " & [feuil1!A4] & ".xls" sav = chemin & nom Application.DisplayAlerts = False ActiveWorkbook.SaveAs sav End Sub
par ailleurs cette macro doit se déclencher lorsque je sors, je quitte la cellule A4.
