VBA - Copie de données d'un fichier excel fermé en read-only selon une condition

schrom007

XLDnaute Nouveau
Bonjour à toutes et à tous,

J'ai essayé d'appliquer les conseils sur les différents sujets mais je n'ai rien trouvé de suffisamment général pour m'aider (discussions lues : http://www.excel-downloads.com/forum/173990-macro-vba-pour-export-ligne-de-donnees-vers-un-tableau-dans-un-classeur-different.html, https://www.excel-downloads.com/threads/extraire-donnees-dans-plusieurs-classeur-ferme-excel.142871/,https://www.excel-downloads.com/thr...nees-dun-fichier-vers-un-autre-fichier.80485/ et Lire et écrire dans les classeurs Excel fermés).

Mon but :
-Copie de certaines données d'une certaine feuille Y d'un fichier A vers un fichier B selon une condition X
=> Fichier A = Excel, fermé et protégé mais peut être lu + Il y a plusieurs feuilles dont la feuille Y
=> Fichier B = Excel, ouvert et non-protogé + le fichier B est dans un autre dossier que le fichier A
=> Condition X = Si une cellule de la 1ère colonne de la feuille Y =1 --> je copie des cellules de la ligne de cette cellule.

Pour le moment, voici mon code et mes fichiers :

Sub MacroImport2()
Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
Dim wkbSource As Workbook
Dim wkbDest As Workbook
Dim shtToCopy As Worksheet
Dim rev As String

rev = Workbooks("REGISTER_SHEET_2015_FP Monitoring-X.xlsm").Worksheets("register _ sheet").Cells(1, 21)

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set wkbSource = Workbooks.Open("c:\GENERAL\QT\DailyReport\DailyTest_Rev0X.xls")

Set shtToCopy = wkbSource.Sheets("RM FTP 2015")

Application.Workbooks("REGISTER_SHEET_2015_FP Monitoring-X.xlsm").Activate

Worksheets("RM FTP 2015").Delete

shtToCopy.Copy After:=Workbooks("REGISTER_SHEET_2015_FP Monitoring-X.xlsm").Worksheets("register _ sheet")

wkbSource.Close

rev = rev + 1
Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "C'est la révision " & rev

End Sub


Je n'arrive ni à copier la feuille Y dans mon fichier B ni mettre une condition dans ma marco car elle ne fonctionne pas.

S.v.p. pourriez-vous m'aider à mieux saisir ce que je dois faire ?

D'avance merci pour votre aide.
 

Pièces jointes

  • REGISTER_SHEET_2015_FP Monitoring-X.xlsm
    135.4 KB · Affichages: 23
  • DailyTest_Rev0X.xlsx
    185.9 KB · Affichages: 22

Discussions similaires

Statistiques des forums

Discussions
311 713
Messages
2 081 806
Membres
101 819
dernier inscrit
lukumubarth