Récupérer la valeur de 2 cellule dans un fichier fermé

Re : Récupérer la valeur de 2 cellule dans un fichier fermé

Bonjour,

Ce petit bout de code à exécuter sur un fichier Excel vierge (le fichier source doit être adapté)

Application.ScreenUpdating = False

Workbooks.Open Filename:="c:\Test\BD.xlsx"
i = 1
j = 1
With ActiveWorkbook.Sheets(1)
Do While .Cells(i, 3) <> ""
i = i + 1
Loop
Do While .Cells(j, 7) <> ""
j = j + 1
Loop

ThisWorkbook.Sheets(1).Cells(1) = .Cells(i - 1, 3)
ThisWorkbook.Sheets(1).Cells(2) = .Cells(j - 1, 7)

End With

ActiveWorkbook.Close False

Application.ScreenUpdating = True

Cliquez pour agrandir...

Jocelyn

Re : Récupérer la valeur de 2 cellule dans un fichier fermé

Bonjour annie, bonjour joss,

Une autre piste :

Application.ScreenUpdating = False

Toto = ActiveWorkbook.Name

Workbooks.Open Filename:="c:\Test\BD.xlsx"
Jojo = ActiveWorkbook.Name

Range("C1").Select
Selection.End(xlDown).Select
Selection.Copy

Windows(Toto).Activate
Range("E55").Select
ActiveSheet.Paste

Windows(Jojo).Activate
Range("G1").Select
Selection.End(xlDown).Select
Selection.Copy

Windows(Toto).Activate
Range("F55").Select
ActiveSheet.Paste

Windows(Jojo).Activate
Application.DisplayAlerts = False
ActiveWindow.Close
Windows(Toto).Activate
WorkbookSave = False

Application.ScreenUpdating = True

Re : Récupérer la valeur de 2 cellule dans un fichier fermé

Merci à vous deux pour vos solutions.

J'ai fais un méli mélo des 2 codes. ca fonctionne parfaitement (au moins pour mon besoin!)

en vous osuhaitant un agréable weeeknd.

Re : Récupérer la valeur de 2 cellule dans un fichier fermé

Bonjour AnnieC, pat01200, joss56,

Il aurait été intéressant de connaître les type de données des colonnes C et G (voire avoir un petit exemple!).
Avec un peu de chance, quelque chose comme: ... aurait pu fonctionner avec des données numériques. Avec du texte en colonne C ou G, remplacer 9^9 par "zz"