Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1870 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  erreur à la copie

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

erreur à la copie

n°2349048
yb19711
Posté le 22-03-2020 à 16:23:22  profilanswer
 

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          

mood
Publicité
Posté le 22-03-2020 à 16:23:22  profilanswer
 

n°2349065
patrice337​40
Avec la réponse, c'est facile.
Posté le 22-03-2020 à 19:59:57  profilanswer
 

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
n°2349146
yb19711
Posté le 23-03-2020 à 14:19:43  profilanswer
 

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
n°2349215
patrice337​40
Avec la réponse, c'est facile.
Posté le 23-03-2020 à 21:17:04  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  erreur à la copie

 

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


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR