erreur à la copie

erreur à la copie - VB/VBA/VBS - Programmation

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          

Reply

Marsh Posté le 22-03-2020 à 16:23:22   

Reply

Marsh Posté le 22-03-2020 à 19:59:57    

Bonjour,
 
Essaies comme ça :

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


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

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"???


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

Marsh Posté le 23-03-2020 à 21:17:04    

Replace cette ligne :

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


Par  ces 2 lignes :      

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


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

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

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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed