Posez votre question Signaler

Importer une valeur cellule d'un classeur vers un autre

Messages postés
61
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
28 octobre 2011
 - - Dernière réponse : cs_zeps2
Messages postés
61
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
28 octobre 2011
 - 24 nov. 2010 à 19:47
Visual Basic 6 Posez votre question Signaler
Bonjour,

J'ai fait (ci-dessous) un code ouvre une série de classeurs et de feuilles de ces classeurs pour m'importer en listing les valeurs de certaines cellules.
Là ou ça bloque c'est à la ligne :
"Workbooks("Import.xls").Sheets("Val").Cells(f, 1)= Workbooks("classeur").Sheets("k").Cells(Q9).Value"

QQ'1 à une idée, je pense que c'est une broutille qui me bloque.

Merci de vos réponses !!


Sub Import_Val_Cell()
'
' Défilfich Macro
' Macro enregistrée le 04/01/2008 par f.dubillot
Dim i As String
Dim chemin As String
Dim f As String
Dim classeur As String


i = 1 'n° de ligne
f = 1 'n° de ligne

While Range("B" & i) <> ""

chemin = Range("B" & i)
classeur = Range("A" & f)

Workbooks.Open Filename:=chemin

For k = 40 To 43 'n° des feuilles

Sheets(k).Select

Workbooks("Import.xls").Sheets("Val").Cells(f, 1) = Workbooks("classeur").Sheets("k").Cells(Q9) '.Value

Next

Range("Q9").Select

ActiveWindow.Close SaveChanges:=False

i = i + 1
f = 1 + 1

Sheets("Liste").Select
Wend
End Sub
Afficher la suite 

6 réponses

Signaler Commenter la réponse de cs_Orohena
Messages postés
578
Date d'inscription
vendredi 26 septembre 2008
Statut
Membre
Dernière intervention
20 novembre 2010
 4
0
Merci
Bonjour

Essaie en mettant Range("Q9") au lieu de Cells(Q9)

Amicalement
Commenter la réponse de cs_Orohena
Signaler Commenter la réponse de cs_zeps2
Messages postés
61
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
28 octobre 2011
0
Merci
salut Orohena,

Cette option je l'ai déjà faite sans succés !
Merci de ta réponse,

Cordialement,
Commenter la réponse de cs_zeps2
Signaler Commenter la réponse de c148270
Messages postés
303
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
3 octobre 2013
0
Merci
Bonjour
J'aurai plutot écrite
cells(9,17)

Bonne journée
Commenter la réponse de c148270
Signaler Commenter la réponse de rv83toulon
Messages postés
68
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
25 avril 2013
0
Merci
bonjour,
effectivement mieux vaut mettre Range ("Q9"), car Cells attends : Cells (ligne, colonne), donc de toutes manières Cells (Q9)=ERREUR.
Et puis il me semble qu'il y a une autre erreur: 
Workbooks("Import.xls").Sheets("Val").Cells(f, 1) = Workbooks("classeur").Sheets("k").Cells(Q9) '.Value

Essaye comme tu l'as fais en mettant "Classeur.xls", donc ça ferait:
Workbooks("Import.xls").Sheets("Val").Cells(f, 1) = Workbooks("Classeur.xls").Sheets("k").Range("Q9").Value

@+
Commenter la réponse de rv83toulon
Signaler Commenter la réponse de rv83toulon
Messages postés
68
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
25 avril 2013
0
Merci
Pardon,
je vien de voir une autre erreur dans cette ligne, à savoir que tu mets:
.Sheets("k")

en mettant k entre guillemet enfait tu n'utilise pas la valeur de la variable k mais il considére k comme étant un string, donc le programme cherche une feuille qui s'appelle k pour résumer
remplace la ligne qui fait défault par: 
Workbooks("Import.xls").Sheets("Val").Cells(f, 1) = Workbooks("Classeur.xls").Sheets(k).Range("Q9").Value

@+
Commenter la réponse de rv83toulon
Signaler Commenter la réponse de cs_zeps2
Messages postés
61
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
28 octobre 2011
0
Merci
Salut Hervé,

Bon ben, je comprends pas, ça ne fonctionne pas.
Bien, j'ai pas fait attention pour le nom de la feuille K ! j'aurais du le voir !!!

mais là, je bloque...

J'essaie de trouver, je cherche, mais je veux bien un coup de main !

Zeps
Commenter la réponse de cs_zeps2
Répondre Posez votre question