format de fichier

c_luimeme@hotmail.com avait soumis l'idée :

feuille = (nomfichier & a & "h00")
monfichier = (base & nomfichier & a & "h00" & ".txt")

feuille = nomfichier & Format(a, 00) & "h00"
monfichier = base & nomfichier & Format(a, 00) & "h00" & ".txt"

Pas testé, mais devrait convenir, dis nous

--
JLuc

JLuc,

merci de ta réponse , mais la solution que tu ma proposée ne marche
pas j'ai toujours le même fomat cad "5h00" et non "05h00"
Math

c_luimeme@hotmail.com avait soumis l'idée :

feuille = (nomfichier & a & "h00")
monfichier = (base & nomfichier & a & "h00" & ".txt")

feuille = nomfichier & Format(a, 00) & "h00"
monfichier = base & nomfichier & Format(a, 00) & "h00" & ".txt"

Pas testé, mais devrait convenir, dis nous

--
JLuc

c_luimeme@hotmail.com avait soumis l'idée :

JLuc,

merci de ta réponse , mais la solution que tu ma proposée ne marche
pas j'ai toujours le même fomat cad "5h00" et non "05h00"
Math

c_luimeme@hotmail.com avait soumis l'idée :

feuille = (nomfichier & a & "h00")
monfichier = (base & nomfichier & a & "h00" & ".txt")

feuille = nomfichier & Format(a, 00) & "h00"
monfichier = base & nomfichier & Format(a, 00) & "h00" & ".txt"

Pas testé, mais devrait convenir, dis nous

--
JLuc

Autant pour moi, il faut mettre : Format(a, "00")
s'cuse

--
JLuc

JLuc
super merci bcp cela marche commence sur des roulettes.

je m'attaque à la deuxieme difficulté que je me permet de te
soumettre dans le cas ou tu aurais une idée sur le sujet .
Voila j'ai un fichier source au format txt qui est généré à chaque
heure.
je l'ouvre sous excel via macro grace à ton aide
A partir de la cellule B1 du fichier source Je souhaite remplir une
autre feuille appelé "synthèse" en commenacant par la cellule B2
juqu'a B24

Voila mon code qui marche pas terrible aurais tu une idée

Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
*************************************************************************** *************************
'""""""TROUVER LA FACON DINCREMENTER CETTE CELLULE de B2 a B24 puis
C2 à C24
'''''' jusqu'a D,E,F,G,H, I,J,K,L

*************************************************************************** *************************
*************************************************************************** ***************************
Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

c_luimeme@hotmail.com avait soumis l'idée :

JLuc,

merci de ta réponse , mais la solution que tu ma proposée ne marche
pas j'ai toujours le même fomat cad "5h00" et non "05h00"
Math

c_luimeme@hotmail.com avait soumis l'idée :

feuille = (nomfichier & a & "h00")
monfichier = (base & nomfichier & a & "h00" & ".txt")

feuille = nomfichier & Format(a, 00) & "h00"
monfichier = base & nomfichier & Format(a, 00) & "h00" & ".txt"

Pas testé, mais devrait convenir, dis nous

--
JLuc

Autant pour moi, il faut mettre : Format(a, "00")
s'cuse

--
JLuc

*Bonjour c_luimeme@hotmail.com*,
Peut être quelque chose comme :

For x = 2 To 12 'numéro de colonne
For y = 2 To 24 'numéro de ligne
Workbooks("Synthese.xls").Sheets("Manithy_OUT").Cells(y, x) = _
Workbooks(feuille).Cells(y,x)
Next y
Next x

Mais j'avoue que j'ai pas tout compris au niveau des colonnes et des
lignes. Que veux tu copier et où ?

JLuc
super merci bcp cela marche commence sur des roulettes.

