transcription vba excel

[will Igetit]

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

 
 
Dim dercel As Long
dercel = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
 
For i = 1 To dercel
.
.
.
.        
 
Next i
 

pourriez vous m'aider?

[Philippe JOCHMANS]

Bonjour

Que veux-tu faire avec ce code ?

Starec

[will Igetit]

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

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

[Philippe JOCHMANS]

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 , et relis toi.

Starec

[will Igetit]

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?