Dim MonFichier As String Dim LesFichier() As String Dim LeFichier As String Dim i As Integer Dim Repertoire As String 'il faut le répertoire où sont stocké les fichiers 'ça c'est juste pour tester MonFichier = "[ doc 1 ]" & vbCrLf & "[ doc 2 ]" & vbCrLf & "[ doc 3 ]" LesFichier = Split(MonFichier, vbCrLf) For i = 0 To UBound(LesFichier) LeFichier = Mid(LesFichier(i), InStr(LesFichier(i), """") + 1, InStr(InStr(LesFichier(i), """") + 1, LesFichier(i), """") - InStr(LesFichier(i), """") - 1) 'ShellExecute me.hWnd, "print", Repertoire & "" & LeFichier, vbNullString, Repertoire & "" , 1 Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question