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
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