Discussion :

[Deustalos]

Boujour Forum,

Je suis en train de créer un programme sous access qui importe des données à partir d'extraction sous format excel.

Pour l'instant mon programme fait: (ouvrir une fenetre de séléction,lance Excel et le fichier séléctionné et lance une macro (se sitant dans un autre fichier excel qui est lui aussi ouvert), Puis enregistre ferme et importe dans la table.

Pour fair simple j'aimerai éviter de fair appelle à la macro dans un autre fichier excel, mais modifier mon fichier Excel séléctionné depuis le code de mon Module.

- J'ai essayé de renseigner sur l'automation ect.. sans résultat.
- j'ai essayé de Copier le code de ma macro(celui du fichier xls) et cela marche à moitier, et seulement à la premiére utilisation de la base access. (Obligé de fermé puis réouvrir pour relancer le code) Err = Le serveur distant n'existe pas ou n'est pas disponible.

J'éspére avoir été claire dans mes propos;
je tien par avance à vous remercier pour votre aide, j'ai la téte qui va pas tarder à imploser.

Merci

Alexis

[Muhad'hib]

Salut,

Le pilotage d'excel depuis Acess ne pose pas de problème, mais il faut modifier un peu la syntaxe.

Tout dépend de ce que fait ta macro excel.
Peux tu donner le code de la macro en question ?

Tu trouvera ici des exemples de syntaxe pour piloter excel depuis acess.
Ici aussi

[Deustalos]

J'ai reussi à adapter le code, mais n'ayant aucune base réél en VBA c'est un peu dur. voila une partie du code de ma macro brut EXCEL:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  Rows("1:5").Select
    Range("A5").Activate
    Selection.Delete Shift:=xlUp
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Rows("7:9").Select
    Selection.Delete Shift:=xlUp
    Range("A1:G6").Select
    Range("G6").Activate
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("B1:B6,D1:D6").Select
    Range("D6").Activate
    Selection.NumberFormat = "#,##0.00 $"

et voila le code que j'ai concut à partir de celui ci-dessu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim i As Long
Dim vtemp As Variant

Set xlApp = New Excel.Application
    xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open(myPath)
Set xlSheet = xlBook.Worksheets("20091103_SAP_PT1_MB5L_LISTE_DES")

    xlSheet.Rows("1:5").Delete Shift:=xlUp

    xlSheet.Columns("A:A").Delete Shift:=xlToLeft

    xlSheet.Rows("7:9").Delete Shift:=xlUp
    
    xlSheet.Range("A1:G6").Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
    xlSheet.Range("A1:G6").Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
'    xlSheet.Range("B1:B6,D1:D6").NumberFormat = "0.00" <-- La mise au format Nombre ne marche pas???
    xlBook.SaveAs Filename:= _
        "U:\Informatique\USINE\AUTOMATE\LOGISTIQUE\MB5L_LISTE_DES_STOCKS.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

L'essentiel de mes macro sert a remetre en forme les fichier pour permetre un import facile.

Elles sont donc toutes différentes.

[Muhad'hib]

C'est déjà le plus dur qui est fait (pas mal pour qq'un qui n'a "aucune base réél en VBA")

Il y a juste la mise au format qui ne fonctionne pas ?

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlSheet.Range("B1:B6,D1:D6").NumberFormat ="#,##0.00 $"

?

[Deustalos]

J'ai deja essayé:
et j'obtien la fameuse erreur : L'objet "Range" de l'objet "_worsheet" à echoué.

Sinon globalement cela fonctionne bien.

Existe t-il un dico permétant de visualiser ce qu'il faut traduire de Excel à VBA. Car je connais pas et je m'en sort seulement en prenant des bout de code de droite et de gauche.

merci pour tes réponse et ton aide

[micniv]

Bonjour,
Ca ne serait pas un ; ici ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlSheet.Range("B1:B6;D1:D6").NumberFormat = ...