Adapte le nom de la feuille et de la cellule
Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub
Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer
On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function
"JLematou" a écrit dans le message de groupe de
discussion :
bonjour à tous,
j'ai un fichier .html avec des données dans tous les sens.
je voudrais extraitre les chaines de caractères suivants
, Host= CAOTTN02798;
et les positionner en col A dans un fichier XLS.
sachant que "CAOTTN02798" est naturellement variable et inconnu.
la chaine est toujours comprise ente une , et un ;
voici une petite idée du fichier tel que je le reçois.
52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart > 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
admin 2008-12-11 20:31:23 MASTER Assignement_
Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
admin 2008-12-11 20:31:04 MASTER V2.5.1
MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host > FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd > 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host > BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd > 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
7:58:15 PM 52034 CAOTTN0L3AGH0H
--
Merci à tous pour votre aide.
Très cordialement
JACK dit : Lematou
Adapte le nom de la feuille et de la cellule
Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub
Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer
On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function
"JLematou" <JLematou@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : A0CFF650-2623-4F86-A874-6C721C94410C@microsoft.com...
bonjour à tous,
j'ai un fichier .html avec des données dans tous les sens.
je voudrais extraitre les chaines de caractères suivants
, Host= CAOTTN02798;
et les positionner en col A dans un fichier XLS.
sachant que "CAOTTN02798" est naturellement variable et inconnu.
la chaine est toujours comprise ente une , et un ;
voici une petite idée du fichier tel que je le reçois.
52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart > 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
admin 2008-12-11 20:31:23 MASTER Assignement_
Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
admin 2008-12-11 20:31:04 MASTER V2.5.1
MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host > FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd > 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host > BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd > 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
7:58:15 PM 52034 CAOTTN0L3AGH0H
--
Merci à tous pour votre aide.
Très cordialement
JACK dit : Lematou
Adapte le nom de la feuille et de la cellule
Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub
Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer
On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function
"JLematou" a écrit dans le message de groupe de
discussion :
bonjour à tous,
j'ai un fichier .html avec des données dans tous les sens.
je voudrais extraitre les chaines de caractères suivants
, Host= CAOTTN02798;
et les positionner en col A dans un fichier XLS.
sachant que "CAOTTN02798" est naturellement variable et inconnu.
la chaine est toujours comprise ente une , et un ;
voici une petite idée du fichier tel que je le reçois.
52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart > 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
admin 2008-12-11 20:31:23 MASTER Assignement_
Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
admin 2008-12-11 20:31:04 MASTER V2.5.1
MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host > FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd > 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host > BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd > 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
7:58:15 PM 52034 CAOTTN0L3AGH0H
--
Merci à tous pour votre aide.
Très cordialement
JACK dit : Lematou
Adapte le nom de la feuille et de la cellule
Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub
Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer
On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function
"JLematou" a écrit dans le message de groupe de
discussion :
bonjour à tous,
j'ai un fichier .html avec des données dans tous les sens.
je voudrais extraitre les chaines de caractères suivants
, Host= CAOTTN02798;
et les positionner en col A dans un fichier XLS.
sachant que "CAOTTN02798" est naturellement variable et inconnu.
la chaine est toujours comprise ente une , et un ;
voici une petite idée du fichier tel que je le reçois.
52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart > 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
admin 2008-12-11 20:31:23 MASTER Assignement_
Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
admin 2008-12-11 20:31:04 MASTER V2.5.1
MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host > FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd > 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host > BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd > 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
7:58:15 PM 52034 CAOTTN0L3AGH0H
--
Merci à tous pour votre aide.
Très cordialement
JACK dit : Lematou
Adapte le nom de la feuille et de la cellule
Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub
Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer
On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function
"JLematou" <JLematou@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : A0CFF650-2623-4F86-A874-6C721C94410C@microsoft.com...
bonjour à tous,
j'ai un fichier .html avec des données dans tous les sens.
je voudrais extraitre les chaines de caractères suivants
, Host= CAOTTN02798;
et les positionner en col A dans un fichier XLS.
sachant que "CAOTTN02798" est naturellement variable et inconnu.
la chaine est toujours comprise ente une , et un ;
voici une petite idée du fichier tel que je le reçois.
52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart > 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
admin 2008-12-11 20:31:23 MASTER Assignement_
Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
admin 2008-12-11 20:31:04 MASTER V2.5.1
MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host > FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd > 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host > BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd > 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
7:58:15 PM 52034 CAOTTN0L3AGH0H
--
Merci à tous pour votre aide.
Très cordialement
JACK dit : Lematou
Adapte le nom de la feuille et de la cellule
Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub
Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer
On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function
"JLematou" a écrit dans le message de groupe de
discussion :
bonjour à tous,
j'ai un fichier .html avec des données dans tous les sens.
je voudrais extraitre les chaines de caractères suivants
, Host= CAOTTN02798;
et les positionner en col A dans un fichier XLS.
sachant que "CAOTTN02798" est naturellement variable et inconnu.
la chaine est toujours comprise ente une , et un ;
voici une petite idée du fichier tel que je le reçois.
52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart > 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
admin 2008-12-11 20:31:23 MASTER Assignement_
Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
admin 2008-12-11 20:31:04 MASTER V2.5.1
MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host > FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd > 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host > BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd > 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
7:58:15 PM 52034 CAOTTN0L3AGH0H
--
Merci à tous pour votre aide.
Très cordialement
JACK dit : Lematou
Tout copier signifie copier tout ce qui suit et ça fait plus de 2 lignes
Adapte le nom de la feuille et de la cellule
'-------------------------------
Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub
'-------------------------------
Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer
On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function
'-------------------------------
"JLematou" a écrit dans le message de groupe de
discussion :
bonjour michdenis
j'ai donc ouvert mon fichier avec Exel
j'ai collé ton code dans 1 module VBA tel que tu me les as indiqués
et quand je veux exécuter la macro j'ai une retour "erreur d'exécution 424
"je suis toujours en 2000"
mais je trouve étrange que sub ne fasse qu'une ligne .............
je ne vois pas comment fonctionne la fonction dans le cas présent.
parceque quand j'active ma macro il va directement sur msgbox et hop il
plante
le mystere est total
dans ton code il vient bien indiquer tous les" Host" lignes après ligne ?
le résultat qui m'interesse c'est le champs qu'il y a apres host >
je sais que j'ai beaucoup de difficultées a vous suivre parce qu'il y a une
marge entre vos compétences et les mienes. c'est un peu pour cela que je rame.
de mon coté j'ai commencé a écrire un code qui vient lire ligne à ligne avec
la fonction rechercher puis je viens coller les cellules les unes apres les
autres en A
mais je crois que je vais une fois de plus écrire une page de code alors que
vous vous le fait en ( 5 lignes).
donc si tu
--
Merci à tous pour votre aide.
Très cordialement
JACK dit : Lematou
"michdenis" a écrit :
> Adapte le nom de la feuille et de la cellule
>
> Sub test()
> MsgBox Trouve(Feuil1.Range("A1"), "host")
> End Sub
>
>
> Function Trouve(Rg As Range, Mot As String)
> Dim F As Integer, X As String, D As Integer
>
> On Error Resume Next
> D = 1
> Do While Err.Number = 0
> With Application.WorksheetFunction
> D = .Search("Host=*,", Rg, D)
> If Err <> 0 Then Err = 0: Exit Do
> F = .Search(";", Rg, D)
> X = Mid(Range("A1"), D, F - D)
> t = X & vbCrLf & t
> D = F + 1
> End With
> Loop
> If t <> "" Then
> Trouve = Left(t, Len(t) - 2)
> Else
> Trouve = "Rien trouvé."
> End If
> End Function
>
>
>
>
>
> "JLematou" a écrit dans le message de groupe de
> discussion :
> bonjour à tous,
>
> j'ai un fichier .html avec des données dans tous les sens.
>
> je voudrais extraitre les chaines de caractères suivants
> , Host= CAOTTN02798;
> et les positionner en col A dans un fichier XLS.
> sachant que "CAOTTN02798" est naturellement variable et inconnu.
> la chaine est toujours comprise ente une , et un ;
>
> voici une petite idée du fichier tel que je le reçois.
>
> 52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
> Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart > > 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
> 1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
> admin 2008-12-11 20:31:23 MASTER Assignement_
> Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
> admin 2008-12-11 20:31:04 MASTER V2.5.1
> MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
> ;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
> failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
> 139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host > > FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
> CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd > > 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
> 20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
> T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
> 135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
> Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
> 52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
> Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
> ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
> Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
> Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host > > BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd > > 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
> 7:58:15 PM 52034 CAOTTN0L3AGH0H
>
>
> --
> Merci à tous pour votre aide.
>
> Très cordialement
>
> JACK dit : Lematou
>
Tout copier signifie copier tout ce qui suit et ça fait plus de 2 lignes
Adapte le nom de la feuille et de la cellule
'-------------------------------
Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub
'-------------------------------
Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer
On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function
'-------------------------------
"JLematou" <JLematou@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : C569E980-0410-4073-9075-5CD09108E2AF@microsoft.com...
bonjour michdenis
j'ai donc ouvert mon fichier avec Exel
j'ai collé ton code dans 1 module VBA tel que tu me les as indiqués
et quand je veux exécuter la macro j'ai une retour "erreur d'exécution 424
"je suis toujours en 2000"
mais je trouve étrange que sub ne fasse qu'une ligne .............
je ne vois pas comment fonctionne la fonction dans le cas présent.
parceque quand j'active ma macro il va directement sur msgbox et hop il
plante
le mystere est total
dans ton code il vient bien indiquer tous les" Host" lignes après ligne ?
le résultat qui m'interesse c'est le champs qu'il y a apres host >
je sais que j'ai beaucoup de difficultées a vous suivre parce qu'il y a une
marge entre vos compétences et les mienes. c'est un peu pour cela que je rame.
de mon coté j'ai commencé a écrire un code qui vient lire ligne à ligne avec
la fonction rechercher puis je viens coller les cellules les unes apres les
autres en A
mais je crois que je vais une fois de plus écrire une page de code alors que
vous vous le fait en ( 5 lignes).
donc si tu
--
Merci à tous pour votre aide.
Très cordialement
JACK dit : Lematou
"michdenis" a écrit :
> Adapte le nom de la feuille et de la cellule
>
> Sub test()
> MsgBox Trouve(Feuil1.Range("A1"), "host")
> End Sub
>
>
> Function Trouve(Rg As Range, Mot As String)
> Dim F As Integer, X As String, D As Integer
>
> On Error Resume Next
> D = 1
> Do While Err.Number = 0
> With Application.WorksheetFunction
> D = .Search("Host=*,", Rg, D)
> If Err <> 0 Then Err = 0: Exit Do
> F = .Search(";", Rg, D)
> X = Mid(Range("A1"), D, F - D)
> t = X & vbCrLf & t
> D = F + 1
> End With
> Loop
> If t <> "" Then
> Trouve = Left(t, Len(t) - 2)
> Else
> Trouve = "Rien trouvé."
> End If
> End Function
>
>
>
>
>
> "JLematou" <JLematou@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : A0CFF650-2623-4F86-A874-6C721C94410C@microsoft.com...
> bonjour à tous,
>
> j'ai un fichier .html avec des données dans tous les sens.
>
> je voudrais extraitre les chaines de caractères suivants
> , Host= CAOTTN02798;
> et les positionner en col A dans un fichier XLS.
> sachant que "CAOTTN02798" est naturellement variable et inconnu.
> la chaine est toujours comprise ente une , et un ;
>
> voici une petite idée du fichier tel que je le reçois.
>
> 52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
> Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart > > 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
> 1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
> admin 2008-12-11 20:31:23 MASTER Assignement_
> Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
> admin 2008-12-11 20:31:04 MASTER V2.5.1
> MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
> ;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
> failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
> 139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host > > FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
> CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd > > 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
> 20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
> T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
> 135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
> Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
> 52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
> Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
> ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
> Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
> Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host > > BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd > > 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
> 7:58:15 PM 52034 CAOTTN0L3AGH0H
>
>
> --
> Merci à tous pour votre aide.
>
> Très cordialement
>
> JACK dit : Lematou
>
Tout copier signifie copier tout ce qui suit et ça fait plus de 2 lignes
Adapte le nom de la feuille et de la cellule
'-------------------------------
Sub test()
MsgBox Trouve(Feuil1.Range("A1"), "host")
End Sub
'-------------------------------
Function Trouve(Rg As Range, Mot As String)
Dim F As Integer, X As String, D As Integer
On Error Resume Next
D = 1
Do While Err.Number = 0
With Application.WorksheetFunction
D = .Search("Host=*,", Rg, D)
If Err <> 0 Then Err = 0: Exit Do
F = .Search(";", Rg, D)
X = Mid(Range("A1"), D, F - D)
t = X & vbCrLf & t
D = F + 1
End With
Loop
If t <> "" Then
Trouve = Left(t, Len(t) - 2)
Else
Trouve = "Rien trouvé."
End If
End Function
'-------------------------------
"JLematou" a écrit dans le message de groupe de
discussion :
bonjour michdenis
j'ai donc ouvert mon fichier avec Exel
j'ai collé ton code dans 1 module VBA tel que tu me les as indiqués
et quand je veux exécuter la macro j'ai une retour "erreur d'exécution 424
"je suis toujours en 2000"
mais je trouve étrange que sub ne fasse qu'une ligne .............
je ne vois pas comment fonctionne la fonction dans le cas présent.
parceque quand j'active ma macro il va directement sur msgbox et hop il
plante
le mystere est total
dans ton code il vient bien indiquer tous les" Host" lignes après ligne ?
le résultat qui m'interesse c'est le champs qu'il y a apres host >
je sais que j'ai beaucoup de difficultées a vous suivre parce qu'il y a une
marge entre vos compétences et les mienes. c'est un peu pour cela que je rame.
de mon coté j'ai commencé a écrire un code qui vient lire ligne à ligne avec
la fonction rechercher puis je viens coller les cellules les unes apres les
autres en A
mais je crois que je vais une fois de plus écrire une page de code alors que
vous vous le fait en ( 5 lignes).
donc si tu
--
Merci à tous pour votre aide.
Très cordialement
JACK dit : Lematou
"michdenis" a écrit :
> Adapte le nom de la feuille et de la cellule
>
> Sub test()
> MsgBox Trouve(Feuil1.Range("A1"), "host")
> End Sub
>
>
> Function Trouve(Rg As Range, Mot As String)
> Dim F As Integer, X As String, D As Integer
>
> On Error Resume Next
> D = 1
> Do While Err.Number = 0
> With Application.WorksheetFunction
> D = .Search("Host=*,", Rg, D)
> If Err <> 0 Then Err = 0: Exit Do
> F = .Search(";", Rg, D)
> X = Mid(Range("A1"), D, F - D)
> t = X & vbCrLf & t
> D = F + 1
> End With
> Loop
> If t <> "" Then
> Trouve = Left(t, Len(t) - 2)
> Else
> Trouve = "Rien trouvé."
> End If
> End Function
>
>
>
>
>
> "JLematou" a écrit dans le message de groupe de
> discussion :
> bonjour à tous,
>
> j'ai un fichier .html avec des données dans tous les sens.
>
> je voudrais extraitre les chaines de caractères suivants
> , Host= CAOTTN02798;
> et les positionner en col A dans un fichier XLS.
> sachant que "CAOTTN02798" est naturellement variable et inconnu.
> la chaine est toujours comprise ente une , et un ;
>
> voici une petite idée du fichier tel que je le reçois.
>
> 52043 CAOTTN0L3APR6L 138.120.163.87 rdemores 2008-12-11 20:42:31 Pronto
> Version: 2.9/2.9, Host= CAOTTN02798; PCRefresh= 802 MB/558 MB; CopyStart > > 12/11/2008 1:54:47 PM; CopyEnd= 12/11/2008 2:05:02 PM; USMTStart= 12/11/2008
> 1:54:52 PM; USMTEnd= 12/11/2008 2:41:33 PM 52042 ESMADD0E01211 159.23.105.3
> admin 2008-12-11 20:31:23 MASTER Assignement_
> Assetà1211;SerialNumber=CZC510217W; 52041 MXCUAN0MX0072 128.251.177.222
> admin 2008-12-11 20:31:04 MASTER V2.5.1
> MXCUAN0MX0072;delay8;SpeedKBb73;Model=Latitude D600
> ;Mtyp=Unattend;joindom=1;packages=-1;retry=5;packages
> failed=H_1020_MSACCESS_2000;S_1030_Step_03_hotfixes; 52040 FRVELN0L005544
> 139.54.117.48 admin 2008-12-11 20:26:18 Pronto Version: 2.3/2.3, Host > > FRVELN0C27091; PCRefresh= 0.1 GB/0 GB; CopyStart= 12/11/2008 6:21:18 PM;
> CopyEnd= 12/11/2008 6:33:39 PM; USMTStart= 12/11/2008 6:21:29 PM; USMTEnd > > 12/11/2008 8:26:09 PM 52039 ARBUEN0AR0274 128.251.209.129 admin 2008-12-11
> 20:24:25 MASTER V2.5.0 ARBUEN0AR0274;delay6;SpeedKB595;Model=ThinkPad
> T60;MTyp=Image;joindom=3;packages=0;retry=7; 52038 USMUYN0L3ABV1L
> 135.185.86.4 admin 2008-12-11 20:17:10 MASTER Assignement_
> Asset=L3ABV1L;SerialNumber=L3ABV1L;Login=na02CTURLEY;Old_Serial=test;Old_HOSTNAME=oldPC
> 52037 ATVIEN0A85951 146.112.155.74 admin 2008-12-11 20:15:52 MASTER
> Assignement_ Asset¨5951;SerialNumber=HUB51105BV ;Login=njozef 52036
> ARBUEN0AR0274 128.251.209.129 admin 2008-12-11 20:15:27 MASTER Assignement_
> Asset=AR0274;SerialNumber=L3AM046; 52035 BEANTN0L006574 172.31.143.214
> Administrator 2008-12-11 19:58:23 Pronto Version: 2.4/2.4, Host > > BEANTN0021549; PCRefresh= 0 GB/0 GB; CopyStart= 11/12/2008 18:08:10; CopyEnd > > 11/12/2008 18:10:12; USMTStart= 11/12/2008 18:08:14; USMTEnd= 12/11/2008
> 7:58:15 PM 52034 CAOTTN0L3AGH0H
>
>
> --
> Merci à tous pour votre aide.
>
> Très cordialement
>
> JACK dit : Lematou
>
Si tu veux balayer la plage de cellule A1:A10
tu fais comme ceci :
'-------------------------------
Sub test()
with worksheets("Feuil1") ' Nom de la feuille à adapter
for each c in .Range("A1:A10") 'plage à adapter
MsgBox Trouve(c , "host")
Next
End Sub
C'était mon dernier message sur ce fil.
Si tu veux balayer la plage de cellule A1:A10
tu fais comme ceci :
'-------------------------------
Sub test()
with worksheets("Feuil1") ' Nom de la feuille à adapter
for each c in .Range("A1:A10") 'plage à adapter
MsgBox Trouve(c , "host")
Next
End Sub
C'était mon dernier message sur ce fil.
Si tu veux balayer la plage de cellule A1:A10
tu fais comme ceci :
'-------------------------------
Sub test()
with worksheets("Feuil1") ' Nom de la feuille à adapter
for each c in .Range("A1:A10") 'plage à adapter
MsgBox Trouve(c , "host")
Next
End Sub
C'était mon dernier message sur ce fil.