Copier une partie d'une colonne dans un autre excel- VBA

**S.Mag** · 02/06/2017, 10h25

Bonjour, j'essaye de copier des colonnes (mais partiellement, cad des plages de ces colonnes), ceci d'une manière automatique pour plusieurs fichiers.

Je suis dans la première étape de copier coller pour un seul fichier excel vers un autre.

Je réussie à copier une cellule à la fois mais pas plusieurs cellules à la fois pour un seul fichier.

j'ai ce code pour copier une cellule qui fonctionne:

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
Sub foo5()
    Dim y As Workbook
    Dim sourcePath As String, sourceFile As String, destFullPath As String 
 
    sourcePath = "Z:\VBA\" 
    sourceFile = "PARA__Casa_Idron_64__19102016.xlsx" '<--| specify your source file name only, with its extension
    destFullPath = "Z:\VBA\copyColumns.xlsx" '<--| specify your destination file FULL path
 
    If Dir(destFullPath) = "" Then '<--| check is such a file actually exists
        MsgBox "File " & vbCrLf & vbCrLf & destFullPath & vbCrLf & vbCrLf & "is not there!" & vbCrLf & vbCrLf & vbCrLf & "The macro stops!", vbCritical
    Else
        Set y = Workbooks.Open(destFullPath)
 
        With y.Sheets("Feuil1").Range("B1")
            .Formula = "='" & sourcePath & "[" & sourceFile & "]Para RF'!C33"
            .Value = .Value
 
        End With
 
 
 
        'y.Close SaveChanges:=True
    End If
End Sub

alors que lorsque je généralise pour plusieurs cellules, mais toujours dans la même colonne, comme dans ce code:

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
Sub foo4()
    Dim y As Workbook
    Dim sourcePath As String, sourceFile As String, destFullPath As String, i As Integer '<--| not necessary, but useful not to clutter statements
 
    sourcePath = "Z:\VBA\" '<--| specify your source file path down to the last backslash and with no source file name
    sourceFile = "PARA__Casino_Idron_64__19102016.xlsx" '<--| specify your source file name only, with its extension
    destFullPath = "Z:\VBA\copyColumns.xlsx" '<--| specify your destination file FULL path
 
    If Dir(destFullPath) = "" Then '<--| check is such a file actually exists
        MsgBox "File " & vbCrLf & vbCrLf & destFullPath & vbCrLf & vbCrLf & "is not there!" & vbCrLf & vbCrLf & vbCrLf & "The macro stops!", vbCritical
    Else
        Set y = Workbooks.Open(destFullPath)
     For  i = 23 to 33
        With y.Sheets("Feuil1").Range("B" & i - 10)
            .Formula = "='" & sourcePath & "[" & sourceFile & "]Para RF'!C&i"
            .Value = .Value
 
        End With
 
        'y.Close SaveChanges:=True
    End If
End Sub

Sachant que ce que je copie contients des formules, moi je veux copier le résultats final et pas la formule.

Merci d'avance pour vos aides et vos propositions!!

Cheers!

**Jean-Philippe André** · 02/06/2017, 10h32

Salut,

tu peux passer par un Range().Copy+PasteSpecial

Voir l'aide en ligne

sur la syntaxe ou la

**riaolle** · 02/06/2017, 10h33

Bonjour et bienvenue au forum !
Un peu tordu comme façon de faire pour COPIER-COLLER des données. Pourquoi ne pas simplement COPIER-COLLER ?
Un exemple (soit sh1 et sh2, 2 feuilles):

Code :

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

sh1.Range("A1:B10").Copy destination:=sh2.Range("B3")

Ici je copie la plage A1:B10 de la feuille sh1 et je la colle à partir de la cellule B3 de la feuille sh2.
Sauras-tu adapter à ton cas ?

EDIT : je n'ai pas bien lu la fin, du coup, Jean-Philippe André a raison --> il faut plutôt passer par Copy + PasteSpecial, un exemple :

Code :

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

1
2
sh1.Range("A1:B10").Copy 
sh2.Range("B3").PasteSpecial(xlPasteValues)

**S.Mag** · 02/06/2017, 10h40

j'ai essayer ces deux codes aussi mais ça marche pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim x As Workbook
Dim y As Workbook
 
'## Open both workbooks first:
Set x = Workbooks.Open("Z:\VBA\PARA__Casa_Idron_64__19102016_VBA.xlsm")
Set y = Workbooks.Open("Z:\VBA\copyColumns.xlsx")
 
 
    On Error Resume Next
    x.Sheets("Para RF").Range("C23:D30").Copy _
    y.Sheets("Feuil1").Range("A1")
End Sub

et l'autre:

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
Sub foo()
Dim x As Workbook
Dim y As Workbook
 
'## Open both workbooks first:
Set x = Workbooks.Open("Z:\VBA\PARA__Casa_Idron_64__19102016_VBA.xlsm")
Set y = Workbooks.Open("Z:\VBA\copyColumns.xlsx")
 
