Bonjour à tous le forum,
Voilà j'ai commencé une macro qui pour l'instant me permet d'ouvrir plusieurs classeurs contenant chacun un tableau sur le même format :
Public Sub Importation()
Dim varReturn As Variant, intloop As Integer
varReturn = Application.GetOpenFilename(, , , , True)
If TypeName(varReturn) = 'Boolean' Then Exit Sub
If TypeName(varReturn) = 'String' Then
Workbooks.Open CStr(varReturn)
Else
For intloop = 1 To UBound(varReturn) Step 1
Workbooks.Open CStr(varReturn(intloop))
Next intloop
End If
End Sub
Maintenant que mes classeurs sont ouverts je voudrais copier les données de mes tableaux sur une seule feuille suivant ce principe : toutes les données du classeur A à partir de la cellule A1, toutes les données du classeur B à partir de la cellule M1, toutes les données du classeur C à partir de la cellule Y1, etc...
J'aimerais utiliser le code ActiveSheet.UsedRange.Select
mais je bloque pour l'ajouter à mon début de macro !
Si quelqu'un pouvait me dépanner ...
Voilà j'ai commencé une macro qui pour l'instant me permet d'ouvrir plusieurs classeurs contenant chacun un tableau sur le même format :
Public Sub Importation()
Dim varReturn As Variant, intloop As Integer
varReturn = Application.GetOpenFilename(, , , , True)
If TypeName(varReturn) = 'Boolean' Then Exit Sub
If TypeName(varReturn) = 'String' Then
Workbooks.Open CStr(varReturn)
Else
For intloop = 1 To UBound(varReturn) Step 1
Workbooks.Open CStr(varReturn(intloop))
Next intloop
End If
End Sub
Maintenant que mes classeurs sont ouverts je voudrais copier les données de mes tableaux sur une seule feuille suivant ce principe : toutes les données du classeur A à partir de la cellule A1, toutes les données du classeur B à partir de la cellule M1, toutes les données du classeur C à partir de la cellule Y1, etc...
J'aimerais utiliser le code ActiveSheet.UsedRange.Select
mais je bloque pour l'ajouter à mon début de macro !
Si quelqu'un pouvait me dépanner ...
