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

Signaler
-
 Aurelie000 -
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

3 réponses

Messages postés
8348
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
16 janvier 2021
1 565
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
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
Messages postés
8348
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
16 janvier 2021
1 565
Bonjour,

Pour un début, c'est très bien.
Je conseille de toujours commencer les modules par Option Explicit, ça oblige à déclarer toutes les variables.

Il faut éviter les Activate et Select (bannir du code comme ton 3ème essai).

Il est mieux d'éviter Exit Sub, ça provoque un sortie prématurée de la procédure avec un risque d'oublier le retour au contexte initial.

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