Bonjour à tous ,
une personne du forum ma gentiment fais une VBA qui fonctionne , mais je voudrais l'améliorer
voici la VBA :
Sub Copier()
Dim source As Workbook, dest As Workbook, n%
On Error Resume Next
Set source = Workbooks("Recupe_Resultat.xlsm") 'à adapter
Set dest = Workbooks("model_prono.xlsm") 'à adapter
If Err Then MsgBox "Les 2 fichiers 'Recupe' et 'model' doivent être ouverts...": Exit Sub
On Error GoTo 0
If source.Worksheets.Count <> dest.Worksheets.Count Then MsgBox "Le nombre des feuilles de calcul n'est pas le même !", 48: Exit Sub
For n = 1 To source.Worksheets.Count
source.Worksheets(n).Range("A3862").Copy dest.Worksheets(n).Range("AX43")
Next
End Sub
Donc je récupère les même informations sur plusieurs feuilles en A3862 et les copies sur un autre classeur, pour cela c bon, mon problème c que c informations que je récupère ne sont pas forcement au même endroit sur les feuilles
je vous joint une capture d'écran.
je voudrais récupère a partir du mot "Jeu Simple (1 €)" à 2 sur 4 (3 €) de toutes les feuilles .
merci à vous
bien à vous
une personne du forum ma gentiment fais une VBA qui fonctionne , mais je voudrais l'améliorer
voici la VBA :
Sub Copier()
Dim source As Workbook, dest As Workbook, n%
On Error Resume Next
Set source = Workbooks("Recupe_Resultat.xlsm") 'à adapter
Set dest = Workbooks("model_prono.xlsm") 'à adapter
If Err Then MsgBox "Les 2 fichiers 'Recupe' et 'model' doivent être ouverts...": Exit Sub
On Error GoTo 0
If source.Worksheets.Count <> dest.Worksheets.Count Then MsgBox "Le nombre des feuilles de calcul n'est pas le même !", 48: Exit Sub
For n = 1 To source.Worksheets.Count
source.Worksheets(n).Range("A3862").Copy dest.Worksheets(n).Range("AX43")
Next
End Sub
Donc je récupère les même informations sur plusieurs feuilles en A3862 et les copies sur un autre classeur, pour cela c bon, mon problème c que c informations que je récupère ne sont pas forcement au même endroit sur les feuilles
je vous joint une capture d'écran.
je voudrais récupère a partir du mot "Jeu Simple (1 €)" à 2 sur 4 (3 €) de toutes les feuilles .
merci à vous
bien à vous