Discussion :

[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

Code :

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

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?

[Invité]

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

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
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

[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 , 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?