Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Compilation

Compilation

10 réponses
Avatar
RT
Bonjour à tous

Je suis bloqué sur une p'tite connerie depuis ce matin

Et pourtant comme disait le Chef "C'est pourtant simple, NO?" dans la
septième compagnie pour ceux qui ont de la culture


Voici de quoi il s'agit

Un classeur qui me sert à calculer mes commandes et qui s'appelle
"Pricelist.xls"

Dans ce classeur une feuille appelé "Invoice"


De cette feuille je dois copier une série de cellule non-jointes

B10 B12 D15

Et une série de cellules jointes

A19:K19

Et puis je dois ouvrir un fichier appellé "Sales.xls"

Selectionner la feuille "This month" et coller comme suit

B10 dans la colonne A
B12 B
D15 C
A19 D
B19 E
C19 D

et ainsi de suite jusqu'à K19


Merci beaucoup pour tout coup de pouce dans la bonne direction


A bientôt

Rex
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Essaie la macro suivante (non testée) :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonjour à tous

Je suis bloqué sur une p'tite connerie depuis ce matin

Et pourtant comme disait le Chef "C'est pourtant simple, NO?" dans la
septième compagnie pour ceux qui ont de la culture


Voici de quoi il s'agit

Un classeur qui me sert à calculer mes commandes et qui s'appelle
"Pricelist.xls"

Dans ce classeur une feuille appelé "Invoice"


De cette feuille je dois copier une série de cellule non-jointes

B10 B12 D15

Et une série de cellules jointes

A19:K19

Et puis je dois ouvrir un fichier appellé "Sales.xls"

Selectionner la feuille "This month" et coller comme suit

B10 dans la colonne A
B12 B
D15 C
A19 D
B19 E
C19 D

et ainsi de suite jusqu'à K19


Merci beaucoup pour tout coup de pouce dans la bonne direction


A bientôt

Rex







Avatar
RT
Bonjour et merci


Je teste et je te tiens au courant



Rex


"Daniel" wrote in message
news:#
Bonjour.
Essaie la macro suivante (non testée) :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonjour à tous

Je suis bloqué sur une p'tite connerie depuis ce matin

Et pourtant comme disait le Chef "C'est pourtant simple, NO?" dans la
septième compagnie pour ceux qui ont de la culture


Voici de quoi il s'agit

Un classeur qui me sert à calculer mes commandes et qui s'appelle
"Pricelist.xls"

Dans ce classeur une feuille appelé "Invoice"


De cette feuille je dois copier une série de cellule non-jointes

B10 B12 D15

Et une série de cellules jointes

A19:K19

Et puis je dois ouvrir un fichier appellé "Sales.xls"

Selectionner la feuille "This month" et coller comme suit

B10 dans la colonne A
B12 B
D15 C
A19 D
B19 E
C19 D

et ainsi de suite jusqu'à K19


Merci beaucoup pour tout coup de pouce dans la bonne direction


A bientôt

Rex











Avatar
RT
Bonjour

Dommage mais cela ne fonctionne pas

Il bloquait tout de suite avec error 4000

J'ai ajouté une ligne juste avant ta ligne workbooks

ChDrive "C"
ChDir "C:Mes documentsjust waitprometheansales"

Pour trouver le fichier

Mais maintenant il me donne Erreur 9 Subscribe out of range

Y a-t-il moyen de retrouver une liste explicative des numéro d'erreurs
quelque part?

Et puis sûr

Ton aide et celle des autres est toujours la bienvenue

Merci et à bientôt

Rex


"Daniel" wrote in message
news:#
Bonjour.
Essaie la macro suivante (non testée) :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonjour à tous

Je suis bloqué sur une p'tite connerie depuis ce matin

Et pourtant comme disait le Chef "C'est pourtant simple, NO?" dans la
septième compagnie pour ceux qui ont de la culture


Voici de quoi il s'agit

Un classeur qui me sert à calculer mes commandes et qui s'appelle
"Pricelist.xls"

Dans ce classeur une feuille appelé "Invoice"


De cette feuille je dois copier une série de cellule non-jointes

B10 B12 D15

Et une série de cellules jointes

A19:K19

Et puis je dois ouvrir un fichier appellé "Sales.xls"

Selectionner la feuille "This month" et coller comme suit

B10 dans la colonne A
B12 B
D15 C
A19 D
B19 E
C19 D

et ainsi de suite jusqu'à K19


Merci beaucoup pour tout coup de pouce dans la bonne direction