'Now, copy what you want from x:
x.Sheets("Para RF").Range(Cells(23, 3), Cells(24, 3)).Copy y.Sheets("Feuil1").Range("A1").End(xlUp).Row
 
'Now, paste to y worksheet:
'y.Sheets("Feuil1").Range("A").Value = x.Sheets("Para RF").Range("C23")
 
'Close x:
x.Close SaveChanges:=False
 
End Sub

**riaolle** · 02/06/2017, 10h48

ça marche pas.

Peux-tu être plus précis ? Quoi ? Quand ? Où ? Comment ?

Code :

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

x.Sheets("Para RF").Range(Cells(23, 3), Cells(24, 3)).Copy y.Sheets("Feuil1").Range("A1").End(xlUp).Row

Tu ne peux pas coller sur une ligne, mais sur une cellule. De plus, y.Sheets("Feuil1").Range("A1").End(xlUp) te donne la dernière cellule non vide, donc là tu colles "par dessus" quelque chose.

Code :

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

x.Sheets("Para RF").Range(Cells(23, 3), Cells(24, 3)).Copy y.Sheets("Feuil1").Range("A1").End(xlUp).Offset(0, 1)

**S.Mag** · 02/06/2017, 10h51

Envoyé par riaolle

Bonjour et bienvenue au forum !
Un peu tordu comme façon de faire pour COPIER-COLLER des données. Pourquoi ne pas simplement COPIER-COLLER ?
Un exemple (soit sh1 et sh2, 2 feuilles):

Code :

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

sh1.Range("A1:B10").Copy destination:=sh2.Range("B3")

Ici je copie la plage A1:B10 de la feuille sh1 et je la colle à partir de la cellule B3 de la feuille sh2.
Sauras-tu adapter à ton cas ?

EDIT : je n'ai pas bien lu la fin, du coup, Jean-Philippe André a raison --> il faut plutôt passer par Copy + PasteSpecial, un exemple :

Code :

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

1
2
sh1.Range("A1:B10").Copy 
sh2.Range("B3").PasteSpecial(xlPasteValues)

j'ai essayé cela mais c'est bizarre ça me donne ce que j'ai copier du text il y a quelque sec mdr:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test1()
Dim x As Workbook
Dim y As Workbook
 
'## Open both workbooks first:
Set x = Workbooks.Open("Z:\VBA\PARA__Casino_Idron_64__19102016_VBA.xlsm")
Set y = Workbooks.Open("Z:\VBA\copyColumns.xlsx")
 
 
    On Error Resume Next
    x.Sheets("Para RF").Range("C23:D30").Copy _
    y.Sheets("Feuil1").Range("B1").PasteSpecial
End Sub

**Menhir** · 02/06/2017, 11h03

Envoyé par S.Mag

Code :

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

    On Error Resume Next

Mauvaises idée...

Ce genre de code ne résout pas les problèmes, il ne fait que les masquer.

Code :

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

1
2
x.Sheets("Para RF").Range("C2330").Copy _
y.Sheets("Feuil1").Range("B1").PasteSpecial

Il y a un "_" en trop.
Il relie deux méthodes sur une même ligne, comme si tu mettais la méthode PasteSpécial comme paramètre de la méthode Copy.
Ce sont deux lignes séparées.
Si tu veux mettre l'adresse de destination en paramètre de Copy, il faut enlever le PasteSpecial.
Sauf que ça va copier l'intégralité de la cellule source et non seulement la valeur.

Voir le code que j'ai donné auparavant.

**Menhir** · 02/06/2017, 10h45

Envoyé par S.Mag

j'ai ce code pour copier une cellule qui fonctionne:

Code :

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

1
2
3
4
5
6
7
8
9
    If Dir(destFullPath) = "" Then '<--| check is such a file actually exists
        MsgBox "File " & vbCrLf & vbCrLf & destFullPath & vbCrLf & vbCrLf & "is not there!" & vbCrLf & vbCrLf & vbCrLf & "The macro stops!", vbCritical
    Else
        Set y = Workbooks.Open(destFullPath)
     For  i = 23 to 33
        With y.Sheets("Feuil1").Range("B" & i - 10)
            .Formula = "='" & sourcePath & "[" & sourceFile & "]Para RF'!C&i"
            .Value = .Value
        End With

