Fonction excel en vb access

[Bluchy]

Bonjour

Pouvez vous m'aider? J'essaie de faire une macro dans access qui modifie sur la première feuille d'un fichier excel, la première colonne en la convertissant en chaine de caractère mais je n'arrive pas à exécuter la macro suivante.
(Ma conversion se limite à la concaténation de mon chiffre avec un ' )

Code :

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
31
 
 
Sub ouvrir()
 
CheminClasseur = "monfichier.xls"
Call Modif_fichier(CheminClasseur, "A")
 
End Sub
 
 
Sub Modif_fichier(nom_fichier As String, Colonne As String)
 
Dim ligne As Integer
 
Set AppExcel = CreateObject("Excel.Application")
AppExcel.Workbooks.Open (CheminClasseur) ' rendre visible la fenetre
AppExcel.Visible = True
ligne = AppExcel.Range("A65536").end(xlup).row 'ici la macro plante elle ne me recupére pas le nb de ligne car elle ne passe pas  la fonction range
MsgBox ligne
For indexligne = 2 To ligne
    AppExcel.ThisWorkbook.Worksheets(1).Range(Colonne & indexligne).Value = "'" & AppExcel.ThisWorkbook.Worksheets(1).Range(Colonne & indexligne).Value
 
Next
On Error Resume Next
AppExcel.UserControl = True
AppExcel.Close
End Sub
 
Function lancement()
Call ouvrir
End Function

Merci de votre aide

[dumas.blr]

Quel est le code erreur retourné ?

[Philippe JOCHMANS]

Bonjour

Envoyé par dumas.blr

Quel est le code erreur retourné ?

Tout à fait et sur quelle ligne ?

ThisWorkbook est de trop à mon avis.

Philippe

[Bluchy]

Bonjour

Merci de vos réponses mais cela ne marche toujours pas, j'ai modifié ma macro en définissant correctement toutes mes variables, cela donne:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Modif_fichier(nom_fichier As String, Colonne As String)
 
Dim Der_ligne As Integer
Dim AppExcel As Object
 
Set AppExcel = Nothing
Set AppExcel = CreateObject("Excel.Application")
AppExcel.Workbooks.Open (CheminClasseur) AppExcel.Visible = True ' rendre visible la fenetre
 
 
Der_ligne = AppExcel.Sheets(1).Range("A65536").End(xlUp).Row
 
For I = 2 To Der_ligne
 
   AppExcel.Sheets(1).Range(Colonne & I).Value = "'" & AppExcel.Sheets(1).Range(Colonne & I).Value '
Next
Set AppExcel = Nothing
 
End Sub

Mais il plante toujours sur Der_ligne = AppExcel.Sheets(1).Range("A65536").End(xlUp).Row
J'ai l'impression qu'il ne reconnait pas la fonction Sheets ainsi que Range...

Merci d'avance

[Bluchy]

Et le code réponse est:


"Erreur d'exécution 1004

Erreur définie par l'application ou par l'objet"


Je comprends par là qu'il ne reconnait pas toutes les fonctions d'excel

Merci d'avance

[dumas.blr]

cheminclasseur est elle une variable globale ?

[Bluchy]

Oui chemin classeur est une variable globale et d'ailleurs la seule..