je m'attaque à la deuxieme difficulté que je me permet de te
soumettre dans le cas ou tu aurais une idée sur le sujet .
Voila j'ai un fichier source au format txt qui est généré à chaque
heure.
je l'ouvre sous excel via macro grace à ton aide
A partir de la cellule B1 du fichier source Je souhaite remplir une
autre feuille appelé "synthèse" en commenacant par la cellule B2
juqu'a B24

Voila mon code qui marche pas terrible aurais tu une idée

Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
****************************************************************************************************
'""""""TROUVER LA FACON DINCREMENTER CETTE CELLULE de B2 a B24 puis
C2 à C24
'''''' jusqu'a D,E,F,G,H, I,J,K,L

****************************************************************************************************
******************************************************************************************************
Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse

c_luimeme@hotmail.com avait soumis l'idée :

JLuc,

merci de ta réponse , mais la solution que tu ma proposée ne marche
pas j'ai toujours le même fomat cad "5h00" et non "05h00"
Math

c_luimeme@hotmail.com avait soumis l'idée :

feuille = (nomfichier & a & "h00")
monfichier = (base & nomfichier & a & "h00" & ".txt")

feuille = nomfichier & Format(a, 00) & "h00"
monfichier = base & nomfichier & Format(a, 00) & "h00" & ".txt"

Pas testé, mais devrait convenir, dis nous

--
JLuc

Autant pour moi, il faut mettre : Format(a, "00")
s'cuse

--
JLuc

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Excuse moi de ne pas avoir été plus précis .
Je souhaite importer le contenu de la cellule B1 du fichier source vers
les cellules B2 à B24 puis C2 a C24 puis D2 A D24 et cela jusqu'a J
dans la feuille synthèse .
Il faut préciser que la cellule B1 du fichier source change à chaque
fois puiqu'il evolue a chaque heure

Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate

Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Je pense que c'est un peu plus précis
Math

*Bonjour c_luimeme@hotmail.com*,
Peut être quelque chose comme :

For x = 2 To 12 'numéro de colonne
For y = 2 To 24 'numéro de ligne
Workbooks("Synthese.xls").Sheets("Manithy_OUT").Cells(y, x) = _
Workbooks(feuille).Cells(y,x)
Next y
Next x

Mais j'avoue que j'ai pas tout compris au niveau des colonnes et des
lignes. Que veux tu copier et où ?

JLuc
super merci bcp cela marche commence sur des roulettes.

je m'attaque à la deuxieme difficulté que je me permet de te
soumettre dans le cas ou tu aurais une idée sur le sujet .
Voila j'ai un fichier source au format txt qui est généré à ch aque
heure.
je l'ouvre sous excel via macro grace à ton aide
A partir de la cellule B1 du fichier source Je souhaite remplir une
autre feuille appelé "synthèse" en commenacant par la cellule B2
juqu'a B24

Voila mon code qui marche pas terrible aurais tu une idée

Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
*********************************************************************** *****************************
'""""""TROUVER LA FACON DINCREMENTER CETTE CELLULE de B2 a B24 puis
C2 à C24
'''''' jusqu'a D,E,F,G,H, I,J,K,L

*********************************************************************** *****************************
*********************************************************************** *******************************
Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNon e,
SkipBlanks _
:=False, Transpose:=False

c_luimeme@hotmail.com avait soumis l'idée :

JLuc,

merci de ta réponse , mais la solution que tu ma proposée ne marc he
pas j'ai toujours le même fomat cad "5h00" et non "05h00"
Math

c_luimeme@hotmail.com avait soumis l'idée :

feuille = (nomfichier & a & "h00")
monfichier = (base & nomfichier & a & "h00" & ".txt")

feuille = nomfichier & Format(a, 00) & "h00"
monfichier = base & nomfichier & Format(a, 00) & "h00" & ".txt"

Pas testé, mais devrait convenir, dis nous

--
JLuc

Autant pour moi, il faut mettre : Format(a, "00")
s'cuse

--
JLuc

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

