Transférer des données d'un classeur à un autre sans copy/paste

Bonjour à tous,

Je suis débutant en VBA et j'aimerais transférer des données spécifiques d'un tableau à un autre sur deux différents classeurs avec un bouton. J'appelle donc à votre aide les pros!

Premièrement, le tableau initial est le classeur "Tableau Compagnie". Je dois prendre le numéro, la description, la date effectuée et le montant total et les insérer au bon endroit dans le classeur "Tableau Client" pour le présenter au client. Le montant doit aller seulement dans la colonne de la bonne catégorie.

En théorie c'est simple. C'est juste que j'ai un plus gros tableau avec des données confidentielles qui est parfois énormes (env. 200 lignes). J'ai créer un code, mais il ne fonctionne pas en raison du grand volume d'information. Auriez-vous un moyen simple et rapide de bien les exporter?

J'attends de vos nouvelles et je serai disponible pour vos questions.

Merci Beaucoup!

Bonjour

Votre fichier tableau compagnie ne contient pas le code dont vous parlez

Je dois prendre le numéro, la description, la date effectuée et le montant total et les insérer au bon endroit dans le classeur "Tableau Client"

Si on prend les lignes 11 et 12, comment on peut deviner où les données doivent aller où dans votre tableau clients ? Les titres de colonnes ne correspondent pas

Salut Dan,

Tu as bien raison, voici le bon classeur prenant en charge les macros. Pour les catégories, je crois que c'est assez clair. Ce ne sont pas les mêmes colonnes, mais ils ont les mêmes titres. Pour la date dans le tableau client, c'est la date effectué dans le tableau compagnie.

Merci,

En fait, ma macro fonctionne c'est juste quelle prends beaucoup trop de temps à être réalisée. Pour un petit fichier comme celui-ci, c'est pas si grave, mais pour un fichier 15 fois plus gros, c'est interminable. Je cherche seulement un moyen de le rendre plus efficace.

Merci,

Bonjour

Le code est presque fini mais deux petites questions :

- Juste pour confirmer --> Votre code se trouve bien dans le fichier Tableau compagnie
- La colonne Commentaire est complétée comment ??

Cordialementt

Bonjour Dan,

Oui, le code est dans le classeur "Tableau Compagnie" et la colonne commentaires est remplie à la main au besoin par le client. Nous ne faisons rien dans cette colonnes pour notre part.

Merci beaucoup!

Essayez avec ce code

Sub Envoyer_Client()

Dim nom As String
Dim nom_2 As String
Dim nom_complet As String
Dim nom_complet_2 As String
Dim J As Integer
Dim K As Integer
Dim U As Integer

nom_complet = Workbooks(ActiveWorkbook.Name).FullName
nom = Workbooks(ActiveWorkbook.Name).Name

nom_complet_2 = Left(nom_complet, Len(nom_complet) - 14) + "Client.xlsx"
Workbooks.Open Filename:=nom_complet_2

nom_2 = Workbooks(ActiveWorkbook.Name).Name

K = 4
J = 11
Do While ThisWorkbook.Sheets("feuil1").Cells(J, 4) <> ""

    With Workbooks(nom_2).Sheets("Feuil1")
        .Cells(K, 1) = ThisWorkbook.Sheets("Feuil1").Cells(J, 1) 'numero
        .Cells(K, 2) = ThisWorkbook.Sheets("Feuil1").Cells(J, 4) 'description
        .Cells(K, 3) = CDate(ThisWorkbook.Sheets("Feuil1").Cells(J, 7)) 'date_effectue

        Select Case ThisWorkbook.Sheets("Feuil1").Cells(J, 3) 'catégorie
            Case Is = "Directives": U = 4
            Case Is = "Feuille de temps": U = 5
            Case Is = "Matériel en location": U = 6
            Case Is = "Autres": U = 7
        End Select
        .Cells(K, U) = ThisWorkbook.Sheets("Feuil1").Cells(J, 9) 'montant
    End With

    J = J + 1
    K = K + 1
Loop
End Sub

Cordialement

Ça marche à merveille!! Mille merci Dan!

Aux plaisirs,

Ok.

Cordialement