Bonjour à tous.
si je me tourne vers vous c'est que je rencontre un problème qui en fonction
des mes compétences est pour le moment m'est insurmontable, mais je sais que
parmis vous il y a des compétences certaines dans le domaine.
voilà mon problème, j'ai un fichier de 5020 lignes
j'ai positionner des filtres
et maintenant je voudrais copier les résultats dans un autre fichier !
mon problème est que :
1) je n'ai jamais le meme nombre de lignes à copier
2) je ne veux pas copier les lignes entieres mais des cellules de C à G par
exemple
si vous avez une piste pour m'aider je suis preneur
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
FxM
Bonjour lematou,
Non testé : range("C1:G65536").specialcells(xltypevisiblecell).copy destination
@+ FxM
Bonjour à tous. si je me tourne vers vous c'est que je rencontre un problème qui en fonction des mes compétences est pour le moment m'est insurmontable, mais je sais que parmis vous il y a des compétences certaines dans le domaine. voilà mon problème, j'ai un fichier de 5020 lignes j'ai positionner des filtres et maintenant je voudrais copier les résultats dans un autre fichier ! mon problème est que : 1) je n'ai jamais le meme nombre de lignes à copier 2) je ne veux pas copier les lignes entieres mais des cellules de C à G par exemple
si vous avez une piste pour m'aider je suis preneur
tout ceci avec mes remerciements anticipés
Merci LeMATOU
Bonjour lematou,
Non testé :
range("C1:G65536").specialcells(xltypevisiblecell).copy destination
@+
FxM
Bonjour à tous.
si je me tourne vers vous c'est que je rencontre un problème qui en fonction
des mes compétences est pour le moment m'est insurmontable, mais je sais que
parmis vous il y a des compétences certaines dans le domaine.
voilà mon problème, j'ai un fichier de 5020 lignes
j'ai positionner des filtres
et maintenant je voudrais copier les résultats dans un autre fichier !
mon problème est que :
1) je n'ai jamais le meme nombre de lignes à copier
2) je ne veux pas copier les lignes entieres mais des cellules de C à G par
exemple
si vous avez une piste pour m'aider je suis preneur
Non testé : range("C1:G65536").specialcells(xltypevisiblecell).copy destination
@+ FxM
Bonjour à tous. si je me tourne vers vous c'est que je rencontre un problème qui en fonction des mes compétences est pour le moment m'est insurmontable, mais je sais que parmis vous il y a des compétences certaines dans le domaine. voilà mon problème, j'ai un fichier de 5020 lignes j'ai positionner des filtres et maintenant je voudrais copier les résultats dans un autre fichier ! mon problème est que : 1) je n'ai jamais le meme nombre de lignes à copier 2) je ne veux pas copier les lignes entieres mais des cellules de C à G par exemple
si vous avez une piste pour m'aider je suis preneur
tout ceci avec mes remerciements anticipés
Merci LeMATOU
lematou
Bonjour "FxM"
ok pour ta cmde mais j'ai un petit problème, mon niveau VBa est faible et je bug sur
.copy destination
peux tu me dire comment je dois remplacer ceci stp destination étant la feuille destinatrice peut être? et si je veux copier en append dans un autre ficher aurais tu une idée stp?
merci pour ton aide Jacks dit leMatou
Bonjour "FxM"
ok pour ta cmde mais j'ai un petit problème, mon niveau VBa est faible et je
bug sur
.copy destination
peux tu me dire comment je dois remplacer ceci stp
destination étant la feuille destinatrice peut être?
et si je veux copier en append dans un autre ficher aurais tu une idée stp?
ok pour ta cmde mais j'ai un petit problème, mon niveau VBa est faible et je bug sur
.copy destination
peux tu me dire comment je dois remplacer ceci stp destination étant la feuille destinatrice peut être? et si je veux copier en append dans un autre ficher aurais tu une idée stp?
merci pour ton aide Jacks dit leMatou
FxM
Bonsoir Jacks,
et si je veux copier en append dans un autre ficher aurais tu une idée stp?
Je suppose que tu veux dire à la suite (donc en dessous) de la dernière ligne déjà présente dans le fichier de destination
Ca pourrait donner qq chose comme : (non testé)
sub test() 'classeur destination set wbk2 = workbooks("destination.xls") 'feuille destination set sht2 = wbk2.sheets("Feuil2") 'dernière ligne actuelle de la feuille destination derlig = wbk2.sht2.range("A65536").end(xlup).row
'classeur actuel, feuille actuelle, copier dans la destination 'attention : ce qui suit sur une seule ligne range("C1:G65536").specialcells(xltypevisiblecell).copy _ wbk2.sht2.range("A" & derlig +1)
end sub
@+ FxM
Bonjour "FxM"
ok pour ta cmde mais j'ai un petit problème, mon niveau VBa est faible et je bug sur
..copy destination
peux tu me dire comment je dois remplacer ceci stp destination étant la feuille destinatrice peut être? et si je veux copier en append dans un autre ficher aurais tu une idée stp?
merci pour ton aide Jacks dit leMatou
Bonsoir Jacks,
et si je veux copier en append dans un autre ficher aurais tu une
idée stp?
Je suppose que tu veux dire à la suite (donc en dessous) de la dernière
ligne déjà présente dans le fichier de destination
Ca pourrait donner qq chose comme : (non testé)
sub test()
'classeur destination
set wbk2 = workbooks("destination.xls")
'feuille destination
set sht2 = wbk2.sheets("Feuil2")
'dernière ligne actuelle de la feuille destination
derlig = wbk2.sht2.range("A65536").end(xlup).row
'classeur actuel, feuille actuelle, copier dans la destination
'attention : ce qui suit sur une seule ligne
range("C1:G65536").specialcells(xltypevisiblecell).copy _
wbk2.sht2.range("A" & derlig +1)
end sub
@+
FxM
Bonjour "FxM"
ok pour ta cmde mais j'ai un petit problème, mon niveau VBa est faible et je
bug sur
..copy destination
peux tu me dire comment je dois remplacer ceci stp
destination étant la feuille destinatrice peut être?
et si je veux copier en append dans un autre ficher aurais tu une idée stp?
et si je veux copier en append dans un autre ficher aurais tu une idée stp?
Je suppose que tu veux dire à la suite (donc en dessous) de la dernière ligne déjà présente dans le fichier de destination
Ca pourrait donner qq chose comme : (non testé)
sub test() 'classeur destination set wbk2 = workbooks("destination.xls") 'feuille destination set sht2 = wbk2.sheets("Feuil2") 'dernière ligne actuelle de la feuille destination derlig = wbk2.sht2.range("A65536").end(xlup).row
'classeur actuel, feuille actuelle, copier dans la destination 'attention : ce qui suit sur une seule ligne range("C1:G65536").specialcells(xltypevisiblecell).copy _ wbk2.sht2.range("A" & derlig +1)
end sub
@+ FxM
Bonjour "FxM"
ok pour ta cmde mais j'ai un petit problème, mon niveau VBa est faible et je bug sur
..copy destination
peux tu me dire comment je dois remplacer ceci stp destination étant la feuille destinatrice peut être? et si je veux copier en append dans un autre ficher aurais tu une idée stp?
