Bonjour,
Après une recherche sur internet je n'arrive pas a trouver ce que je souhaite. Je me permet donc de formuler ma demande sur ED en espérant ne pas poster un sujet redondant.
Voila je souhaite copier un range d'un classeur fermé pour copier les valeurs dans le classeur contenant la macro.
J'utilise actuellement la fonction WorkbooksOpen mais dans un souci de gain de temps je voulais savoir comment faire pour récupérer cette valeur sans ouvrir le classeur.
Voici a peu près la configuration de mon code actuel :
Workbooks.Open Filename:=sd.Range("B1") & sd.Cells(b, 1) & "\" & sd.Cells(a, 3) & "\recapitulatif_travaux_lieu.xlsm"
ActiveWorkbook.Sheets("donnees").Range(("B" & c & ":E" & c)).Copy
Sg.Cells(d, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.close ...
Merci d'avance pour votre aide,
Cordialement,
Philippe
Après une recherche sur internet je n'arrive pas a trouver ce que je souhaite. Je me permet donc de formuler ma demande sur ED en espérant ne pas poster un sujet redondant.
Voila je souhaite copier un range d'un classeur fermé pour copier les valeurs dans le classeur contenant la macro.
J'utilise actuellement la fonction WorkbooksOpen mais dans un souci de gain de temps je voulais savoir comment faire pour récupérer cette valeur sans ouvrir le classeur.
Voici a peu près la configuration de mon code actuel :
Workbooks.Open Filename:=sd.Range("B1") & sd.Cells(b, 1) & "\" & sd.Cells(a, 3) & "\recapitulatif_travaux_lieu.xlsm"
ActiveWorkbook.Sheets("donnees").Range(("B" & c & ":E" & c)).Copy
Sg.Cells(d, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.close ...
Merci d'avance pour votre aide,
Cordialement,
Philippe