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 Export de données via un bouton vers un autre fichier, fermé

Export de données via un bouton vers un autre fichier, fermé

15 réponses
Avatar
Yves
Bonjour, j'aimerais, en cliquant sur un bouton,
Exporter les données [A3:A10] de classeur1 feuil1
Vers [a3:h3] dans classeur2 feuil1 (qui lui reste fermé...)

Etant novice dans le domaine, pourriez vous me rédiger pour exemple des
lignes de code que je pourrais après recopier ?
D'avance merci...
Yves
Signaler un problème avec ce contenu

5 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
1 2
Avatar
Yves
Salut,
Presque, en fait il ne me supprime que les élément de la colonne A. Il
faudrait supprimer les valeur dans A10:HL159, pour être sûr.
On voit le bout... Génial...
Avatar
michdenis
| With Worksheets("Base de Données")
| .Range("A10:A" & Application.Max(10, _
| .Range("A65356").End(xlUp)(2).Row)).Delete
|End With

Tu remplaces par :

With Worksheets("Base de Données")
.Range("A10:HL" & Application.Max(10, _
.Range("A65356").End(xlUp)(2).Row)).Delete
End With



"Yves" a écrit dans le message de groupe de discussion :

Salut,
Presque, en fait il ne me supprime que les élément de la colonne A. Il
faudrait supprimer les valeur dans A10:HL159, pour être sûr.
On voit le bout... Génial...
Avatar
Yves
Oups, ça génère une nouvelle erreur... En fait, ça fonctionne sauf ça ne me
recherhce plus la plage AJ10:IU10 mais plus que HM10:IU10. Pourtant, j'ai
vérifié, je n'ai rien supprimé ou modifié par erreur en faisant la manip.
Idée eventuelle : Ca te conpliquerai peut-être moins si on faisait
l'écrasement de données dans un autre module qu'on exécuterai avant
l'importation ?
A toi de me dire...
Même si le projet n'est pas encore finalisé, merci encore pour ton aide...
Yves

"michdenis" a écrit :

| With Worksheets("Base de Données")
| .Range("A10:A" & Application.Max(10, _
| .Range("A65356").End(xlUp)(2).Row)).Delete
|End With

Tu remplaces par :

With Worksheets("Base de Données")
.Range("A10:HL" & Application.Max(10, _
.Range("A65356").End(xlUp)(2).Row)).Delete
End With



"Yves" a écrit dans le message de groupe de discussion :

Salut,
Presque, en fait il ne me supprime que les élément de la colonne A. Il
faudrait supprimer les valeur dans A10:HL159, pour être sûr.
On voit le bout... Génial...




Avatar
michdenis
Ok, il ne faut pas utiliser Delete -> qui supprime les lignes
et par conséquent modifie la disposition des données
mais CLEAR qui efface tout, format + valeur
si tu veux effacer seulement le contenu et conserver le format
utilise ClearContents dans la ligne de code
.Range("A65356").End(xlUp)(2).Row)).Delete


"Yves" a écrit dans le message de groupe de discussion :

Oups, ça génère une nouvelle erreur... En fait, ça fonctionne sauf ça ne me
recherhce plus la plage AJ10:IU10 mais plus que HM10:IU10. Pourtant, j'ai
vérifié, je n'ai rien supprimé ou modifié par erreur en faisant la manip.
Idée eventuelle : Ca te conpliquerai peut-être moins si on faisait
l'écrasement de données dans un autre module qu'on exécuterai avant
l'importation ?
A toi de me dire...
Même si le projet n'est pas encore finalisé, merci encore pour ton aide...
Yves

"michdenis" a écrit :

| With Worksheets("Base de Données")
| .Range("A10:A" & Application.Max(10, _
| .Range("A65356").End(xlUp)(2).Row)).Delete
|End With

Tu remplaces par :

With Worksheets("Base de Données")
.Range("A10:HL" & Application.Max(10, _
.Range("A65356").End(xlUp)(2).Row)).Delete
End With



"Yves" a écrit dans le message de groupe de discussion
:

Salut,
Presque, en fait il ne me supprime que les élément de la colonne A. Il
faudrait supprimer les valeur dans A10:HL159, pour être sûr.
On voit le bout... Génial...




Avatar
Yves
Excellent, Génial...
Parfait. Tout fonctionne. Ainsi, grâce à ton aide, on va pouvoir avoir une
assoc, dont le fonctionnement est nickel... Merci mille fois...


Yves
1 2