Discussion :

[yan971]

Bonjour,

En stage ..on me demande de crée une macro pour reporter les colonnes d'un feuille qui sert de base de données "générale" pour des statistiques sur la 1er feuilles de 3 autres classeurs.

Sur chaque colonne, l'entête indique le Secteur au quel sont rattacher les données soit pour les secteurs A,C et M.

Les colonnes "A" doivent s'incrémenter les une derrière les autres sur la 1er feuille du classeur du Secteur "Amb".

Les colonnes "M" doivent s'incrémenter les une derrière les autres sur la 1er feuille du classeur du Secteur "Mater".

Et ainsi pour le 3ieme classeur également.

Contraintes:

Les 2 premières colonnes (A et B) pour chaque feuille donne les valeurs de lignes (date, numéro, question 1, question 2 ...ect) : les colonnes de données reporter doivent donc s'incrémenter a partir de la colonne C

Dans l'absolu, la 1er ligne de la feuille "générale" ne doit pas être reporter (celle contenant les entête A, C et M) mais au pire je ferai une macro ou des lignes dans la macro pour supprimer la ligne.

j'avoue débuter en VBA et n'est pour l'instant fait que de petite macro local (sur un même classeur).

Mais j'ai tout de même relevé le défi car j'ai le désir d'appendre plus de ce langage.

Mais malheureusement peu de temps pour ce projet ( fin de semaine).

je remercie d'avance, tout ceux qui peuvent me faire avancé dans ce projet.

Cordialement,

Yan

[Menhir]

Une macro sur plusieurs classeurs, ce n'est pas beaucoup plus compliqué que dans plusieurs onglets d'un même classeur.

Il suffit de rajouter à quel fichier (Worksbook) appartient l'onglet (Worksheet) que tu as à traiter.

Il est impératif (ou, du moins, préférable) que chaque classeur soit ouvert pendant le traitement.
La macro elle-même peut ouvrir des classeurs si nécessaire, en utilisant la méthode Open de la collection Workbooks.

[yan971]

Bonjour,

Tout d'abord, je remercie "menhir" pour son conseil sur les classeurs ouverts et pour le reste.

Depuis hier, suite à des recherches j'ai trouvé un code qui me semblai approchant de mon projet, j'ai réadapté avec mes variables, je l'ai exécuté mais juste çà m'ouvre une fenêtre avec le contenu de "Documents" quand j'enlève les "*" autour de "xls et que je le colle au nom du fichier avec un "."pour les séparer, çà me donne un message d'erreur : "Erreur d'exécution '1004': la méthode 'getOpenFilename' de l'objet'_application' a échouer".

Doit je spécifié un chemin sur cette ligne ou même sur une autre ?

Voici le code que j'ai tenter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
 
Sub Importer_Colonnes_Mater()
'
Dim Fichier, WbkCopy As Workbook, WbkColle As Workbook
Dim Colonnes(), Col As Integer, Resultat As Variant
 
'On attribue à la variable WbkColle le fichier actuel
  Set WbkColle = ThisWorkbook
  '
'Nom des entêtes de colonnes à importer
  Colonnes = Array("M")
'
'Sélection du fichier
  Fichier = Application.GetOpenFilename("URB-QSP_2ieme_Trim_2015_Generale, *.xlsx*")
  '
'En cas de clic sur "ANNULER"
  If Fichier <> False Then
   '
'On ouvre le fichier
    Set WbkCopy = Workbooks.Open("URB-QSP_2ieme_Trim_2015_Generale, *.xlsx*") 'Classeur de la base de données
    With WbkCopy.Sheets("Données_2ieme_Trim_2015") 'Feuille de la base de données
   '
'Boucle sur toutes les entêtes des colonnes
      For Col = 1 To .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
   '
'teste si l'entête correspond à un des noms des colonnes à copier
        Resultat = Application.Match(.Cells(1, Col), Colonnes, 0)
   '
'Si l'entête est trouvée
        If Not IsError("M") Then
   '
          'NOM de la 1ier feuille du Classeur Mater vvv
          .Columns(Col).Copy WbkColle.Sheets("Données_Mater_2ieme_Trim_2015").Cells(1, Cells.Columns.Count).End(xlToLeft).Offset(0, 1)
'
 'Je n'est pas encore trouver le code pour exempter les 2 premières colonnes de la zone de copie 
'
        End If
      Next Col
    End With
    WbkCopy.Close
  End If
Set WbkCopy = Nothing
Set WbkColle = Nothing
End Sub

Qu'en pensez-vous ?
Suis loin du compte ? ...voir complétement a côté de la plaque ?
Des erreurs de syntaxe ?