erreur à la copie

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : erreur à la copie

yb19711

Bonjour
je n'arrive pas coller le contenu d'un fichier que je copie!
Si quelqu'un peu m'aider!
voici mon code:
Sub ChargerFichier()
Dim FichierCibles As String
'Ouverture du Fichier d'extraction Cibles
FichierCibles = Application.GetOpenFilename("Fichier Texte (*.txt) *.txt" )
If FichierCibles = "Faux" Then Exit Sub 'cliquer sur annuler
Workbooks.OpenText Filename:= _
FichierCibles Origin:= _
xlWindows StartRow:=1 DataType:=xlDelimited TextQualifier:= _
xlSingleQuote ConsecutiveDelimiter:=False Tab:=True Semicolon:=False _
Comma:=True Space:=False Other:=False FieldInfo:=Array(Array(1 1) _
Array(2 1) Array(3 1) Array(4 1) Array(5 1) Array(6 1)) TrailingMinusNumbers _
:=True
'Copie des valeurs du fichier extraction choisi
Cells.Select
Selection.Copy
ActiveWindow.Close
'Suppression des valeurs présentes dans l'onglet Cibles
Sheets("cibles" ).Select
Cells.Select
Selection.ClearContents
'Collage dans l'onglet Cibles des valeurs du fichier extraction
Cells.Select
ActiveSheets.Paste
Sheets("besoins matières" ).Select

End Sub

il me fais un erreur sur " ActiveSheets.Paste"
erreur d'exécution

Merci

Publicité

patrice33740

Avec la réponse, c'est facile.

Bonjour,

Essaies comme ça :

Code :

Option Explicit
Sub ChargerFichier()
Dim nomFichier As Variant
Dim wbkSource As Workbook
Dim wshCible As Worksheet
' Définir la feuille cible
Set wshCible = ThisWorkbook.Worksheets("cibles" )
' Supprimer les valeurs présentes dans l'onglet Cibles
wshCible.Cells.ClearContents
' Ouverture du fichier d'extraction Cibles
nomFichier = Application.GetOpenFilename("Fichier Texte (*.txt) *.txt" )
If nomFichier = False Then Exit Sub 'si clic sur Annuler
Set wbkSource = Workbooks.OpenText(Filename:=FichierCibles, Origin:=xlWindows, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True)
'Copie des valeurs du fichier extraction choisi
wbkSource.Worksheets(1).UsedRange.Copy wshCible.Range("A1" )
wbkSource.Close False
ThisWorkbook.Worksheets("besoins matières" ).Activate
End Sub

---------------
Cordialement, Patrice

yb19711

Merci déjà
il me fait une erreur la dessus!

Set wbkSource = Workbooks.OpenText(Filename:=FichierCibles, Origin:=xlWindows, StartRow:=1,
DataType:=xlDelimited, TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True)

A parement ce serait sur "FichierCibles"???

Message édité par yb19711 le 23-03-2020 à 14:20:43

patrice33740

Avec la réponse, c'est facile.

Replace cette ligne :

Code :

Set wbkSource = Workbooks.OpenText(Filename:=FichierCibles, Origin:=xlWindows, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True)

Par ces 2 lignes :

Code :

Workbooks.OpenText Filename:=FichierCibles, Origin:=xlWindows, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
Set wbkSource = ActiveWorkbook

Message édité par patrice33740 le 23-03-2020 à 21:18:21

---------------
Cordialement, Patrice

yb19711

Merci mais cela ne fonctionne tjrs pas!!
c'est pas grave je me suis débrouillé autrement.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

erreur à la copie

Sujets relatifs
Erreur Excerpt - Impossible d'enregistrer une page du thème	Macro copie vers un autre fichier
[Python] Erreur de Syntaxe try:	Script Copie de fichier avec exclusion de certain fichier
Erreur macro python	Erreur après copie de plusieurs feuilles --> pb presse papier?
copie entre feuille: erreur la 2e fois	code d'erreur copie de fichier[Script bat]
Erreur 1004 lors d'une copie vers un nouveau classeur	Erreur de permission lors de copie de fichiers
Plus de sujets relatifs à : erreur à la copie

Page générée en 0.065 secondes