erreur à la copie - VB/VBA/VBS - Programmation
Marsh Posté le 22-03-2020 à 19:59:57
Bonjour,
Essaies comme ça :
Code :
|
Marsh Posté le 23-03-2020 à 14:19:43
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"???
Marsh Posté le 23-03-2020 à 21:17:04
Replace cette ligne :
Code :
|
Par ces 2 lignes :
Code :
|
Marsh Posté le 30-03-2020 à 16:38:15
Merci mais cela ne fonctionne tjrs pas!!
c'est pas grave je me suis débrouillé autrement.
Marsh Posté le 22-03-2020 à 16:23:22
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