copier-coller des cellules d'un fichier vers un autre grace à une macro

[darmayan]

Bonjour à tous ,

Je voudrais copier-coller des cellules d'un fichier vers un autre fichier grâce à une macro. J'ai commencé ma macro (en fichier joint) mais cette dernière ne marche pas.

Étant un débutant en VBA; je fais appelle à votre connaissance 🙂

Merci à tous,

 

[Guest]

Re : copier-coller des cellules d'un fichier vers un autre grace à une macro

Bonjour,

Elle est où la macro?????
Plus de détails sur l'origine (quelles cellules copier?) et la destination (quel classeur, quelle feuille etc....?) seraient les bienvenues.

A+

 

[darmayan]

Re : copier-coller des cellules d'un fichier vers un autre grace à une macro

Salut,
Voici la macro, sa répondra à tes questions je crois(dsl).

Pour ce qui est de la destination sa va vers un fichier qu'on a crée au préalable, dans la feuille1.

Merci

 

[Guest]

Re : copier-coller des cellules d'un fichier vers un autre grace à une macro

Re,

voici ta macro modifiée

Vérifier les noms de feuille j'ai pris des noms de feuille adaptés à mes tests.

Sub COPIESTRUCTURE()
    Dim Sortie As Workbook
    Dim FeuilleOrigine As Worksheet, FeuilleDestination As Worksheet
    
    'Référence la feuille origine des données à copier
    Set FeuilleOrigine = ThisWorkbook.Sheets("feuil1")
    
    NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
    ' On verifie que l'on a selectionné un nom de classeur
    If NomFichierSortie <> False Then
        ' On ouvre le classeur
        Set Sortie = Workbooks.Open(NomFichierSortie)
        
        'Référence la feuille de destination des cellules copiées
        Set FeuilleDestination = Sortie.Sheets("Sheet3")
        ' On copie les cellules de la feuille désirée vers la feuille de sortie
        With FeuilleOrigine
            .Range("A10:A125").Copy Destination:=FeuilleDestination.Range("A10")
            .Range("C10:C125").Copy Destination:=FeuilleDestination.Range("C10")
            .Range("G10:G125").Copy Destination:=FeuilleDestination.Range("G10")
        End With
    
        ' On ferme le classeur
        Sortie.Close
    End If
End Sub

A+

 

[darmayan]

Re : copier-coller des cellules d'un fichier vers un autre grace à une macro

Merci beaucoup, c'est ce qu'il me fallait

 

[darmayan]

Re : copier-coller des cellules d'un fichier vers un autre grace à une macro

Re,
j'ai un dernier problème, je voudrais copier juste les valeurs de mes cellules sans les formules qui vont avec car cela me met des erreurs de références.

Cela est-il possible

 

[darmayan]

Re : copier-coller des cellules d'un fichier vers un autre grace à une macro

Re,
J'ai réussi à me débrouiller avec le collage des valeurs uniquement par contre j'aimerai maintenant copier que mes cellules visibles. Est-ce que quelqu'un aurait une idée?

Merci à vous tous;

 

[Guest]

Re : copier-coller des cellules d'un fichier vers un autre grace à une macro

Re,

Pour copier uniquement les cellules visibles:

.Range("A10:A125[SIZE=3][COLOR=red]").SpecialCells(xlCellTypeVisible).[/COLOR][/SIZE]Copy Destination:=FeuilleDestination.Range("A10")

A+

 

[darmayan]

Re : copier-coller des cellules d'un fichier vers un autre grace à une macro

Merci Hasco pour ton aide!!!
A+

 

[kakemphaton]

Re : copier-coller des cellules d'un fichier vers un autre grace à une macro

Bonjour,

Serait-il possible d'avoir le même résultat avec juste en plus, un copier coller les valeurs, car ici, se trouve les formules. Je sais qu'il faut mettre PasteSpecial Paste:=xlPasteValues, mais, je dois le mettre au mauvais endroit

Sub COPIESTRUCTURE()
    Dim Sortie As Workbook
    Dim FeuilleOrigine As Worksheet, FeuilleDestination As Worksheet
   
    'Référence la feuille origine des données à copier
    Set FeuilleOrigine = ThisWorkbook.Sheets("feuil1")
   
    NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
    ' On verifie que l'on a selectionné un nom de classeur
    If NomFichierSortie <> False Then
        ' On ouvre le classeur
        Set Sortie = Workbooks.Open(NomFichierSortie)
       
        'Référence la feuille de destination des cellules copiées
        Set FeuilleDestination = Sortie.Sheets("Sheet3")
        ' On copie les cellules de la feuille désirée vers la feuille de sortie
        With FeuilleOrigine
            .Range("A10:A125").Copy Destination:=FeuilleDestination.Range("A10")
            .Range("C10:C125").Copy Destination:=FeuilleDestination.Range("C10")
            .Range("G10:G125").Copy Destination:=FeuilleDestination.Range("G10")
        End With
   
        ' On ferme le classeur
        Sortie.Close
    End If
End Sub

merci d'avance !

 

[kakemphaton]

Re : copier-coller des cellules d'un fichier vers un autre grace à une macro

Je viens de trouver, il suffit de compléter le .range par

.Range("a1:n65536").Copy
Sheets("BASE FINALE").Range("c" & Sheets("BASE FINALE").Range("c65536").End(xlUp).Row).PasteSpecial Paste:=xlPasteValues

Ce forum nous grandit ! lol