Je fais une Macro sur VBA que me permet de récupérer des données de deux colonnes d'une feuille Access, de les coller dans un solveur qui me donnera deux variables comme résultat.
Ces deux variables, situé en I5 et I6 de la feuille May, je voudrai les faire coller sur les cellules qui sont situées devant la cellule du même nom (& Fichier &) dans un autre classeur (calibrage)
j'ai créé la macro suivante mais elle ne repère pas la cellule (& fichier&) demander
Merci de votre réponse
Sub OuvertureFichier()
Dim Fichier As String
'ouverture fichier
On Error Resume Next
Fichier = InputBox("Indiquez le Point Routier")
Workbooks.Open Filename:="" & Fichier & ".dbf"
PR = (" & Fichier & ")
If Err <> 0 Then
MsgBox "fichier " & Fichier & " introuvable !"
End
End If
'copier/coller
Range("E2:F60000").Select
Selection.Copy
Windows("poste1essai2.xls").Activate
Sheets("May").Select
A2.Value = (" & Fichier & ")
Range("C2:D60000").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
_SOLVEUR_
'copier/coller résultat
> Sheets("May").Select
> Range("I5:I6").Select
> Selection.Copy
> Workbooks("CALIBRAGE.xls").Activate
> With Worksheets(1).Range("A1:A400")
> Set cell = .Find(" & Fichier & ")
> End With
>
> ActiveCell.Offset(0, 1) = Selection.PasteSpecial(Paste:=xlValues,
> Operation:=xlNone, SkipBlanks:= _
> False, Transpose:=xlValue)