A bientôt

Rex











Avatar
Daniel
Sais-tu quelle ligne provoque l'erreur ?
Si la colonne A de la feuille "thismonth" est vide, essaie :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
If Range("A1").Value = "" Then
Ligne = 1
Else
Ligne = Range("A65536").End(xlUp).Row + 1
End If
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Daniel
"RT" a écrit dans le message de news:

Bonjour

Dommage mais cela ne fonctionne pas

Il bloquait tout de suite avec error 4000

J'ai ajouté une ligne juste avant ta ligne workbooks

ChDrive "C"
ChDir "C:Mes documentsjust waitprometheansales"

Pour trouver le fichier

Mais maintenant il me donne Erreur 9 Subscribe out of range

Y a-t-il moyen de retrouver une liste explicative des numéro d'erreurs
quelque part?

Et puis sûr

Ton aide et celle des autres est toujours la bienvenue

Merci et à bientôt

Rex


"Daniel" wrote in message
news:#
Bonjour.
Essaie la macro suivante (non testée) :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonjour à tous

Je suis bloqué sur une p'tite connerie depuis ce matin

Et pourtant comme disait le Chef "C'est pourtant simple, NO?" dans la
septième compagnie pour ceux qui ont de la culture


Voici de quoi il s'agit

Un classeur qui me sert à calculer mes commandes et qui s'appelle
"Pricelist.xls"

Dans ce classeur une feuille appelé "Invoice"


De cette feuille je dois copier une série de cellule non-jointes

B10 B12 D15

Et une série de cellules jointes

A19:K19

Et puis je dois ouvrir un fichier appellé "Sales.xls"

Selectionner la feuille "This month" et coller comme suit

B10 dans la colonne A
B12 B
D15 C
A19 D
B19 E
C19 D

et ainsi de suite jusqu'à K19


Merci beaucoup pour tout coup de pouce dans la bonne direction


A bientôt

Rex















Avatar
RT
Bonjour

Toujours le même message d'erreur

Error '9'
Subscribe out of range

Ci-dessous la macro comme eel est maintenant

Merci pour l'aide et à bientôt

Rex





Sub tests()
Dim Ligne As Long
ChDrive "C"
ChDir "C:Mes documentsjust waitprometheansales"
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
If Range("A1").Value = "" Then
Ligne = 1
Else
Ligne = Range("A65536").End(xlUp).Row + 1
End If
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub





xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxx
"Daniel" wrote in message
news:
Sais-tu quelle ligne provoque l'erreur ?
Si la colonne A de la feuille "thismonth" est vide, essaie :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
If Range("A1").Value = "" Then
Ligne = 1
Else
Ligne = Range("A65536").End(xlUp).Row + 1
End If
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Daniel
"RT" a écrit dans le message de news:

Bonjour

Dommage mais cela ne fonctionne pas

Il bloquait tout de suite avec error 4000

J'ai ajouté une ligne juste avant ta ligne workbooks

ChDrive "C"
ChDir "C:Mes documentsjust waitprometheansales"

Pour trouver le fichier

Mais maintenant il me donne Erreur 9 Subscribe out of range

Y a-t-il moyen de retrouver une liste explicative des numéro d'erreurs
quelque part?

Et puis sûr

Ton aide et celle des autres est toujours la bienvenue

Merci et à bientôt

Rex


"Daniel" wrote in message
news:#
Bonjour.
Essaie la macro suivante (non testée) :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonjour à tous

Je suis bloqué sur une p'tite connerie depuis ce matin

Et pourtant comme disait le Chef "C'est pourtant simple, NO?" dans
la




septième compagnie pour ceux qui ont de la culture


Voici de quoi il s'agit

Un classeur qui me sert à calculer mes commandes et qui s'appelle
"Pricelist.xls"

Dans ce classeur une feuille appelé "Invoice"


De cette feuille je dois copier une série de cellule non-jointes

B10 B12 D15

Et une série de cellules jointes

A19:K19

Et puis je dois ouvrir un fichier appellé "Sales.xls"

Selectionner la feuille "This month" et coller comme suit

B10 dans la colonne A
B12 B
D15 C
A19 D
B19 E
C19 D

et ainsi de suite jusqu'à K19


Merci beaucoup pour tout coup de pouce dans la bonne direction


A bientôt

Rex



















Avatar
RT
Bonsoir

On avance! on avance ! on avance !!!!!

J'ai trouvé ce qui bloquait

Et comme de bien entendu c'est entièrement de ma faute