*ReBonjour c_luimeme@hotmail.com*,
Avant de me lancer, je veux être sur d'avoir compris !
Ton fichier source (Windows(feuille)) est réactualisé toutes les
heures.
Tu veux copier la valeur de la cellule B1 de ce fichier source dans le
classeur Synthese.xls, dans la feuille Manithy_OUT d'abord en B1, puis
la fois suivante en B2, puis après en B3 ... jusqu'en B24. Après avoir
copier en B24, tu souhaite copier cette valeur en C1, puis C2..., puis
C24, après, D1 à D24, puis E1 à E24... jusqu'en colonne L et çà, à
chaque execution de la macro. Et après, lorsque tu copie en L24, tu
fais quoi ?
Si c'est ce principe, c'est pas trop compliqué. Dis nous

Excuse moi de ne pas avoir été plus précis .
Je souhaite importer le contenu de la cellule B1 du fichier source vers
les cellules B2 à B24 puis C2 a C24 puis D2 A D24 et cela jusqu'a J
dans la feuille synthèse .
Il faut préciser que la cellule B1 du fichier source change à chaque
fois puiqu'il evolue a chaque heure

Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate

Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _

úlse, Transpose:úlse

Je pense que c'est un peu plus précis
Math

*Bonjour c_luimeme@hotmail.com*,
Peut être quelque chose comme :

For x = 2 To 12 'numéro de colonne
For y = 2 To 24 'numéro de ligne
Workbooks("Synthese.xls").Sheets("Manithy_OUT").Cells(y, x) = _
Workbooks(feuille).Cells(y,x)
Next y
Next x

Mais j'avoue que j'ai pas tout compris au niveau des colonnes et des
lignes. Que veux tu copier et où ?

JLuc
super merci bcp cela marche commence sur des roulettes.

je m'attaque à la deuxieme difficulté que je me permet de te
soumettre dans le cas ou tu aurais une idée sur le sujet .
Voila j'ai un fichier source au format txt qui est généré à chaque
heure.
je l'ouvre sous excel via macro grace à ton aide
A partir de la cellule B1 du fichier source Je souhaite remplir une
autre feuille appelé "synthèse" en commenacant par la cellule B2
juqu'a B24

Voila mon code qui marche pas terrible aurais tu une idée

Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
****************************************************************************************************
'""""""TROUVER LA FACON DINCREMENTER CETTE CELLULE de B2 a B24 puis
C2 à C24
'''''' jusqu'a D,E,F,G,H, I,J,K,L

****************************************************************************************************
******************************************************************************************************
Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse

c_luimeme@hotmail.com avait soumis l'idée :

JLuc,

merci de ta réponse , mais la solution que tu ma proposée ne marche
pas j'ai toujours le même fomat cad "5h00" et non "05h00"
Math

c_luimeme@hotmail.com avait soumis l'idée :

feuille = (nomfichier & a & "h00")
monfichier = (base & nomfichier & a & "h00" & ".txt")

feuille = nomfichier & Format(a, 00) & "h00"
monfichier = base & nomfichier & Format(a, 00) & "h00" & ".txt"

Pas testé, mais devrait convenir, dis nous

--
JLuc

Autant pour moi, il faut mettre : Format(a, "00")
s'cuse

--
JLuc

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Jluc,

c'est exactement cela tu as bien résumé mon souhait
merci beaucoup pour ton aide

Et après, lorsque tu copie en L24, tu fais quoi ?
En L24 la macro s'arrete

Math

*ReBonjour c_luimeme@hotmail.com*,
Avant de me lancer, je veux être sur d'avoir compris !
Ton fichier source (Windows(feuille)) est réactualisé toutes les
heures.
Tu veux copier la valeur de la cellule B1 de ce fichier source dans le
classeur Synthese.xls, dans la feuille Manithy_OUT d'abord en B1, puis
la fois suivante en B2, puis après en B3 ... jusqu'en B24. Après avoir
copier en B24, tu souhaite copier cette valeur en C1, puis C2..., puis
C24, après, D1 à D24, puis E1 à E24... jusqu'en colonne L et çà , à
chaque execution de la macro. Et après, lorsque tu copie en L24, tu
fais quoi ?
Si c'est ce principe, c'est pas trop compliqué. Dis nous

