cs_AMP
Messages postés17Date d'inscriptionmercredi 28 mai 2003StatutMembreDernière intervention11 mai 2005
-
28 mai 2003 à 16:10
cs_AMP
Messages postés17Date d'inscriptionmercredi 28 mai 2003StatutMembreDernière intervention11 mai 2005
-
28 mai 2003 à 17:10
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
cs_AMP
Messages postés17Date d'inscriptionmercredi 28 mai 2003StatutMembreDernière intervention11 mai 2005 28 mai 2003 à 17:10
-------------------------------
Réponse au message :
-------------------------------
> 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)
>