Transfers de donnees d'un classeur vers un autre

[inviteb8c456c1]

Salut cher tous !!!!
j´essaie de creer une macro excel pour transferer les differentes valeurs (X) d´un classeur "presence" dans un autre classeur "General".
j´aimerai en fait avoir un button sur le classeur general à travers lequel les valeurs X du classeur Presence sont transferees.
il est important de ne copier que les cellules du classeur Presence contenant les valeurs X et pas les cellules vides ceci pour eviter de modifier les autres valeurs porteés dans le classeur general.

n´ayant pas de connaissance excel. je vous prie de me venir en aide car ce transfers de donneés automatique me sera d´une tres grosse aide.
je vous remercie par avance.
en attaché un example des fichiers que j´exploite.

Merci par avance pour votre aide.

BR
-----

[inviteec2f08ae]

Bonjour à toi,

Pour que je comprenne: c'est quoi le classeur général: Il sert à quoi ? Y, A, W, S, Q, R etc, c'est quoi ?

Il serait bien que tu mettes ça dans un seul classeur avec 2 feuilles (général et présence).

Après faut voir: tu connais le VBA ?

@+

Cyrille

[invite8f1e9402]

Bonjour tout le monde,
Je crois que ce qui se trouve dans le fichier Presence.xlsx n'a pas d'importance puisqu'il n'y a pas de formules dedans. Ici on a des X,
J'ai traité le pb sous Excel 2003, mais le code sera le même sous une version ultérieure. Les fichiers qui sont dans la pièce jointe sont en Excel 2003.
Prérequis : savoir mettre un bouton sur une feuille et insérer un code VBA dedans.

Private Sub CommandButton1_Click()
    Dim I As Integer, J As Integer
    Dim Wbk1 As Workbook 'Classeur general.xls
    Dim Wbk2 As Workbook ' Classeur Presence.xls
    
    Set Wbk1 = ThisWorkbook ' Classeur general.xls
    ' On ouvre le classeur Presence.xls. Il doit se trouver dans le
    ' même dossier que le classeur general.xls
    Set Wbk2 = Workbooks.Open(ThisWorkbook.Path & "\Presence.xls")
    
    ' On importe les cellules non vides du classeur Presence.xls 
    For J = 6 To 15
        For I = 3 To 16
            If Wbk2.Worksheets("Tabelle1").Cells(J, I) <> "" Then
                Wbk1.Worksheets("Tabelle1").Cells(J, I) = Wbk2.Worksheets("Tabelle1").Cells(J, I)
            End If
        Next I
    Next J
    ' On ferme le classeur Presence.xls sans sauvegarde pour des raisons de sécurité
    Wbk2.Close False
End Sub