Bonjour

Je sollicite votre aide pour aboutir mon projet VBA.
Je suis sous seven, office 2010..

Tous les mois, je dois collationner 5 à 8 fichiers Excel ayant la même structure, même type de données et même nombre d'onglets (2).

J'ai avec une macro bien avancé, mais j'ai un souci dans la sélection des cellules à copier. Effectivement, je souhaiterai, dans l'idéal, sélectioner plusieurs plages : du style (F7:G119),(I7:J119).
Sinon, si cela semble compliqué, alors dans ma sélection globale : (F7:AF119) lui demander de na pas copier/coller les cellules contenant des formules.

Les données à importer ne sont que des chiffres, je ne souhaite pas importer les titres en haut de colonne ni de la colonne de gauche, c'est pourquoi ma sélection ne commence qu'en "F7".

Evidemment, je ferai une macro pour chaque classeur, car chaque classeur à son onglet de destination dans le fichier "recup".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RecupCopyFrmRecordset()
 ' Microsoft ActiveX DataObject doit être coché
  Sheets("Feuil3").Select
  Set cnn = New ADODB.Connection
  répertoire = ThisWorkbook.Path
  fichier = "Base de données.xlsx"
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & répertoire & "\" & fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
  Set rs = cnn.Execute("[A2:O28]")
  [D5].CopyFromRecordset rs
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub
D'avance merci, désolé de la longueur du texte, mais j'essaie d'être précis pour que vous puissiez comprendre mon problême.

Merci

Cordialement.