Bonjour à tous,
Cela fait bientôt une semaine que je lis avec beaucoup de plaisir vos
rubriques sur le VBA de manière à ce que le néofite que je suis, ne le
soit
plus dans ce domaine.
- Voici ma problèmatique:
je souhaiterai extraire des données d'images en Tif en provenance d'un
microscope afin de les acheminer dans une base access.
- Mon raissonnement :
Etant débutant, je me suis dit qu'il était plus facile de demander à
excell
d'ouvrir un tiff et d'extraire des données dans un tableau puis ensuite de
demander soit à access ou excell de remettre le tout dans ma base de
données
déjà constituée.
- Difficultés rencontrées en ordre croissant:
Dans le script vba ainsi construit j'aimerai
1) pouvoir appliquer cette extraction sur plusieurs images (et pas qu'une
seul)
2) l'extraction ainsi réalisé pourvoir "convertir" de façon avoir sur une
colone les parametres et sur une autre colone les résultats.
- Mon script VBA :
Private Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/10/2007 par jfl
' Pour extraire tt les données d'une image tiff
'
'Pour mettre en boucle ...
'Dim Chemin As String, Fichier As String
'Chemin = "C:scriptmeb"
'Fichier = Dir(Chemin & "*.tif")
'Do While Len(Fichier) > 0
'Debug.Print Chemin & Fichier
'Fichier = Dir()
'Loop
Application.CommandBars("Stop Recording").Visible = False
Application.Goto Reference:="Macro1"
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim waExcel: Set waExcel = CreateObject("Excel.Application")
'Ouverture
d'Excel
StrPath = "C:scriptmeb" 'Chemin d'accès du fichier
If Right(StrPath, 1) <> "" Then StrPath = StrPath & "" 'Ajoute à
la
fin s'il y en a pas
StrFich = "HI 07035 A.tif" 'Nom du fichier
If FSO.FileExists(StrPath & StrFich) Then 'Existance du fichier
waExcel.Visible = False 'Rendre invisible Excel
'Importe le fichier texte vers une feuille Excel de façon Largeur fixe
avec délimiteur : Tabulation et Space et > waExcel.Workbooks.OpenText StrPath & StrFich, , 151, 2, , , True, , ,
True, True, "="
'waExcel.Workbooks.OpenText StrPath & StrFich, , , 2, , , , , ,
'Sauvegarde la feuiller importer vers le chemin d'accès de départ en
motifiant l'extension et en mode partagé pour éviter des erreurs
waExcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich,
Len(StrFich) -
4) & ".xls", , , , , , 2
End If
'Fermeture d'Excel
waExcel.Application.Quit
End Sub
Voili voilou,
Merci par avance quant à vos divers éléments de réponse.
Cordialement,
Jaromyr
Bonjour à tous,
Cela fait bientôt une semaine que je lis avec beaucoup de plaisir vos
rubriques sur le VBA de manière à ce que le néofite que je suis, ne le
soit
plus dans ce domaine.
- Voici ma problèmatique:
je souhaiterai extraire des données d'images en Tif en provenance d'un
microscope afin de les acheminer dans une base access.
- Mon raissonnement :
Etant débutant, je me suis dit qu'il était plus facile de demander à
excell
d'ouvrir un tiff et d'extraire des données dans un tableau puis ensuite de
demander soit à access ou excell de remettre le tout dans ma base de
données
déjà constituée.
- Difficultés rencontrées en ordre croissant:
Dans le script vba ainsi construit j'aimerai
1) pouvoir appliquer cette extraction sur plusieurs images (et pas qu'une
seul)
2) l'extraction ainsi réalisé pourvoir "convertir" de façon avoir sur une
colone les parametres et sur une autre colone les résultats.
- Mon script VBA :
Private Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/10/2007 par jfl
' Pour extraire tt les données d'une image tiff
'
'Pour mettre en boucle ...
'Dim Chemin As String, Fichier As String
'Chemin = "C:scriptmeb"
'Fichier = Dir(Chemin & "*.tif")
'Do While Len(Fichier) > 0
'Debug.Print Chemin & Fichier
'Fichier = Dir()
'Loop
Application.CommandBars("Stop Recording").Visible = False
Application.Goto Reference:="Macro1"
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim waExcel: Set waExcel = CreateObject("Excel.Application")
'Ouverture
d'Excel
StrPath = "C:scriptmeb" 'Chemin d'accès du fichier
If Right(StrPath, 1) <> "" Then StrPath = StrPath & "" 'Ajoute à
la
fin s'il y en a pas
StrFich = "HI 07035 A.tif" 'Nom du fichier
If FSO.FileExists(StrPath & StrFich) Then 'Existance du fichier
waExcel.Visible = False 'Rendre invisible Excel
'Importe le fichier texte vers une feuille Excel de façon Largeur fixe
avec délimiteur : Tabulation et Space et > waExcel.Workbooks.OpenText StrPath & StrFich, , 151, 2, , , True, , ,
True, True, "="
'waExcel.Workbooks.OpenText StrPath & StrFich, , , 2, , , , , ,
'Sauvegarde la feuiller importer vers le chemin d'accès de départ en
motifiant l'extension et en mode partagé pour éviter des erreurs
waExcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich,
Len(StrFich) -
4) & ".xls", , , , , , 2
End If
'Fermeture d'Excel
waExcel.Application.Quit
End Sub
Voili voilou,
Merci par avance quant à vos divers éléments de réponse.
Cordialement,
Jaromyr
Bonjour à tous,
Cela fait bientôt une semaine que je lis avec beaucoup de plaisir vos
rubriques sur le VBA de manière à ce que le néofite que je suis, ne le
soit
plus dans ce domaine.
- Voici ma problèmatique:
je souhaiterai extraire des données d'images en Tif en provenance d'un
microscope afin de les acheminer dans une base access.
- Mon raissonnement :
Etant débutant, je me suis dit qu'il était plus facile de demander à
excell
d'ouvrir un tiff et d'extraire des données dans un tableau puis ensuite de
demander soit à access ou excell de remettre le tout dans ma base de
données
déjà constituée.
- Difficultés rencontrées en ordre croissant:
Dans le script vba ainsi construit j'aimerai
1) pouvoir appliquer cette extraction sur plusieurs images (et pas qu'une
seul)
2) l'extraction ainsi réalisé pourvoir "convertir" de façon avoir sur une
colone les parametres et sur une autre colone les résultats.
- Mon script VBA :
Private Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/10/2007 par jfl
' Pour extraire tt les données d'une image tiff
'
'Pour mettre en boucle ...
'Dim Chemin As String, Fichier As String
'Chemin = "C:scriptmeb"
'Fichier = Dir(Chemin & "*.tif")
'Do While Len(Fichier) > 0
'Debug.Print Chemin & Fichier
'Fichier = Dir()
'Loop
Application.CommandBars("Stop Recording").Visible = False
Application.Goto Reference:="Macro1"
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim waExcel: Set waExcel = CreateObject("Excel.Application")
'Ouverture
d'Excel
StrPath = "C:scriptmeb" 'Chemin d'accès du fichier
If Right(StrPath, 1) <> "" Then StrPath = StrPath & "" 'Ajoute à
la
fin s'il y en a pas
StrFich = "HI 07035 A.tif" 'Nom du fichier
If FSO.FileExists(StrPath & StrFich) Then 'Existance du fichier
waExcel.Visible = False 'Rendre invisible Excel
'Importe le fichier texte vers une feuille Excel de façon Largeur fixe
avec délimiteur : Tabulation et Space et > waExcel.Workbooks.OpenText StrPath & StrFich, , 151, 2, , , True, , ,
True, True, "="
'waExcel.Workbooks.OpenText StrPath & StrFich, , , 2, , , , , ,
'Sauvegarde la feuiller importer vers le chemin d'accès de départ en
motifiant l'extension et en mode partagé pour éviter des erreurs
waExcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich,
Len(StrFich) -
4) & ".xls", , , , , , 2
End If
'Fermeture d'Excel
waExcel.Application.Quit
End Sub
Voili voilou,
Merci par avance quant à vos divers éléments de réponse.
Cordialement,
Jaromyr
j'avoue avoir du mal à comprendre
tu as des images Tiff en provenance d'un microscope (des photos ? de quoi ?)
ta macro ouvre ces fichiers Tiff sous excel en format délimité et les
réenregistre en xls
A quoi ça sert ? pourquoi torturer le format du tiff ?
peux-tu exploiter quelque chose à partir de ton fichier txt délimité ?
et quel est le problème ? qu'est-ce qui ne fonctionne pas ? qu'est-ce que tu
n'arrives pas à faire ?
où veux-tu mettre tes données dans la base access ?
http://jacxl.free.fr
"jaromyr" a écrit dans le message de
news:Bonjour à tous,
Cela fait bientôt une semaine que je lis avec beaucoup de plaisir vos
rubriques sur le VBA de manière à ce que le néofite que je suis, ne le
soitplus dans ce domaine.
- Voici ma problèmatique:
je souhaiterai extraire des données d'images en Tif en provenance d'un
microscope afin de les acheminer dans une base access.
- Mon raissonnement :
Etant débutant, je me suis dit qu'il était plus facile de demander à
excelld'ouvrir un tiff et d'extraire des données dans un tableau puis ensuite de
demander soit à access ou excell de remettre le tout dans ma base de
donnéesdéjà constituée.
- Difficultés rencontrées en ordre croissant:
Dans le script vba ainsi construit j'aimerai
1) pouvoir appliquer cette extraction sur plusieurs images (et pas qu'une
seul)
2) l'extraction ainsi réalisé pourvoir "convertir" de façon avoir sur une
colone les parametres et sur une autre colone les résultats.
- Mon script VBA :
Private Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/10/2007 par jfl
' Pour extraire tt les données d'une image tiff
'
'Pour mettre en boucle ...
'Dim Chemin As String, Fichier As String
'Chemin = "C:scriptmeb"
'Fichier = Dir(Chemin & "*.tif")
'Do While Len(Fichier) > 0
'Debug.Print Chemin & Fichier
'Fichier = Dir()
'Loop
Application.CommandBars("Stop Recording").Visible = False
Application.Goto Reference:="Macro1"
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim waExcel: Set waExcel = CreateObject("Excel.Application")
'Ouvertured'Excel
StrPath = "C:scriptmeb" 'Chemin d'accès du fichier
If Right(StrPath, 1) <> "" Then StrPath = StrPath & "" 'Ajoute à
lafin s'il y en a pas
StrFich = "HI 07035 A.tif" 'Nom du fichier
If FSO.FileExists(StrPath & StrFich) Then 'Existance du fichier
waExcel.Visible = False 'Rendre invisible Excel
'Importe le fichier texte vers une feuille Excel de façon Largeur fixe
avec délimiteur : Tabulation et Space et >> waExcel.Workbooks.OpenText StrPath & StrFich, , 151, 2, , , True, , ,
True, True, "="
'waExcel.Workbooks.OpenText StrPath & StrFich, , , 2, , , , , ,
'Sauvegarde la feuiller importer vers le chemin d'accès de départ en
motifiant l'extension et en mode partagé pour éviter des erreurs
waExcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich,
Len(StrFich) -4) & ".xls", , , , , , 2
End If
'Fermeture d'Excel
waExcel.Application.Quit
End Sub
Voili voilou,
Merci par avance quant à vos divers éléments de réponse.
Cordialement,
Jaromyr
j'avoue avoir du mal à comprendre
tu as des images Tiff en provenance d'un microscope (des photos ? de quoi ?)
ta macro ouvre ces fichiers Tiff sous excel en format délimité et les
réenregistre en xls
A quoi ça sert ? pourquoi torturer le format du tiff ?
peux-tu exploiter quelque chose à partir de ton fichier txt délimité ?
et quel est le problème ? qu'est-ce qui ne fonctionne pas ? qu'est-ce que tu
n'arrives pas à faire ?
où veux-tu mettre tes données dans la base access ?
J@C
http://jacxl.free.fr
"jaromyr" <jaromyr@discussions.microsoft.com> a écrit dans le message de
news: 9B3DD1CF-614D-4A38-967D-732934238B7C@microsoft.com...
Bonjour à tous,
Cela fait bientôt une semaine que je lis avec beaucoup de plaisir vos
rubriques sur le VBA de manière à ce que le néofite que je suis, ne le
soit
plus dans ce domaine.
- Voici ma problèmatique:
je souhaiterai extraire des données d'images en Tif en provenance d'un
microscope afin de les acheminer dans une base access.
- Mon raissonnement :
Etant débutant, je me suis dit qu'il était plus facile de demander à
excell
d'ouvrir un tiff et d'extraire des données dans un tableau puis ensuite de
demander soit à access ou excell de remettre le tout dans ma base de
données
déjà constituée.
- Difficultés rencontrées en ordre croissant:
Dans le script vba ainsi construit j'aimerai
1) pouvoir appliquer cette extraction sur plusieurs images (et pas qu'une
seul)
2) l'extraction ainsi réalisé pourvoir "convertir" de façon avoir sur une
colone les parametres et sur une autre colone les résultats.
- Mon script VBA :
Private Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/10/2007 par jfl
' Pour extraire tt les données d'une image tiff
'
'Pour mettre en boucle ...
'Dim Chemin As String, Fichier As String
'Chemin = "C:scriptmeb"
'Fichier = Dir(Chemin & "*.tif")
'Do While Len(Fichier) > 0
'Debug.Print Chemin & Fichier
'Fichier = Dir()
'Loop
Application.CommandBars("Stop Recording").Visible = False
Application.Goto Reference:="Macro1"
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim waExcel: Set waExcel = CreateObject("Excel.Application")
'Ouverture
d'Excel
StrPath = "C:scriptmeb" 'Chemin d'accès du fichier
If Right(StrPath, 1) <> "" Then StrPath = StrPath & "" 'Ajoute à
la
fin s'il y en a pas
StrFich = "HI 07035 A.tif" 'Nom du fichier
If FSO.FileExists(StrPath & StrFich) Then 'Existance du fichier
waExcel.Visible = False 'Rendre invisible Excel
'Importe le fichier texte vers une feuille Excel de façon Largeur fixe
avec délimiteur : Tabulation et Space et >> waExcel.Workbooks.OpenText StrPath & StrFich, , 151, 2, , , True, , ,
True, True, "="
'waExcel.Workbooks.OpenText StrPath & StrFich, , , 2, , , , , ,
'Sauvegarde la feuiller importer vers le chemin d'accès de départ en
motifiant l'extension et en mode partagé pour éviter des erreurs
waExcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich,
Len(StrFich) -
4) & ".xls", , , , , , 2
End If
'Fermeture d'Excel
waExcel.Application.Quit
End Sub
Voili voilou,
Merci par avance quant à vos divers éléments de réponse.
Cordialement,
Jaromyr
j'avoue avoir du mal à comprendre
tu as des images Tiff en provenance d'un microscope (des photos ? de quoi ?)
ta macro ouvre ces fichiers Tiff sous excel en format délimité et les
réenregistre en xls
A quoi ça sert ? pourquoi torturer le format du tiff ?
peux-tu exploiter quelque chose à partir de ton fichier txt délimité ?
et quel est le problème ? qu'est-ce qui ne fonctionne pas ? qu'est-ce que tu
n'arrives pas à faire ?
où veux-tu mettre tes données dans la base access ?
http://jacxl.free.fr
"jaromyr" a écrit dans le message de
news:Bonjour à tous,
Cela fait bientôt une semaine que je lis avec beaucoup de plaisir vos
rubriques sur le VBA de manière à ce que le néofite que je suis, ne le
soitplus dans ce domaine.
- Voici ma problèmatique:
je souhaiterai extraire des données d'images en Tif en provenance d'un
microscope afin de les acheminer dans une base access.
- Mon raissonnement :
Etant débutant, je me suis dit qu'il était plus facile de demander à
excelld'ouvrir un tiff et d'extraire des données dans un tableau puis ensuite de
demander soit à access ou excell de remettre le tout dans ma base de
donnéesdéjà constituée.
- Difficultés rencontrées en ordre croissant:
Dans le script vba ainsi construit j'aimerai
1) pouvoir appliquer cette extraction sur plusieurs images (et pas qu'une
seul)
2) l'extraction ainsi réalisé pourvoir "convertir" de façon avoir sur une
colone les parametres et sur une autre colone les résultats.
- Mon script VBA :
Private Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/10/2007 par jfl
' Pour extraire tt les données d'une image tiff
'
'Pour mettre en boucle ...
'Dim Chemin As String, Fichier As String
'Chemin = "C:scriptmeb"
'Fichier = Dir(Chemin & "*.tif")
'Do While Len(Fichier) > 0
'Debug.Print Chemin & Fichier
'Fichier = Dir()
'Loop
Application.CommandBars("Stop Recording").Visible = False
Application.Goto Reference:="Macro1"
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim waExcel: Set waExcel = CreateObject("Excel.Application")
'Ouvertured'Excel
StrPath = "C:scriptmeb" 'Chemin d'accès du fichier
If Right(StrPath, 1) <> "" Then StrPath = StrPath & "" 'Ajoute à
lafin s'il y en a pas
StrFich = "HI 07035 A.tif" 'Nom du fichier
If FSO.FileExists(StrPath & StrFich) Then 'Existance du fichier
waExcel.Visible = False 'Rendre invisible Excel
'Importe le fichier texte vers une feuille Excel de façon Largeur fixe
avec délimiteur : Tabulation et Space et >> waExcel.Workbooks.OpenText StrPath & StrFich, , 151, 2, , , True, , ,
True, True, "="
'waExcel.Workbooks.OpenText StrPath & StrFich, , , 2, , , , , ,
'Sauvegarde la feuiller importer vers le chemin d'accès de départ en
motifiant l'extension et en mode partagé pour éviter des erreurs
waExcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich,
Len(StrFich) -4) & ".xls", , , , , , 2
End If
'Fermeture d'Excel
waExcel.Application.Quit
End Sub
Voili voilou,
Merci par avance quant à vos divers éléments de réponse.
Cordialement,
Jaromyr
j'avoue avoir du mal à comprendre
tu as des images Tiff en provenance d'un microscope (des photos ? de quoi ?)
ta macro ouvre ces fichiers Tiff sous excel en format délimité et les
réenregistre en xls
A quoi ça sert ? pourquoi torturer le format du tiff ?
peux-tu exploiter quelque chose à partir de ton fichier txt délimité ?
et quel est le problème ? qu'est-ce qui ne fonctionne pas ? qu'est-ce que tu
n'arrives pas à faire ?
où veux-tu mettre tes données dans la base access ?
http://jacxl.free.fr
Bonjour,
j'avoue avoir du mal à comprendre
tu as des images Tiff en provenance d'un microscope (des photos ? de quoi ?)
ta macro ouvre ces fichiers Tiff sous excel en format délimité et les
réenregistre en xls
A quoi ça sert ? pourquoi torturer le format du tiff ?
peux-tu exploiter quelque chose à partir de ton fichier txt délimité ?
et quel est le problème ? qu'est-ce qui ne fonctionne pas ? qu'est-ce que tu
n'arrives pas à faire ?
où veux-tu mettre tes données dans la base access ?
J@C
http://jacxl.free.fr
Bonjour,
j'avoue avoir du mal à comprendre
tu as des images Tiff en provenance d'un microscope (des photos ? de quoi ?)
ta macro ouvre ces fichiers Tiff sous excel en format délimité et les
réenregistre en xls
A quoi ça sert ? pourquoi torturer le format du tiff ?
peux-tu exploiter quelque chose à partir de ton fichier txt délimité ?
et quel est le problème ? qu'est-ce qui ne fonctionne pas ? qu'est-ce que tu
n'arrives pas à faire ?
où veux-tu mettre tes données dans la base access ?
http://jacxl.free.fr
Bonjour,
j'imagine que ce sont les données exif associées au fichier tif qui
t'intéressent ?
Si oui voici de quoi démarrer :
http://www.excelabo.net/excel/sortirdiv.php#exif
et ce classeur exemple de Michel Pierron
http://www.excelabo.net/moteurs/compteclic.php?nom=mp-exif
il faut ensuite adapter pour boucler sur les fichers d'un dossier.
j'imagine que ce sont les données exif associées au fichier tif qui
t'intéressent ?
Si oui voici de quoi démarrer :
http://www.excelabo.net/excel/sortirdiv.php#exif
et ce classeur exemple de Michel Pierron
http://www.excelabo.net/moteurs/compteclic.php?nom=mp-exif
il faut ensuite adapter pour boucler sur les fichers d'un dossier.
j'imagine que ce sont les données exif associées au fichier tif qui
t'intéressent ?
Si oui voici de quoi démarrer :
http://www.excelabo.net/excel/sortirdiv.php#exif
et ce classeur exemple de Michel Pierron
http://www.excelabo.net/moteurs/compteclic.php?nom=mp-exif
il faut ensuite adapter pour boucler sur les fichers d'un dossier.
j'imagine que ce sont les données exif associées au fichier tif qui
t'intéressent ?
Si oui voici de quoi démarrer :
http://www.excelabo.net/excel/sortirdiv.php#exif
et ce classeur exemple de Michel Pierron
http://www.excelabo.net/moteurs/compteclic.php?nom=mp-exif
il faut ensuite adapter pour boucler sur les fichers d'un dossier.
Bonjour,
C'est avec beaucoup d'attention que j'ai lu votre mel ainsi que les aides
que vous m'indiquez.
Le premier code est tout à fait intéressant mais je crois qu'il est
nécessaire de rajouter du code pourqu'il répondre à mon besoin.
Le classeur de Michel Perron, me renvoit l'erreur suivante "Error while
loading file: essai.jpg"
Cordialement,
Jaromyr
j'imagine que ce sont les données exif associées au fichier tif qui
t'intéressent ?
Si oui voici de quoi démarrer :
http://www.excelabo.net/excel/sortirdiv.php#exif
et ce classeur exemple de Michel Pierron
http://www.excelabo.net/moteurs/compteclic.php?nom=mp-exif
il faut ensuite adapter pour boucler sur les fichers d'un dossier.
Bonjour,
C'est avec beaucoup d'attention que j'ai lu votre mel ainsi que les aides
que vous m'indiquez.
Le premier code est tout à fait intéressant mais je crois qu'il est
nécessaire de rajouter du code pourqu'il répondre à mon besoin.
Le classeur de Michel Perron, me renvoit l'erreur suivante "Error while
loading file: essai.jpg"
Cordialement,
Jaromyr
j'imagine que ce sont les données exif associées au fichier tif qui
t'intéressent ?
Si oui voici de quoi démarrer :
http://www.excelabo.net/excel/sortirdiv.php#exif
et ce classeur exemple de Michel Pierron
http://www.excelabo.net/moteurs/compteclic.php?nom=mp-exif
il faut ensuite adapter pour boucler sur les fichers d'un dossier.
Bonjour,
C'est avec beaucoup d'attention que j'ai lu votre mel ainsi que les aides
que vous m'indiquez.
Le premier code est tout à fait intéressant mais je crois qu'il est
nécessaire de rajouter du code pourqu'il répondre à mon besoin.
Le classeur de Michel Perron, me renvoit l'erreur suivante "Error while
loading file: essai.jpg"
Cordialement,
Jaromyr
Je te confirme que le code de mIchel Pierron fonctionne parfaitement, je
viens de le vérifier.
Attention, il faut évidemment adapter les noms de fichiers aux tiens.
PAr ailleurs il y a encore un sacré boulot à faire pour identifier les
paramètres qui t'intéressent.
Il y a un code tout fait pour access disponible
http://arkham46.developpez.com/articles/access/clexif/doc/
Je ne vois vraiment pas l'intérêt de passer par excel si le but est de
travailler dans excel à la fin.
Je te confirme que le code de mIchel Pierron fonctionne parfaitement, je
viens de le vérifier.
Attention, il faut évidemment adapter les noms de fichiers aux tiens.
PAr ailleurs il y a encore un sacré boulot à faire pour identifier les
paramètres qui t'intéressent.
Il y a un code tout fait pour access disponible
http://arkham46.developpez.com/articles/access/clexif/doc/
Je ne vois vraiment pas l'intérêt de passer par excel si le but est de
travailler dans excel à la fin.
Je te confirme que le code de mIchel Pierron fonctionne parfaitement, je
viens de le vérifier.
Attention, il faut évidemment adapter les noms de fichiers aux tiens.
PAr ailleurs il y a encore un sacré boulot à faire pour identifier les
paramètres qui t'intéressent.
Il y a un code tout fait pour access disponible
http://arkham46.developpez.com/articles/access/clexif/doc/
Je ne vois vraiment pas l'intérêt de passer par excel si le but est de
travailler dans excel à la fin.
Je te confirme que le code de mIchel Pierron fonctionne parfaitement, je
viens de le vérifier.
Attention, il faut évidemment adapter les noms de fichiers aux tiens.
PAr ailleurs il y a encore un sacré boulot à faire pour identifier les
paramètres qui t'intéressent.
Il y a un code tout fait pour access disponible
http://arkham46.developpez.com/articles/access/clexif/doc/
Je ne vois vraiment pas l'intérêt de passer par excel si le but est de
travailler dans excel à la fin.
Bonjour,
Je reviens vers vous après quelques test sur l'ensemble srouces que vous
m'avez fournies.
Effectivement, le classeur de Michel Pierron fonctionne très bien mais que
vous le soulignez très bien "il y a encore un sacré boulot à faire pour
identifier les
paramètres qui " m'interesse..
Voici le code que j'ai réussi à faire à ce jour..
Sub Macro8()
' HI 07035 B
' Macro8 Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:scriptmebHI 07035 A.tif", Destination:=Range("A1"))
.Name = "HI 07035 A"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 173
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "="
.TextFileColumnDataTypes = Array(1, 1)
.Refresh BackgroundQuery:úlse
End With
ActiveWindow.SmallScroll Down:=-54
Rows("3:43").Select
ActiveWindow.SmallScroll Down:=-39
Rows("3:78").Select
Selection.Delete Shift:=xlUp
Rows("16:16").Select
ActiveWindow.SmallScroll Down:=-12
Range( _
"4:4,15:15,5:5,6:6,7:7,8:8,9:9,10:10,11:11,12:12,13:13,14:14,17:17,19:19,20:20,20:20,22:22" _
).Select
Range("A22").Activate
ActiveWindow.Zoom = 85
Range( _
"4:4,15:15,5:5,6:6,7:7,8:8,9:9,10:10,11:11,12:12,13:13,14:14,17:17,19:19,20:20,20:20,22:22,23:23,24:24,26:26" _
).Select
Range("A26").Activate
ActiveWindow.Zoom = 70
ActiveWindow.SmallScroll Down:=2
Range("B31").Select
ActiveWindow.SmallScroll Down:=-27
Rows("4:15").Select
Selection.Delete Shift:=xlUp
Rows("5:5").Select
Selection.Delete Shift:=xlUp
Rows("6:7").Select
Selection.Delete Shift:=xlUp
Rows("7:9").Select
Selection.Delete Shift:=xlUp
Rows("8:28").Select
Selection.Delete Shift:=xlUp
End Sub
Il ne manque une boucle pour pouvoir l'appliquer dans sur un ensemble
d'image. Sauriez vous m'indiquer la démarche..
Merci pour votre aide.
Cordialement,
Jaromyr
Je te confirme que le code de mIchel Pierron fonctionne parfaitement, je
viens de le vérifier.
Attention, il faut évidemment adapter les noms de fichiers aux tiens.
PAr ailleurs il y a encore un sacré boulot à faire pour identifier les
paramètres qui t'intéressent.
Il y a un code tout fait pour access disponible
http://arkham46.developpez.com/articles/access/clexif/doc/
Je ne vois vraiment pas l'intérêt de passer par excel si le but est de
travailler dans excel à la fin.
Bonjour,
Je reviens vers vous après quelques test sur l'ensemble srouces que vous
m'avez fournies.
Effectivement, le classeur de Michel Pierron fonctionne très bien mais que
vous le soulignez très bien "il y a encore un sacré boulot à faire pour
identifier les
paramètres qui " m'interesse..
Voici le code que j'ai réussi à faire à ce jour..
Sub Macro8()
' HI 07035 B
' Macro8 Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:scriptmebHI 07035 A.tif", Destination:=Range("A1"))
.Name = "HI 07035 A"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 173
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "="
.TextFileColumnDataTypes = Array(1, 1)
.Refresh BackgroundQuery:úlse
End With
ActiveWindow.SmallScroll Down:=-54
Rows("3:43").Select
ActiveWindow.SmallScroll Down:=-39
Rows("3:78").Select
Selection.Delete Shift:=xlUp
Rows("16:16").Select
ActiveWindow.SmallScroll Down:=-12
Range( _
"4:4,15:15,5:5,6:6,7:7,8:8,9:9,10:10,11:11,12:12,13:13,14:14,17:17,19:19,20:20,20:20,22:22" _
).Select
Range("A22").Activate
ActiveWindow.Zoom = 85
Range( _
"4:4,15:15,5:5,6:6,7:7,8:8,9:9,10:10,11:11,12:12,13:13,14:14,17:17,19:19,20:20,20:20,22:22,23:23,24:24,26:26" _
).Select
Range("A26").Activate
ActiveWindow.Zoom = 70
ActiveWindow.SmallScroll Down:=2
Range("B31").Select
ActiveWindow.SmallScroll Down:=-27
Rows("4:15").Select
Selection.Delete Shift:=xlUp
Rows("5:5").Select
Selection.Delete Shift:=xlUp
Rows("6:7").Select
Selection.Delete Shift:=xlUp
Rows("7:9").Select
Selection.Delete Shift:=xlUp
Rows("8:28").Select
Selection.Delete Shift:=xlUp
End Sub
Il ne manque une boucle pour pouvoir l'appliquer dans sur un ensemble
d'image. Sauriez vous m'indiquer la démarche..
Merci pour votre aide.
Cordialement,
Jaromyr
Je te confirme que le code de mIchel Pierron fonctionne parfaitement, je
viens de le vérifier.
Attention, il faut évidemment adapter les noms de fichiers aux tiens.
PAr ailleurs il y a encore un sacré boulot à faire pour identifier les
paramètres qui t'intéressent.
Il y a un code tout fait pour access disponible
http://arkham46.developpez.com/articles/access/clexif/doc/
Je ne vois vraiment pas l'intérêt de passer par excel si le but est de
travailler dans excel à la fin.
Bonjour,
Je reviens vers vous après quelques test sur l'ensemble srouces que vous
m'avez fournies.
Effectivement, le classeur de Michel Pierron fonctionne très bien mais que
vous le soulignez très bien "il y a encore un sacré boulot à faire pour
identifier les
paramètres qui " m'interesse..
Voici le code que j'ai réussi à faire à ce jour..
Sub Macro8()
' HI 07035 B
' Macro8 Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:scriptmebHI 07035 A.tif", Destination:=Range("A1"))
.Name = "HI 07035 A"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 173
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "="
.TextFileColumnDataTypes = Array(1, 1)
.Refresh BackgroundQuery:úlse
End With
ActiveWindow.SmallScroll Down:=-54
Rows("3:43").Select
ActiveWindow.SmallScroll Down:=-39
Rows("3:78").Select
Selection.Delete Shift:=xlUp
Rows("16:16").Select
ActiveWindow.SmallScroll Down:=-12
Range( _
"4:4,15:15,5:5,6:6,7:7,8:8,9:9,10:10,11:11,12:12,13:13,14:14,17:17,19:19,20:20,20:20,22:22" _
).Select
Range("A22").Activate
ActiveWindow.Zoom = 85
Range( _
"4:4,15:15,5:5,6:6,7:7,8:8,9:9,10:10,11:11,12:12,13:13,14:14,17:17,19:19,20:20,20:20,22:22,23:23,24:24,26:26" _
).Select
Range("A26").Activate
ActiveWindow.Zoom = 70
ActiveWindow.SmallScroll Down:=2
Range("B31").Select
ActiveWindow.SmallScroll Down:=-27
Rows("4:15").Select
Selection.Delete Shift:=xlUp
Rows("5:5").Select
Selection.Delete Shift:=xlUp
Rows("6:7").Select
Selection.Delete Shift:=xlUp
Rows("7:9").Select
Selection.Delete Shift:=xlUp
Rows("8:28").Select
Selection.Delete Shift:=xlUp
End Sub
Il ne manque une boucle pour pouvoir l'appliquer dans sur un ensemble
d'image. Sauriez vous m'indiquer la démarche..
Merci pour votre aide.
Cordialement,
Jaromyr
Bonjour
Quelque chose du genre :
Sub Test()
Dim Fichier As String, Chemin As String
Dim i As Long
'Répertoire contenant les photos
Chemin = "C:mesphotos"
Fichier = Dir(Chemin & "*.tif")
Do While Fichier <> ""
'blablabla
Fichier = Dir
Loop
End Sub
Misange migrateuse
Bonjour
Quelque chose du genre :
Sub Test()
Dim Fichier As String, Chemin As String
Dim i As Long
'Répertoire contenant les photos
Chemin = "C:mesphotos"
Fichier = Dir(Chemin & "*.tif")
Do While Fichier <> ""
'blablabla
Fichier = Dir
Loop
End Sub
Misange migrateuse
Bonjour
Quelque chose du genre :
Sub Test()
Dim Fichier As String, Chemin As String
Dim i As Long
'Répertoire contenant les photos
Chemin = "C:mesphotos"
Fichier = Dir(Chemin & "*.tif")
Do While Fichier <> ""
'blablabla
Fichier = Dir
Loop
End Sub
Misange migrateuse
Par ailleurs, le lien que vous m'avez indiqé
http://arkham46.developpez.com/articles/access/clexif/doc/
comment faut il procèder ..? j'inclue dans un base access la classe qui est
en téléchargement les modification éventuelles ou dans Excell.
Par ailleurs, le lien que vous m'avez indiqé
http://arkham46.developpez.com/articles/access/clexif/doc/
comment faut il procèder ..? j'inclue dans un base access la classe qui est
en téléchargement les modification éventuelles ou dans Excell.
Par ailleurs, le lien que vous m'avez indiqé
http://arkham46.developpez.com/articles/access/clexif/doc/
comment faut il procèder ..? j'inclue dans un base access la classe qui est
en téléchargement les modification éventuelles ou dans Excell.