Excuse moi de ne pas avoir été plus précis .
Je souhaite importer le contenu de la cellule B1 du fichier source vers
les cellules B2 à B24 puis C2 a C24 puis D2 A D24 et cela jusqu'a J
dans la feuille synthèse .
Il faut préciser que la cellule B1 du fichier source change à chaque
fois puiqu'il evolue a chaque heure

Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate

Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _

=False, Transpose:=False

Je pense que c'est un peu plus précis
Math

*Bonjour c_luimeme@hotmail.com*,
Peut être quelque chose comme :

For x = 2 To 12 'numéro de colonne
For y = 2 To 24 'numéro de ligne
Workbooks("Synthese.xls").Sheets("Manithy_OUT").Cells(y, x) = _
Workbooks(feuille).Cells(y,x)
Next y
Next x

Mais j'avoue que j'ai pas tout compris au niveau des colonnes et des
lignes. Que veux tu copier et où ?

JLuc
super merci bcp cela marche commence sur des roulettes.

je m'attaque à la deuxieme difficulté que je me permet de te
soumettre dans le cas ou tu aurais une idée sur le sujet .
Voila j'ai un fichier source au format txt qui est généré à chaque
heure.
je l'ouvre sous excel via macro grace à ton aide
A partir de la cellule B1 du fichier source Je souhaite remplir une
autre feuille appelé "synthèse" en commenacant par la cellule B2
juqu'a B24

Voila mon code qui marche pas terrible aurais tu une idée

Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
********************************************************************* *******************************
'""""""TROUVER LA FACON DINCREMENTER CETTE CELLULE de B2 a B24 pu is
C2 à C24
'''''' jusqu'a D,E,F,G,H, I,J,K,L

********************************************************************* *******************************
********************************************************************* *********************************
Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlN one,
SkipBlanks _
:=False, Transpose:=False

c_luimeme@hotmail.com avait soumis l'idée :

JLuc,

merci de ta réponse , mais la solution que tu ma proposée ne ma rche
pas j'ai toujours le même fomat cad "5h00" et non "05h00"
Math

c_luimeme@hotmail.com avait soumis l'idée :

feuille = (nomfichier & a & "h00")
monfichier = (base & nomfichier & a & "h00" & ".txt")

feuille = nomfichier & Format(a, 00) & "h00"
monfichier = base & nomfichier & Format(a, 00) & "h00" & ".txt"

Pas testé, mais devrait convenir, dis nous

--
JLuc

Autant pour moi, il faut mettre : Format(a, "00")
s'cuse

--
JLuc

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

*Bonjour c_luimeme@hotmail.com*,
Alors, allons y :

Sub CopieValeur()
Dim Ligne, Colonne
Workbooks("Synthese.xls").Sheets("Manithy_OUT").Select
Colonne = Range("IV1").End(xlToLeft).Column
If Colonne = 1 Then Colonne = 2
Ligne = Cells(65536, Colonne).End(xlUp).Row
If Ligne >= 24 Then
If Colonne = 12 Then
MsgBox "Plage remplie !"
Exit Sub
End If
Colonne = Colonne + 1
Ligne = 1
Else
If Cells(Ligne, Colonne) <> "" Then Ligne = Ligne + 1
End If
Cells(Ligne, Colonne) = Workbooks(feuille).Range("B1")
End Sub

Jluc,

c'est exactement cela tu as bien résumé mon souhait
merci beaucoup pour ton aide

Et après, lorsque tu copie en L24, tu fais quoi ?
En L24 la macro s'arrete

Math

