Fonction "RANGE" VBA Excel

Signaler
Messages postés
70
Date d'inscription
mercredi 6 février 2008
Statut
Membre
Dernière intervention
4 août 2015
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour,

j'ai une erreur sur une ligne de code et je ne trouve pas la solution... pouvez vous m'aider ?

Code :
    Myname = ActiveWorkbook.Name
    nom_fich = Workbooks("xxx.xlsm").Sheets("xx").Range("x").Value

    Workbooks.OpenText Filename:="C:\M\F" + nom_fich + ".fce", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(1, 1)

    Windows("" + Myname + "").Activate
    increm = 1
    For inc = 2 To 1000
        Range(3, inc).Value = Range("'[" + nom_fich + ".fce]" + nom_fich + "'!( & increm & ,1)")
        increm = increm + 1
    Next inc
    


But :
j'ai une colone de donné ("Ai") dans un classeur nomé "mon_fich.fce" et onglet "mon_fich" et je veux envoyer ces données dans mon autre classeur.

Merci d'avance

4 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Qu'est-ce que ceci veut dire pour toi ?
Range(3, inc).Value

Cette notation irait mieux avec Cells
Cells(inc, 3).Value ,où inc est la ligne et 3 est la colonne

Autre façon de faire
Range("C" & inc).Value

Où est ton erreur ?
Sur quelle ligne et quel message ?

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Bonjour,
Réflexe ===>> un simple msgbox :
msgbox "'[" + nom_fich + ".fce]" + nom_fich + "'!( & increm & ,1)"

mettrait ton erreur en évidence.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Messages postés
70
Date d'inscription
mercredi 6 février 2008
Statut
Membre
Dernière intervention
4 août 2015

Bonjour et tout d abord merci pour votre réactivité !
Mon erreur est ur la ligne :
Range(3, inc).Value = Range("'[" + nom_fich + ".fce]" + nom_fich + "'!( & increm & ,1)")
        increm = increm + 1


Ce que je veux c'est incrémenter un range
Je sais pas si je suis compréhensible ...

Merci.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Bien évidemment, qu'elle est sur cette ligne, ton erreur !
Relis mon dernier message. As-tu vu (la msgbox) ce que cela affichait ? Cela te semble-t-il correct ? ===>>> Non, n'est-ce-pas ?
et ce : en plus de ce que t'a dit assez clairement MPi (que je salue).



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.