VBA Excel: erreur d'execution '438' lors du copier / coller Résolu/Fermé

Question

Bonjour, 

Je bidouille un peu en VBA, mais je ne suis pas très douée (j'apprends lors de chaque macro toute seule).

Je vous explique mon problème, si quelqu'un a une idée par hasard.

J'ai un fichier excel qui contient la macro, je lui demande d'ouvrir un fichier csv, je veux récupérer le contenu du fichier, et le coller dans un onglet de mon fichier excel de base.

Voici le code que j'ai utilisé:

Sub test()Dim Brut1 As String    Dim fd As FileDialog    Set fd = Application.FileDialog(msoFileDialogOpen)    Dim vrtSelectedItem As Variant     With fd        .AllowMultiSelect = True                If .Show = -1 Then             .Execute        Else            Exit Sub        End If    End With    Workbooks(2).Columns("A:A").Value = ThisWorkbook.Worksheets("Brut1").Columns("A:A").Value    End Sub 


J'ai l'erreur '438' proprieté ou méthode non gérée par cet objet sur cette ligne de code
Workbooks(2).Columns("A:A").Value=ThisWorkbook.Worksheets("Brut1").Columns("A:A").Value

J'ai essayé d'autres codes pour ce copier coller mais toujours cette erreur
Workbooks(2).Columns("A:A").Copy _    Destination:=ThisWorkbook.Worksheets("Brut1").Columns("A:A")
 
Et aussi
    Workbooks(2).Activate    Cells.Select    Selection.Copy    ThisWorkbook.Activate    Worksheets("Brut1").Activate    Range("A1").Select    Selection.Paste

Si quelqu'un a une idée je serai preneuse :))

Merci d'avance

Bonne soirée

Aurélie
Configuration: Windows / Chrome 87.0.4280.66

Patrice33740 · Answer

Bonjour,

Avec ce code :
Option Explicit
Sub test()
Dim wbk As Workbook
Dim rng As Range
Dim cel As Range
Dim nom As String
  
  With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    If .Show = -1 Then
      nom = .SelectedItems.Item(1)
      ' Ouvrir le fichier csv "français" avec séparateur point virgule
      Set wbk = Workbooks.Open(Filename:=nom, Format:=4, local:=True)

' pour un cvs "anglais" avec séparateur virgule, remplacer la ligne précédente par :
' Set wbk = Workbooks.Open(Filename:=nom, Format:=2, local:=False)
      
      ' Plage source
      Set rng = wbk.Worksheets(1).UsedRange
      ' Cellule de destination
      Set cel = ThisWorkbook.Worksheets("Brut1").Range("A1")
      ' Copie des valeurs
      cel.Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value
      ' Fermer le fichier csv
      wbk.Close False
    End If
  End With

End Sub

Aurelie000 · Answer

Bonjour Patrice, 

Merci beaucoup !!!
Ca faisait 2 jours que je tournais en rond avec cet erreur. J'avais beau chercher sur internet, je n'ai pas réussi toute seule.

Ton code marche super bien, merci encore.

Question bete: as tu remarquer quelque chose qui n'allait pas dans ma façon de faire?

Bonne journée

Aurelie000 · Answer

Merci beaucoup pour tes conseils. J'en prends note ;)

VBA Excel: erreur d'execution '438' lors du copier / coller

3 réponses

Discussions similaires