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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro copie vers un autre fichier

 



Possible ?




Attention si vous cliquez sur "voir les résultats" vous ne pourrez plus voter

 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro copie vers un autre fichier

n°2338954
stan1334
Posté le 11-09-2019 à 13:50:23  profilanswer
 

Bonjour,
Je n'arrive pas à réaliser une macro à partir de données d'un fichier à copier sur un autre. Car avec la fonction verrouillage, celle que j'avais réalisé ne fonctionne pas.
 
Actuellement:
Sub demande()
 
Sheets("Feuil1" ). Select
Range("B2" ). Select
Selection. Copy
Workbooks. Open ("classeur 1" )
Sheets("feuil2" ). Select
Selection. Pastespecial paste=xlPasteValues, operation:=xlnone, skipblanks_:=False, transpose:=false
Wb. Close false
 
 
Help me please

mood
Publicité
Posté le 11-09-2019 à 13:50:23  profilanswer
 

n°2338986
patrice337​40
Avec la réponse, c'est facile.
Posté le 12-09-2019 à 10:36:59  profilanswer
 

Essaies :
 

Code :
  1. Option Explicit
  2. Sub demande()
  3. Dim wbk As Workbook
  4. Dim wsh As Worksheet
  5. Dim cel As Range
  6. Dim pth As String
  7.  
  8.   ' Chemin complet du fichier à ouvrir (à adapter)
  9.   pth = "D:\Temp\Classeur 1.xlsx"
  10.   Set wbk = Workbooks.Open(pth)
  11.   Set wsh = wbk.Worksheets("Feuil2" )
  12.   Set cel = ThisWorkbook.Worksheets("Feuil1" ).Range("B2" )  'cellule à copier
  13.   wsh.Range("A1" ).Value = cel.Value                        'copie de la valeur
  14.   wbk.Close True 'au lieu de False, car avec False on n'enregistre pas la modification !
  15. End Sub


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

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

  Macro copie vers un autre fichier

 

Sujets relatifs
Script Copie de fichier avec exclusion de certain fichier[LibreOffice][Tableur] Macro pour actualiser des liens externes html
Macro Excel à executer sur une cellule selectionnéArrêter une macro python à la fin de l' exécution.
Import/Export de fichier (automatisation)Erreur macro python
Problème de caractères spéciaux tkinter et fichier texte (Resolu)DirectDraw vers DirectGraphics
Script qui récupère données fichier Excel vers document 
Plus de sujets relatifs à : Macro copie vers un autre fichier


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