Discussion :

[youbs78]

Bonjour tout le monde. Alors voici mon problème :
Je travail sur access et j'ai developpé un module d'import d'un fichier excel dans une table de ma BD. Toutefois le fichier excel que je veux importer comporte une colonne avec des données que je veux scindé en 3 alors voici mon code VBA pour le moment qui génère une première colonne avec la partie des données de la colonne 1 qui m' interresse :

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
    ' Initialiser les variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Users\Ayoub\Desktop\feuille2.xlsx")
 
    'insertion d'une colonne Medecin
    Range("B1").Select
 
    Selection.EntireColumn.Insert
    'xlSheet.Cells(1, 40).value = "ID medecin"
    For x = 2 To 267
        Cells(x, 2).Formula = "=LEFT(A" & x & ",FIND(" - ",A" & x & ")-1)"
 
 
        '"=left(A" & x & ", 1)"
        ' " WorksheetFunction.Left(A2, WorksheetFunction.Find(" - ", A2) - 1)"
        Next x

"=left(A" & x & ", 1)" cette fonction fonctionne sans problème. Or celle ci : LEFT(A" & x & ",FIND(" - ",A" & x & ")-1)refuse de s’exécuter je ne comprend pas pourquoi. Si quelqu'un pouvait venir a mon secours ^^'. Le probleme semble venir du find.

[marot_r]

Bonjour.

C'est parce que tu essaye de faire une soustraction de chaîne.

Code :

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

"=LEFT(A" & x & ",FIND(" [B]-[/B] ",A" & x & ")-1)"

A+

[nico84]

Bonjour,

Pour qu'un " soit contenu dans une string et non son délimiteur, il faut le doubler

Code :

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

Cells(x, 2).Formula = "=LEFT(A" & x & ",FIND("" - "",A" & x & ")-1)"

[youbs78]

OMG merci nico84 je suis trop con je galère depuis tout a l'heure a cause de ça quoi...

[Invité]

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
Sub test()
With CreateObject("Excel.Application")
    With xlApp.Workbooks.Open("C:\Users\Ayoub\Desktop\feuille2.xlsx")
        '.visible=true
        With .Sheets("Feuil1")
            .Range("B1").EntireColumn.Insert
            For x = 2 To 267
                 .Cells(x, 2).Formula = "=LEFT(A" & x & ",FIND("" - "",A" & x & ")-1)"
            Next
        End With
       ' .Close False
    End With
    '.Quit
End With
End Sub