C
Christian
Guest
Bonjour à tout le forum,
J'ai enregistré cette macro et je souhaiterais voir s'afficher, au moment de son lancement 2 boîtes de dialoques : une affichant ; Texte de la selection : (expl je taperais "agents3.xls" , puis une deuxième ; Texte à replacer : (exlp je noterais "agents4.xls".
Merci pour votre aide
Bien amicalement
Christian.
la macro :
Sub MAJAGENTSXLS()
'
' MAJAGENTSXLS Macro
' Macro enregistrée le 08/11/2003 par Christian
'
ActiveSheet.Unprotect
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
End With
Cells.Select
Selection.Replace What:="Agents2.xls", Replacement:="Agents3.xls", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("J32").Select
End Sub
J'ai enregistré cette macro et je souhaiterais voir s'afficher, au moment de son lancement 2 boîtes de dialoques : une affichant ; Texte de la selection : (expl je taperais "agents3.xls" , puis une deuxième ; Texte à replacer : (exlp je noterais "agents4.xls".
Merci pour votre aide
Bien amicalement
Christian.
la macro :
Sub MAJAGENTSXLS()
'
' MAJAGENTSXLS Macro
' Macro enregistrée le 08/11/2003 par Christian
'
ActiveSheet.Unprotect
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
End With
Cells.Select
Selection.Replace What:="Agents2.xls", Replacement:="Agents3.xls", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("J32").Select
End Sub