Le nom de la feuille "Thismonth" est en réalité "This month"

Donc le problème runtime error no 9 est réparé


Et la macro tourne sans souci Malheureusement la feuille "This month" rste
désespérament vide

Ne devrait-on pas, dans ta macro dire qu'il s'agit de la valeur du fichier
"Pricelist.xls"
donc Range("A" & Ligne).Value = et ici quelque part pricelist [B10]


Qu'est-ce que tu en pense?

Ou quelqu'un d'autre?

MErci à tous

Et à bientôt

Rex



"Daniel" wrote in message
news:#
Bonjour.
Essaie la macro suivante (non testée) :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonjour à tous

Je suis bloqué sur une p'tite connerie depuis ce matin

Et pourtant comme disait le Chef "C'est pourtant simple, NO?" dans la
septième compagnie pour ceux qui ont de la culture


Voici de quoi il s'agit

Un classeur qui me sert à calculer mes commandes et qui s'appelle
"Pricelist.xls"

Dans ce classeur une feuille appelé "Invoice"


De cette feuille je dois copier une série de cellule non-jointes

B10 B12 D15

Et une série de cellules jointes

A19:K19

Et puis je dois ouvrir un fichier appellé "Sales.xls"

Selectionner la feuille "This month" et coller comme suit

B10 dans la colonne A
B12 B
D15 C
A19 D
B19 E
C19 D

et ainsi de suite jusqu'à K19


Merci beaucoup pour tout coup de pouce dans la bonne direction


A bientôt

Rex