Il est plus simple d'ouvrir aussi le fichier source et de faire une copie classique.

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
    Dim x As Workbook
 
    If Dir(destFullPath) = "" Then '<--check si le fichier destination existe
        MsgBox "File " & vbCrLf & vbCrLf & destFullPath & vbCrLf & vbCrLf & "is not there!" & vbCrLf & vbCrLf & vbCrLf & "The macro stops!", vbCritical
        Exit Sub
    End If
    If Dir(sourcePath & sourceFile) = "" Then '<--check si le fichier source existe
        MsgBox "File " & vbCrLf & vbCrLf & sourcePath & sourceFile & vbCrLf & vbCrLf & "is not there!" & vbCrLf & vbCrLf & vbCrLf & "The macro stops!", vbCritical
        Exit Sub
    End If
 
    Set x = Workbooks.Open(sourcePath & sourceFile)
    Set y = Workbooks.Open(destFullPath)
 
    x.Sheets("Para RF").Range("C23:C33").Copy
    y.Sheets("Feuil1").Range("B13").PasteSpecial(xlPasteValues)

Je te laisse terminer le code avec les "Close" qui vont bien si tu le souhaites.

**S.Mag** · 02/06/2017, 10h58

Envoyé par Menhir

Il est plus simple d'ouvrir aussi le fichier source et de faire une copie classique.

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
    Dim x As Workbook
 
    If Dir(destFullPath) = "" Then '<--check si le fichier destination existe
        MsgBox "File " & vbCrLf & vbCrLf & destFullPath & vbCrLf & vbCrLf & "is not there!" & vbCrLf & vbCrLf & vbCrLf & "The macro stops!", vbCritical
        Exit Sub
    End If
    If Dir(sourcePath & sourceFile) = "" Then '<--check si le fichier source existe
        MsgBox "File " & vbCrLf & vbCrLf & sourcePath & sourceFile & vbCrLf & vbCrLf & "is not there!" & vbCrLf & vbCrLf & vbCrLf & "The macro stops!", vbCritical
        Exit Sub
    End If
 
    Set x = Workbooks.Open(sourcePath & sourceFile)
    Set y = Workbooks.Open(destFullPath)
 
    x.Sheets("Para RF").Range("C23:C33").Copy
    y.Sheets("Feuil1").Range("B13").PasteSpecial(xlPasteValues)

Je te laisse terminer le code avec les "Close" qui vont bien si tu le souhaites.

Merci ça marche maintenant!

il fallait mettre (xlPasteValues)

Mais j'ai remarqué que ceci ne marche pas lorsque dans ma plage il y a des cellules vides!
je fais quoi dans ce cas?

**Menhir** · 02/06/2017, 11h06

Envoyé par S.Mag

Mais j'ai remarqué que ceci ne marche pas lorsque dans ma plage il y a des cellules vides!

Pour la seconde fois, "ça ne marche pas", ce n'est pas une explication compréhensible.

Qu'est-ce que tu obtiens comme résultat ? En quoi ce résultat n'est-il pas satisfaisant ?

**S.Mag** · 02/06/2017, 11h09

Envoyé par Menhir

Pour la seconde fois, "ça ne marche pas", ce n'est pas une explication compréhensible.

Qu'est-ce que tu obtiens comme résultat ? En quoi ce résultat n'est-il pas satisfaisant ?

c'est à dire j'obtient rien du tout dans le fichier de destination: j'obtient du blanc comme si rien n'a été copier.
pas de bug dans le code, juste le résultat ne s'affiche pas.

**Menhir** · 02/06/2017, 11h13

Envoyé par S.Mag

c'est à dire j'obtient rien du tout dans le fichier de destination: j'obtient du blanc comme si rien n'a été copier.

C'est généralement ce qui se produit quand on copie une cellule vide, non ?
Si tu n'es pas plus descriptive...

Tu n'indiques même pas quel code tu utilises.

**riaolle** · 02/06/2017, 11h07

Mais j'ai remarqué que ceci ne marche pas lorsque dans ma plage il y a des cellules vides!
je fais quoi dans ce cas?

Normalement, les cellules vides ne posent pas de problèmes ... Es-tu sûre que c'est à cause des cellules vides ? Que se passe-t-il quand tu rencontres un problème (message d'erreur ? Lequel ? Où ?) ?

**S.Mag** · 02/06/2017, 11h21

Envoyé par riaolle

Normalement, les cellules vides ne posent pas de problèmes ... Es-tu sûre que c'est à cause des cellules vides ? Que se passe-t-il quand tu rencontres un problème (message d'erreur ? Lequel ? Où ?) ?

Tu as raison ce n'est pas les cellules vides, c'est les filtres qui ont posé problèmes! merci

**Philippe Tulliez** · 02/06/2017, 11h57

Bonjour,

Tu as raison ce n'est pas les cellules vides, c'est les filtres qui ont posé problèmes! merci

Manifestement, tu effectues la copie d'une ou plusieurs colonnes issues d'un filtre simple
En VBA, je te conseille d'utiliser la méthode AdvancedFilter (filtre avancé d'excel) de l'objet Range bien plus simple et rapide à mettre en place et te permettra de réaliser éventuellement des exportations avec d'autres critères sans modifier le code VBA

A lire éventuellement Les filtres avancés ou élaborés dans Excel

Copier une partie d'une colonne dans un autre excel- VBA [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager