Grouper 2 macros

[mcj1997]

Bonjour,

Je souhaite faire une macro des deux ci-dessous :

Sub occasion() ' Nom de la macro
Set fich = Workbooks.Open("nom et adresse du fichier")
With fich 'Sélection du fichier renommé fich
Workbooks("Classeur1.xls").Activate 'Ouverture du fichier cible
End 'Fin de boucle
End With 'fin de conditions

End Sub 'Clôture de la Macro
____________________________________________________

Sub neuf() ' Nom de la macro
Set fich = Workbooks.Open("nom et adresse du fichier
With fich 'Sélection du fichier renommé fich
Workbooks("Classeur1.xls").Activate 'Ouverture du fichier cible
End 'Fin de boucle
End With 'fin de conditions

End Sub 'Clôture de la Macro


Merci

 

[Dranreb]

Re : Grouper 2 macros

Bonjour
End, c'est pas une fin de boucle c'est un abandon d'exécution. D'ailleurs il n'y a pas de boucle dans vos macros.
Quest ce que vous voudriez que fasse votre macro unique ?
À+

 

[mcj1997]

Re : Grouper 2 macros

Désolé message envoyé trop rapidement.