transcription vba excel

Version imprimable

03/10/2008, 16h03
will Igetit

transcription vba excel
Bonjour je ne suuis pas adepte du vba sur acces ou d acces tout court.
cela dit j'ai un code quuue je veux faire marcher sous acces seulement j'ignore comment transcrire une partie du code a ssavoir
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim dercel As Long dercel = Worksheets("Sheet1").Range("A65536").End(xlUp).Row For i = 1 To dercel . . . . Next i
pourriez vous m'aider?
03/10/2008, 16h08
Invité

Bonjour

Que veux-tu faire avec ce code ?

Starec

but du code

mon code creer de folder lorsqu lentree de la cellule na pas de fichier associe voicci le code complet

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
32
33
34
Private Sub Worksheet_Activate()
 
 
Dim dercel As Long
dercel = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
 
On Error GoTo errorhandler
For i = 1 To dercel
 
With Application.FileSearch
    .LookIn = "C:\WINDOWS\Desktop\" & Worksheets("Sheet1").Cells(i, 1)
    .FileType = msoFileTypeExcelWorkbooks
 
End With
 
 
errorhandler:
 Dim sws As Office.SharedWorkspace
    Dim strSWSInfo As String
    Set sws = ActiveWorkbook.SharedWorkspace
    sws.CreateNew "C:\WINDOWS\Desktop\", Worksheets("Sheet1").Cells(i, 1)
    strSWSInfo = "Name: " & sws.Name & vbCrLf & _
        "URL: " & sws.URL & vbCrLf & _
        "File(s): " & sws.Files.Count
    MsgBox strSWSInfo, vbInformation + vbOKOnly, _
        "New Shared Workspace Information"
    Set sws = Nothing
 
 
 
 
Next i
 
End Sub

03/10/2008, 16h18
Invité

Re

D'abord relie tes messages avant de les envoyer, ils sont durs à lire.

Je ne comprends toujours pas, tu veux lancer un code Excel à partir d'Access ou faire la même chose sous Access ?

Dans Access il n'y a pas de feuilles, la logique est différente.

Donc soit un peu plus clair, car 8O, et relis toi.

Starec
03/10/2008, 16h23
will Igetit

en plus clair

je veux ecrire ce meme code ,que j'utilise deja pour un fichier excel, mais cette fois pour une table sous acces.
proble je nai jamais rien fait sous acces.
comment ecrire l' equivalent de ce code sous acces?