Macro copie vers un autre fichier

Macro copie vers un autre fichier - VB/VBA/VBS - Programmation

Marsh Posté le 11-09-2019 à 13:50:23    

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

Reply

Marsh Posté le 11-09-2019 à 13:50:23   

Reply

Marsh Posté le 12-09-2019 à 10:36:59    

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 !
  16. End Sub


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

Sujets relatifs:

Leave a Replay

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