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 Macro Copie valeurs

Macro Copie valeurs

7 réponses
Avatar
Laetitia
Bonjour,

Je reviens =E0 la charge, j'ai toujours un probl=E8me avec ma macro
suivante :

Workbooks("Mod=E8le Achat.xls").Sheets("Achat").Activate
Cells.Select
Selection.Locked =3D True
Selection.Copy
Windows(ClassDest).Activate
Sheets.Add.Name =3D Onglet
Application.DisplayAlerts =3D False
ActiveSheet.Paste
Selection.PasteSpecial Paste:=3DxlPasteformat
Selection.PasteSpecial Paste:=3DxlPasteValues, Operation:=3DxlNone,
SkipBlanks _
:=3DFalse, Transpose:=3DFalse
ActiveSheet.Shapes("CmdSuite").Delete
ActiveSheet.Shapes("R=E9Init").Delete
ActiveSheet.Shapes("Base_Donn=E9es").Delete

Qui au lieu de copier les =E9l=E9ments en valeur me les copie en
formules... Quand je retourne sur l'enregistrement, la date du jour est
celle de la consultation... Apparement =E7a marche chez le concepteur du
syst=E8me (ThierryP...) mais pourtant nous avons la m=EAme version =E0 ce
que je crois savoir... Donc je ne comprend pas et =E7a me bloque tout
puisque je ne peux pas consulter les bons de commande suivant leur
num=E9ro car ceux-ci sont tous les m=EAmes... (la macro copie =3Dnumachat
au lieu du num=E9ro donc lorsque j'en suis =E0 la commande 6, toutes mes
commandes s'appellent 6...)

Helppp please !!
Merci d'avance...

Laetitia
Signaler un problème avec ce contenu

7 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
Daniel
Bonjour.
Essaie avec :
Cells.PasteSpecial Paste:=xlPasteformat
Cells.PasteSpecial Paste:=xlPasteValues
en ôtant :
ActiveSheet.Paste
mais je ne vois pas vraiment pourquoi. Est-ce que tu as mis un point d'arrêt
juste après les PasteSpecial pour voir ?
Cordialement.
Daniel
"Laetitia" a écrit dans le message de news:

Bonjour,

Je reviens à la charge, j'ai toujours un problème avec ma macro
suivante :

Workbooks("Modèle Achat.xls").Sheets("Achat").Activate
Cells.Select
Selection.Locked = True
Selection.Copy
Windows(ClassDest).Activate
Sheets.Add.Name = Onglet
Application.DisplayAlerts = False
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteformat
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
ActiveSheet.Shapes("CmdSuite").Delete
ActiveSheet.Shapes("RéInit").Delete
ActiveSheet.Shapes("Base_Données").Delete

Qui au lieu de copier les éléments en valeur me les copie en
formules... Quand je retourne sur l'enregistrement, la date du jour est
celle de la consultation... Apparement ça marche chez le concepteur du
système (ThierryP...) mais pourtant nous avons la même version à ce
que je crois savoir... Donc je ne comprend pas et ça me bloque tout
puisque je ne peux pas consulter les bons de commande suivant leur
numéro car ceux-ci sont tous les mêmes... (la macro copie =numachat
au lieu du numéro donc lorsque j'en suis à la commande 6, toutes mes
commandes s'appellent 6...)

Helppp please !!
Merci d'avance...

Laetitia
Avatar
Thierryp
Bonjour,

Il y a eu un post de docm le 16 à 17h04, conseillant d'ajouter un "s" :
xlPasteformats....je ne sais pas si tu l'as vu.....

Sinon, je t'ai passé par mail une modif pour faire un reset de la page.
L'as tu reçu ?

--
@+ thierryp

------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline)
------------------------



Bonjour,

Je reviens à la charge, j'ai toujours un problème avec ma macro
suivante :

Workbooks("Modèle Achat.xls").Sheets("Achat").Activate
Cells.Select
Selection.Locked = True
Selection.Copy
Windows(ClassDest).Activate
Sheets.Add.Name = Onglet
Application.DisplayAlerts = False
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteformat
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
ActiveSheet.Shapes("CmdSuite").Delete
ActiveSheet.Shapes("RéInit").Delete
ActiveSheet.Shapes("Base_Données").Delete

Qui au lieu de copier les éléments en valeur me les copie en
formules... Quand je retourne sur l'enregistrement, la date du jour est
celle de la consultation... Apparement ça marche chez le concepteur du
système (ThierryP...) mais pourtant nous avons la même version à ce
que je crois savoir... Donc je ne comprend pas et ça me bloque tout
puisque je ne peux pas consulter les bons de commande suivant leur
numéro car ceux-ci sont tous les mêmes... (la macro copie =numachat
au lieu du numéro donc lorsque j'en suis à la commande 6, toutes mes
commandes s'appellent 6...)

Helppp please !!
Merci d'avance...

Laetitia




Avatar
Daniel
Bonsoir.
Non, j'ai pas fait attention au post du 16. Je n'ai pas reçu non plus ton
mail (faut en lever les "Z" de l'adresse)
Daniel
"Thierryp" a écrit dans le message de news:

Bonjour,

Il y a eu un post de docm le 16 à 17h04, conseillant d'ajouter un "s" :
xlPasteformats....je ne sais pas si tu l'as vu.....

Sinon, je t'ai passé par mail une modif pour faire un reset de la page.
L'as tu reçu ?

--
@+ thierryp

------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------



Bonjour,

Je reviens à la charge, j'ai toujours un problème avec ma macro
suivante :

Workbooks("Modèle Achat.xls").Sheets("Achat").Activate
Cells.Select
Selection.Locked = True
Selection.Copy
Windows(ClassDest).Activate
Sheets.Add.Name = Onglet
Application.DisplayAlerts = False
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteformat
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
ActiveSheet.Shapes("CmdSuite").Delete
ActiveSheet.Shapes("RéInit").Delete
ActiveSheet.Shapes("Base_Données").Delete

Qui au lieu de copier les éléments en valeur me les copie en
formules... Quand je retourne sur l'enregistrement, la date du jour est
celle de la consultation... Apparement ça marche chez le concepteur du
système (ThierryP...) mais pourtant nous avons la même version à ce
que je crois savoir... Donc je ne comprend pas et ça me bloque tout
puisque je ne peux pas consulter les bons de commande suivant leur
numéro car ceux-ci sont tous les mêmes... (la macro copie =numachat
au lieu du numéro donc lorsque j'en suis à la commande 6, toutes mes
commandes s'appellent 6...)

Helppp please !!
Merci d'avance...

Laetitia






Avatar
Thierryp
Bonjour,
Mille excuses Daniel.....En fait, je voulais répondre à Laetitia, mais
je crois que je n'ai pas choisi le bon post :-((((((((
Je ne te ferais pas l'affront de vouloir te donner des leçons sur Excel !!!!

--
@+ thierryp

------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet. (Courteline)
------------------------



Bonsoir.
Non, j'ai pas fait attention au post du 16. Je n'ai pas reçu non plus ton
mail (faut en lever les "Z" de l'adresse)
Daniel
"Thierryp" a écrit dans le message de news:


Bonjour,

Il y a eu un post de docm le 16 à 17h04, conseillant d'ajouter un "s" :
xlPasteformats....je ne sais pas si tu l'as vu.....

Sinon, je t'ai passé par mail une modif pour faire un reset de la page.
L'as tu reçu ?

--
@+ thierryp

------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------




Bonjour,

Je reviens à la charge, j'ai toujours un problème avec ma macro
suivante :

Workbooks("Modèle Achat.xls").Sheets("Achat").Activate
Cells.Select
Selection.Locked = True
Selection.Copy
Windows(ClassDest).Activate
Sheets.Add.Name = Onglet
Application.DisplayAlerts = False
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteformat
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
ActiveSheet.Shapes("CmdSuite").Delete
ActiveSheet.Shapes("RéInit").Delete
ActiveSheet.Shapes("Base_Données").Delete

Qui au lieu de copier les éléments en valeur me les copie en
formules... Quand je retourne sur l'enregistrement, la date du jour est
celle de la consultation... Apparement ça marche chez le concepteur du
système (ThierryP...) mais pourtant nous avons la même version à ce
que je crois savoir... Donc je ne comprend pas et ça me bloque tout
puisque je ne peux pas consulter les bons de commande suivant leur
numéro car ceux-ci sont tous les mêmes... (la macro copie =numachat
au lieu du numéro donc lorsque j'en suis à la commande 6, toutes mes
commandes s'appellent 6...)

Helppp please !!
Merci d'avance...

Laetitia












Avatar
Laetitia
Salut à tous les deux !

Je suis désolée mais je n'avais pas eu le temps de venir sur le forum
avant...

Merci bien Daniel, je vais essayer ce que tu me dis là... et je te
tiendrai au courant si ça marche...

Et oui Thierry je viens de voir ta modif, j'y cours !!! merci !

A + et merci encore à tous les deux !
Bonne soirée.
Laetitia



Bonjour,
Mille excuses Daniel.....En fait, je voulais répondre à Laetitia, mais
je crois que je n'ai pas choisi le bon post :-((((((((
Je ne te ferais pas l'affront de vouloir te donner des leçons sur Excel !!!!

--
@+ thierryp

------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin go urmet. (Courteline)
------------------------



Bonsoir.
Non, j'ai pas fait attention au post du 16. Je n'ai pas reçu non plus ton
mail (faut en lever les "Z" de l'adresse)
Daniel
"Thierryp" a écrit dans le message de news:


Bonjour,

Il y a eu un post de docm le 16 à 17h04, conseillant d'ajouter un "s " :
xlPasteformats....je ne sais pas si tu l'as vu.....

Sinon, je t'ai passé par mail une modif pour faire un reset de la pa ge.
L'as tu reçu ?

--
@+ thierryp

------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------




Bonjour,

Je reviens à la charge, j'ai toujours un problème avec ma macro
suivante :

Workbooks("Modèle Achat.xls").Sheets("Achat").Activate
Cells.Select
Selection.Locked = True
Selection.Copy
Windows(ClassDest).Activate
Sheets.Add.Name = Onglet
Application.DisplayAlerts = False
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteformat
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNon e,
SkipBlanks _
:úlse, Transpose:úlse
ActiveSheet.Shapes("CmdSuite").Delete
ActiveSheet.Shapes("RéInit").Delete
ActiveSheet.Shapes("Base_Données").Delete

Qui au lieu de copier les éléments en valeur me les copie en
formules... Quand je retourne sur l'enregistrement, la date du jour e st
celle de la consultation... Apparement ça marche chez le concepteur du
système (ThierryP...) mais pourtant nous avons la même version à ce
que je crois savoir... Donc je ne comprend pas et ça me bloque tout
puisque je ne peux pas consulter les bons de commande suivant leur
numéro car ceux-ci sont tous les mêmes... (la macro copie =num achat
au lieu du numéro donc lorsque j'en suis à la commande 6, toutes mes
commandes s'appellent 6...)

Helppp please !!
Merci d'avance...

Laetitia














Avatar
Laetitia
Bonjour Daniel,

J'ai essayer ce que tu m'a dit et effectivement, ça marche...

Cependant, avant, lorsque ça copiait sur la nouvelle feuille de
calcul, ça renommait cette feuille et là ça ne marche plus si
j'enlève ActiveSheet.Paste
Aurais-tu une idée du pourquoi ??

Sur ce je te souhaite une bonne journée !
Laetitia
Avatar
Laetitia
Bonjour Daniel,

J'ai essayé ce que tu m'a dit et effectivement, ça marche...

Cependant, avant, lorsque ça copiait sur la nouvelle feuille de
calcul, ça renommait cette feuille et là ça ne marche plus si
j'enlève ActiveSheet.Paste
Aurais-tu une idée du pourquoi ??

Sur ce je te souhaite une bonne journée !
Laetitia