Avatar
Daniel
J'ai créé des classeurs analogues pour pouvoir tester. Les copies se font,
pas très bien mais elles se font. Si tu as toujours des problèmes, je
mettrai mes classeurs de test sur cjoint.com.
Après rectification :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("This month").Select
If Range("A1").Value = "" Then
Ligne = 1
Else
Ligne = Range("A65536").End(xlUp).Row + 1
End If
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("This month")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("D" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonsoir

On avance! on avance ! on avance !!!!!

J'ai trouvé ce qui bloquait

Et comme de bien entendu c'est entièrement de ma faute

Le nom de la feuille "Thismonth" est en réalité "This month"

Donc le problème runtime error no 9 est réparé


Et la macro tourne sans souci Malheureusement la feuille "This month"
rste
désespérament vide

Ne devrait-on pas, dans ta macro dire qu'il s'agit de la valeur du fichier
"Pricelist.xls"
donc Range("A" & Ligne).Value = et ici quelque part pricelist [B10]


Qu'est-ce que tu en pense?

Ou quelqu'un d'autre?

MErci à tous

Et à bientôt

Rex



"Daniel" wrote in message
news:#
Bonjour.
Essaie la macro suivante (non testée) :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonjour à tous

Je suis bloqué sur une p'tite connerie depuis ce matin

Et pourtant comme disait le Chef "C'est pourtant simple, NO?" dans la
septième compagnie pour ceux qui ont de la culture


Voici de quoi il s'agit

Un classeur qui me sert à calculer mes commandes et qui s'appelle
"Pricelist.xls"

Dans ce classeur une feuille appelé "Invoice"


De cette feuille je dois copier une série de cellule non-jointes

B10 B12 D15

Et une série de cellules jointes

A19:K19

Et puis je dois ouvrir un fichier appellé "Sales.xls"

Selectionner la feuille "This month" et coller comme suit

B10 dans la colonne A
B12 B
D15 C
A19 D
B19 E
C19 D

et ainsi de suite jusqu'à K19


Merci beaucoup pour tout coup de pouce dans la bonne direction


A bientôt

Rex















Avatar
RT
Bonjour

Désolé, mais chez moi cela travail mais il n'y a pas de résultat

Ce que je te propose, mais faut que tu m'explique comment faire
c'est de te faire parvenir un fichier simplifié avec la feuille invoice pour
voir si tu arrive à quelque chose

MAIS


Ne te sens pas du tout obligé de passer ton temps pour moi

Et si tu décide de ne pas continuer, je ne serais pas faché ou déçu
Bien au contraire il y a déjà pleins de petits trucs que j'ai compris ces
derniers jours grâce à toi

Merci et à bientôt

Rex



"Daniel" wrote in message
news:
J'ai créé des classeurs analogues pour pouvoir tester. Les copies se font,
pas très bien mais elles se font. Si tu as toujours des problèmes, je
mettrai mes classeurs de test sur cjoint.com.
Après rectification :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("This month").Select
If Range("A1").Value = "" Then
Ligne = 1
Else
Ligne = Range("A65536").End(xlUp).Row + 1
End If
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("This month")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("D" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonsoir

On avance! on avance ! on avance !!!!!

J'ai trouvé ce qui bloquait

Et comme de bien entendu c'est entièrement de ma faute

Le nom de la feuille "Thismonth" est en réalité "This month"

Donc le problème runtime error no 9 est réparé


Et la macro tourne sans souci Malheureusement la feuille "This month"
rste
désespérament vide

Ne devrait-on pas, dans ta macro dire qu'il s'agit de la valeur du
fichier


"Pricelist.xls"
donc Range("A" & Ligne).Value = et ici quelque part pricelist
[B10]




Qu'est-ce que tu en pense?

Ou quelqu'un d'autre?

MErci à tous

Et à bientôt

Rex



"Daniel" wrote in message
news:#
Bonjour.
Essaie la macro suivante (non testée) :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonjour à tous

Je suis bloqué sur une p'tite connerie depuis ce matin

Et pourtant comme disait le Chef "C'est pourtant simple, NO?" dans
la




septième compagnie pour ceux qui ont de la culture


Voici de quoi il s'agit

Un classeur qui me sert à calculer mes commandes et qui s'appelle
"Pricelist.xls"

Dans ce classeur une feuille appelé "Invoice"


De cette feuille je dois copier une série de cellule non-jointes

B10 B12 D15

Et une série de cellules jointes

A19:K19

Et puis je dois ouvrir un fichier appellé "Sales.xls"

Selectionner la feuille "This month" et coller comme suit

B10 dans la colonne A
B12 B
D15 C
A19 D
B19 E
C19 D

et ainsi de suite jusqu'à K19


Merci beaucoup pour tout coup de pouce dans la bonne direction


A bientôt

Rex



















Avatar
Daniel
Tu trouveras mes deux classeurs de test zippés à l'adresse suivante :
http://cjoint.com/?mbn3SCvahI
Daniel
"RT" a écrit dans le message de news:

Bonjour

Désolé, mais chez moi cela travail mais il n'y a pas de résultat

Ce que je te propose, mais faut que tu m'explique comment faire
c'est de te faire parvenir un fichier simplifié avec la feuille invoice
pour
voir si tu arrive à quelque chose

MAIS


Ne te sens pas du tout obligé de passer ton temps pour moi

Et si tu décide de ne pas continuer, je ne serais pas faché ou déçu
Bien au contraire il y a déjà pleins de petits trucs que j'ai compris ces
derniers jours grâce à toi

Merci et à bientôt

Rex



"Daniel" wrote in message
news:
J'ai créé des classeurs analogues pour pouvoir tester. Les copies se
font,
pas très bien mais elles se font. Si tu as toujours des problèmes, je
mettrai mes classeurs de test sur cjoint.com.
Après rectification :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("This month").Select
If Range("A1").Value = "" Then
Ligne = 1
Else
Ligne = Range("A65536").End(xlUp).Row + 1
End If
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("This month")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("D" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonsoir

On avance! on avance ! on avance !!!!!

J'ai trouvé ce qui bloquait

Et comme de bien entendu c'est entièrement de ma faute

Le nom de la feuille "Thismonth" est en réalité "This month"

Donc le problème runtime error no 9 est réparé


Et la macro tourne sans souci Malheureusement la feuille "This month"
rste
désespérament vide

Ne devrait-on pas, dans ta macro dire qu'il s'agit de la valeur du
fichier


"Pricelist.xls"
donc Range("A" & Ligne).Value = et ici quelque part pricelist
[B10]




Qu'est-ce que tu en pense?

Ou quelqu'un d'autre?

MErci à tous

Et à bientôt

Rex



"Daniel" wrote in message
news:#
Bonjour.
Essaie la macro suivante (non testée) :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonjour à tous

Je suis bloqué sur une p'tite connerie depuis ce matin

Et pourtant comme disait le Chef "C'est pourtant simple, NO?" dans
la




septième compagnie pour ceux qui ont de la culture


Voici de quoi il s'agit

Un classeur qui me sert à calculer mes commandes et qui s'appelle
"Pricelist.xls"

Dans ce classeur une feuille appelé "Invoice"


De cette feuille je dois copier une série de cellule non-jointes

B10 B12 D15

Et une série de cellules jointes

A19:K19

Et puis je dois ouvrir un fichier appellé "Sales.xls"

Selectionner la feuille "This month" et coller comme suit

B10 dans la colonne A
B12 B
D15 C
A19 D
B19 E
C19 D

et ainsi de suite jusqu'à K19


Merci beaucoup pour tout coup de pouce dans la bonne direction


A bientôt

Rex























Avatar
RT
Bonjour

C'est désolant

Tu dois être tombé sur le plus mauvais des mauvais

Cela ne fonctionne pas du tout chez moi

Je te propose ceci, si tu es d'accord

Je mets le tout en suspends pendant un petit bout de temps

Ce week-end je me casse la tête

Je récupère les morceau de cerveau encore valable

Je me rebourre le crâne

Je regarde, je réflechi, je solutionne

Et lundi je te confirme que tout vas bien

Sinon Lundi je me mets dans mon coin et je pleure


Merci pour tout

et je te contacterai lundi

Bon week end à toi

Rex


"Daniel" wrote in message
news:
Tu trouveras mes deux classeurs de test zippés à l'adresse suivante :
http://cjoint.com/?mbn3SCvahI
Daniel
"RT" a écrit dans le message de news:

Bonjour

Désolé, mais chez moi cela travail mais il n'y a pas de résultat

Ce que je te propose, mais faut que tu m'explique comment faire
c'est de te faire parvenir un fichier simplifié avec la feuille invoice
pour
voir si tu arrive à quelque chose

MAIS


Ne te sens pas du tout obligé de passer ton temps pour moi

Et si tu décide de ne pas continuer, je ne serais pas faché ou déçu
Bien au contraire il y a déjà pleins de petits trucs que j'ai compris
ces


derniers jours grâce à toi

Merci et à bientôt

Rex



"Daniel" wrote in message
news:
J'ai créé des classeurs analogues pour pouvoir tester. Les copies se
font,
pas très bien mais elles se font. Si tu as toujours des problèmes, je
mettrai mes classeurs de test sur cjoint.com.
Après rectification :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("This month").Select
If Range("A1").Value = "" Then
Ligne = 1
Else
Ligne = Range("A65536").End(xlUp).Row + 1
End If
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("This month")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("D" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonsoir

On avance! on avance ! on avance !!!!!

J'ai trouvé ce qui bloquait

Et comme de bien entendu c'est entièrement de ma faute

Le nom de la feuille "Thismonth" est en réalité "This month"

Donc le problème runtime error no 9 est réparé


Et la macro tourne sans souci Malheureusement la feuille "This
month"




rste
désespérament vide

Ne devrait-on pas, dans ta macro dire qu'il s'agit de la valeur du
fichier


"Pricelist.xls"
donc Range("A" & Ligne).Value = et ici quelque part pricelist
[B10]




Qu'est-ce que tu en pense?

Ou quelqu'un d'autre?

MErci à tous

Et à bientôt

Rex



"Daniel" wrote in message
news:#
Bonjour.
Essaie la macro suivante (non testée) :

Sub test()
Dim Ligne As Long
Workbooks.Open "Sales.xls"
Sheets("Thismonth").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Workbooks.Open "Pricelist.xls"
Sheets("Invoice").Select
With Workbooks("Sales.xls").Sheets("Thismonth")
.Range("A" & Ligne).Value = [B10]
.Range("B" & Ligne).Value = [B12]
.Range("C" & Ligne).Value = [D15]
For i = 0 To 10
.Range("A" & Ligne).Offset(0, i).Value = _
Range("A19").Offset(0, i).Value
Next i
End With
End Sub

Cordialement.
Daniel
"RT" a écrit dans le message de news:

Bonjour à tous

Je suis bloqué sur une p'tite connerie depuis ce matin

Et pourtant comme disait le Chef "C'est pourtant simple, NO?"
dans






la
septième compagnie pour ceux qui ont de la culture


Voici de quoi il s'agit

Un classeur qui me sert à calculer mes commandes et qui s'appelle
"Pricelist.xls"

Dans ce classeur une feuille appelé "Invoice"


De cette feuille je dois copier une série de cellule non-jointes

B10 B12 D15

Et une série de cellules jointes

A19:K19

Et puis je dois ouvrir un fichier appellé "Sales.xls"

Selectionner la feuille "This month" et coller comme suit

B10 dans la colonne A
B12 B
D15 C
A19 D
B19 E
C19 D

et ainsi de suite jusqu'à K19


Merci beaucoup pour tout coup de pouce dans la bonne direction


A bientôt

Rex