Macro copie vers un autre fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro copie vers un autre fichier

stan1334

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

Publicité

patrice33740

Avec la réponse, c'est facile.

Essaies :

Code :

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

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

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

Page générée en 0.042 secondes