*ReBonjour c_luimeme@hotmail.com*,
Avant de me lancer, je veux être sur d'avoir compris !
Ton fichier source (Windows(feuille)) est réactualisé toutes les
heures.
Tu veux copier la valeur de la cellule B1 de ce fichier source dans le
classeur Synthese.xls, dans la feuille Manithy_OUT d'abord en B1, puis
la fois suivante en B2, puis après en B3 ... jusqu'en B24. Après avoir
copier en B24, tu souhaite copier cette valeur en C1, puis C2..., puis
C24, après, D1 à D24, puis E1 à E24... jusqu'en colonne L et çà, à
chaque execution de la macro. Et après, lorsque tu copie en L24, tu
fais quoi ?
Si c'est ce principe, c'est pas trop compliqué. Dis nous

Excuse moi de ne pas avoir été plus précis .
Je souhaite importer le contenu de la cellule B1 du fichier source vers
les cellules B2 à B24 puis C2 a C24 puis D2 A D24 et cela jusqu'a J
dans la feuille synthèse .
Il faut préciser que la cellule B1 du fichier source change à chaque
fois puiqu'il evolue a chaque heure

Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate

Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _

úlse, Transpose:úlse

Je pense que c'est un peu plus précis
Math

*Bonjour c_luimeme@hotmail.com*,
Peut être quelque chose comme :

For x = 2 To 12 'numéro de colonne
For y = 2 To 24 'numéro de ligne
Workbooks("Synthese.xls").Sheets("Manithy_OUT").Cells(y, x) = _
Workbooks(feuille).Cells(y,x)
Next y
Next x

Mais j'avoue que j'ai pas tout compris au niveau des colonnes et des
lignes. Que veux tu copier et où ?

JLuc
super merci bcp cela marche commence sur des roulettes.

je m'attaque à la deuxieme difficulté que je me permet de te
soumettre dans le cas ou tu aurais une idée sur le sujet .
Voila j'ai un fichier source au format txt qui est généré à chaque
heure.
je l'ouvre sous excel via macro grace à ton aide
A partir de la cellule B1 du fichier source Je souhaite remplir une
autre feuille appelé "synthèse" en commenacant par la cellule B2
juqu'a B24

Voila mon code qui marche pas terrible aurais tu une idée

Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
****************************************************************************************************
'""""""TROUVER LA FACON DINCREMENTER CETTE CELLULE de B2 a B24 puis
C2 à C24
'''''' jusqu'a D,E,F,G,H, I,J,K,L

****************************************************************************************************
******************************************************************************************************
Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse

c_luimeme@hotmail.com avait soumis l'idée :

JLuc,

merci de ta réponse , mais la solution que tu ma proposée ne marche
pas j'ai toujours le même fomat cad "5h00" et non "05h00"
Math

c_luimeme@hotmail.com avait soumis l'idée :

feuille = (nomfichier & a & "h00")
monfichier = (base & nomfichier & a & "h00" & ".txt")

feuille = nomfichier & Format(a, 00) & "h00"
monfichier = base & nomfichier & Format(a, 00) & "h00" & ".txt"

Pas testé, mais devrait convenir, dis nous

--
JLuc

Autant pour moi, il faut mettre : Format(a, "00")
s'cuse

--
JLuc

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

JLuc
Merci beucoup pour ce bout de code mais je rencontre une difficultée
a la ligne suivante :

Cells(Ligne, Colonne) = Workbooks(feuille).Range("B1")
Le message d'erreur est incompatibilté de type "erreur d'execution

13"
Math

*Bonjour c_luimeme@hotmail.com*,
Alors, allons y :

Sub CopieValeur()
Dim Ligne, Colonne
Workbooks("Synthese.xls").Sheets("Manithy_OUT").Select
Colonne = Range("IV1").End(xlToLeft).Column
If Colonne = 1 Then Colonne = 2
Ligne = Cells(65536, Colonne).End(xlUp).Row
If Ligne >= 24 Then
If Colonne = 12 Then
MsgBox "Plage remplie !"
Exit Sub
End If
Colonne = Colonne + 1
Ligne = 1
Else
If Cells(Ligne, Colonne) <> "" Then Ligne = Ligne + 1
End If
Cells(Ligne, Colonne) = Workbooks(feuille).Range("B1")
End Sub

