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 Coller spécial VBA

Coller spécial VBA

2 réponses
Avatar
Thierry Lassègue
Bonjour à tous,

J'ai créé une procédure permettant d'importer des données d'un fichier Excel vers un
autre. Elle se présente ainsi :

nom = Split(monFichierData, "\")(UBound(Split(monFichierData, "\")))
Windows(nom).Activate
Application.Goto Reference:="Effectifs"
Selection.Copy
Range("A1").Select
ThisWorkbook.Activate
Sheets("Import").Select
Range("H1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Lorsque cette procédure est lancée à partir du module dans lequel elle se trouve,
elle fonctionne parfaitement. Par contre j'ai créé sur une feuille "d'Accueil" un
bouton de commande pour la lancer et ça ne marche plus. En fait, dès que j'attache la
procédure à une feuille de calcul, que se soit la feuille d'accueil ou la feuille de
destination des données, l'instruction de collage retourne une erreur
d'exécution 1004. Je ne peux donc pas utiliser mon bouton de commande.

Merci pour votre aide.
Signaler un problème avec ce contenu

2 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
papou
Re
Regarde ma proposition à ta question de tout à l'heure
Cordialement
Pascal

"Thierry Lassègue" a écrit dans le message de
news:cim64k$1s7$
Bonjour à tous,

J'ai créé une procédure permettant d'importer des données d'un fichier
Excel vers un

autre. Elle se présente ainsi :

nom = Split(monFichierData, "")(UBound(Split(monFichierData, "")))
Windows(nom).Activate
Application.Goto Reference:="Effectifs"
Selection.Copy
Range("A1").Select
ThisWorkbook.Activate
Sheets("Import").Select
Range("H1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _

False, Transpose:úlse

Lorsque cette procédure est lancée à partir du module dans lequel elle se
trouve,

elle fonctionne parfaitement. Par contre j'ai créé sur une feuille
"d'Accueil" un

bouton de commande pour la lancer et ça ne marche plus. En fait, dès que
j'attache la

procédure à une feuille de calcul, que se soit la feuille d'accueil ou la
feuille de

destination des données, l'instruction de collage retourne une erreur
d'exécution 1004. Je ne peux donc pas utiliser mon bouton de commande.

Merci pour votre aide.



Avatar
Yadutaf
Veuillez m'excuser pour le double envoie. C'est une erreur de manip.
Et merci pour vos réponses.