Afficher 2 boîtes dialogues au lancement Macro afin de...

[Christian]

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

 

[@Christophe@]

Bonjour,

Voici un fichier avec ce que tu veux.

bonne chance

P.S. Pour accepté et lancé la macro, "dans texte à remplacé" fais double clic après avoir entré la valeur de remplacement.


Bonne journée

@Christophe@

 

[Christian]

Bonjour à tout le forum

Merci beaucoup, Christophe,
c'est impecc.

Amicalement
Christian