Jluc,

c'est exactement cela tu as bien résumé mon souhait
merci beaucoup pour ton aide

Et après, lorsque tu copie en L24, tu fais quoi ?
En L24 la macro s'arrete

Math

*ReBonjour c_luimeme@hotmail.com*,
Avant de me lancer, je veux être sur d'avoir compris !
Ton fichier source (Windows(feuille)) est réactualisé toutes les
heures.
Tu veux copier la valeur de la cellule B1 de ce fichier source dans le
classeur Synthese.xls, dans la feuille Manithy_OUT d'abord en B1, puis
la fois suivante en B2, puis après en B3 ... jusqu'en B24. Après a voir
copier en B24, tu souhaite copier cette valeur en C1, puis C2..., puis
C24, après, D1 à D24, puis E1 à E24... jusqu'en colonne L et ç à, à
chaque execution de la macro. Et après, lorsque tu copie en L24, tu
fais quoi ?
Si c'est ce principe, c'est pas trop compliqué. Dis nous

Excuse moi de ne pas avoir été plus précis .
Je souhaite importer le contenu de la cellule B1 du fichier source ve rs
les cellules B2 à B24 puis C2 a C24 puis D2 A D24 et cela jusqu'a J
dans la feuille synthèse .
Il faut préciser que la cellule B1 du fichier source change à cha que
fois puiqu'il evolue a chaque heure

Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate

Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNon e,
SkipBlanks _

=False, Transpose:=False

Je pense que c'est un peu plus précis
Math

*Bonjour c_luimeme@hotmail.com*,
Peut être quelque chose comme :

For x = 2 To 12 'numéro de colonne
For y = 2 To 24 'numéro de ligne
Workbooks("Synthese.xls").Sheets("Manithy_OUT").Cells(y, x) = _
Workbooks(feuille).Cells(y,x)
Next y
Next x

Mais j'avoue que j'ai pas tout compris au niveau des colonnes et des
lignes. Que veux tu copier et où ?

JLuc
super merci bcp cela marche commence sur des roulettes.

je m'attaque à la deuxieme difficulté que je me permet de te
soumettre dans le cas ou tu aurais une idée sur le sujet .
Voila j'ai un fichier source au format txt qui est généré à chaque
heure.
je l'ouvre sous excel via macro grace à ton aide
A partir de la cellule B1 du fichier source Je souhaite remplir u ne
autre feuille appelé "synthèse" en commenacant par la cellule B2
juqu'a B24

Voila mon code qui marche pas terrible aurais tu une idée

Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
Windows(feuille).Activate
Range("B1").Select
Selection.Copy
Windows("Synthese.xls").Activate
Sheets("Manithy_OUT").Select
******************************************************************* *********************************
'""""""TROUVER LA FACON DINCREMENTER CETTE CELLULE de B2 a B24 puis
C2 à C24
'''''' jusqu'a D,E,F,G,H, I,J,K,L

******************************************************************* *********************************
******************************************************************* ***********************************
Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=x lNone,
SkipBlanks _
:=False, Transpose:=False

c_luimeme@hotmail.com avait soumis l'idée :

JLuc,

merci de ta réponse , mais la solution que tu ma proposée ne marche
pas j'ai toujours le même fomat cad "5h00" et non "05h00"
Math

c_luimeme@hotmail.com avait soumis l'idée :

feuille = (nomfichier & a & "h00")
monfichier = (base & nomfichier & a & "h00" & ".txt")

feuille = nomfichier & Format(a, 00) & "h00"
monfichier = base & nomfichier & Format(a, 00) & "h00" & ".txt"

Pas testé, mais devrait convenir, dis nous

--
JLuc

Autant pour moi, il faut mettre : Format(a, "00")
s'cuse

--
JLuc

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O