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 :
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.
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.