Problème collage photos par macro

Bonjour,

De retour sur le forum pour faire appel à vos compétences.

J'ai un code qui disperse des photos dans un classeur Excel (voir ci dessous).

La macro fonctionne très bien sur Excel 2007.

Depuis que je suis passé au 2019 :

• Soit elle s'exécute totalement mais les photos ne sont pas dispersée (case blanche)
• Soit le message d'erreur "Erreur 1004 cette action ne peut être appliquée à une cellule fusionnée" apparaît.

Si je fractionne les cellules, la macro s'exécute mais les photos ne sont pas collées comme dans le premier cas.

J'ai vraiment besoin que ça fonctionne et je ne comprends pas ce qui se passe.

Merci par avance pour votre aide.

ActiveWindow.SmallScroll Down:=-3
Selection.Copy
Sheets("Photos").Select
Sheets("identification").Select
Range("G1:H9").Select
ActiveSheet.Paste
Sheets("attestation Epreuves en centre").Select
Range("a1:B9").Select
ActiveSheet.Paste
Sheets("Synth?se globale").Select
Range("J1:K8").Select
ActiveSheet.Paste

Bonjour

J'ai un code qui disperse des photos dans un classeur Excel (voir ci dessous).

je ne vois pas dans votre code, cette "dispersion" de photos dont vous parlez

Y a-t-il une raison de la sélection de la feuille Photo ??

Selection.Copy '--> vous copier quoi ?
Sheets("Photos").Select '--> pourquoi sélectionner la feuille photo et ne rien y faire
Sheets("identification").Select

Je pense qu'il serait utile de voir tout le code

Cordialement

Bonjour,

Merci pour ta réponse.

Les photos sont dans la feuille "photo".

J'en sélectionne une et je le disperse dans les autres onglets.

C'est un code simple qui fonctionne très bien sur 2007 mais qui ne réagit pas de la même façon sur 2019.

Je viens de fractionner les cellule ou doivent être coller les photos par la macro.

Elle s'exécute correctement mais il n'y a aucune photos de collé.

Je ne comprends rien à ce qu'il se passe.

Re

Vous sélectionnez donc les photos une à une puis vous les mettez dans les onglets respectifs ?

Pourquoi utilisez vous à chaque fois la ligne 1 à 9 ?

Combien y a-t-il de photos à répartir ?

Possible de voir votre fichier ? (sans données confidentielles )

En fait, ce sont des livrets de certification élèves.

Le premier onglet est un onglet de paramétrage où se trouve leurs noms et photos.

Lorsque j'active la première macro, les fichiers s'édite un à un aux noms des élèves.

Ensuite, je rouvre tous les fichiers, et un à un .Je clique sur la photo de l'élève qui correspond au livret et la macro la répartie sur les onglets désignés.

En fin de macro, les onglets de paramétrage et les macros sont supprimées pour ne laisser qu'un fichier simple facile d'utilisation.

Avec Excel 2019, la macro s'exécute (sauf erreur de fusion de cellule), mais les photos ne sont pas aux endroit où elles devraient être. Il n'y a rien.

Mais la macro s'est exécuté jusqu'au bout…………………….; je comprend rien.

Quand je l'utilise sur Excel 2007, tout est niquel.

Re

... la macro s'exécute (sauf erreur de fusion de cellule)

Comme je dis et redis sur ce forum, il faut éviter les fusions. Si cela fait joli à la présentation, cela pose des soucis à un moment ou un autre avec VBA.

Essayez votre code comme ceci :

Selection.Copy

With Sheets("identification")
    .Select
    .Range("G1").Select
    .Pictures.Paste
End With

With Sheets("attestation Epreuves en centre")
    .Select
    .Range("a1").Select
    .Pictures.Paste
End With
'....
'....
End sub

Cordialement

Merci Dan pour ta réponse,

J'ai fractionner les cellules qui doivent accueillir les photos.

La macro s'exécute totalement sans déboutage.

Par contre à la fin, il n'y a aucunes photos de coller, les cases sont vides.

Est ce que tu aurais une piste ?

Re

Par contre à la fin, il n'y a aucunes photos de coller, les cases sont vides.

Chez moi pas de soucis, j'ai testé avant de poster.

Là il me faudrait voir le fichier (sans données confidentielles) pour analyser

Crdlt

J'ai anonymé le fichier pour te l'envoyer en message privé, mais il est trop volumineux.

J'ai essayé la macro avec une photo sur un classeur vierge.

Tout fonctionne bien.

Donc le souci ne viens pas de la macro.

Mais où alors ?

re

J'ai anonymé le fichier pour te l'envoyer en message privé, mais il est trop volumineux.

Utilisez cjoint.com puis envoyez le lien qui vous sera donné

J'ai remarqué qu'il y a quelque chose qui se colle, comme un cadre transparent.

J'ai vérifier les propriétés de l'image, mais cela à l'air normal.

Re

La photo est bien mise dans les feuilles.

Votre souci doit être ailleurs

Cela n'a probablement rien à voir mais avez vous essayé en n'étant pas dans le mode "Page"

Dan, vous me dite que chez vous ça fonctionne?

Je ne comprend pas ce que vous entendez par le mode "page"

j'ai essayé tous les affichage et rien ne s'affiche a part un rectangle transparent à la place de la photo, même pas de la taille que devrait être la photo.

Re

Oui cela fonctionne

Mode Page, regardez dans le fichier que vous avez envoyé, la feuille Epreuve..., vous voyez le mot Page dans la feuille. Remettez vous en mode normal (il y a 3 icones en dessous à droite des noms d'onglet). c'est juste un essai bien sûr

Votre code peut être celui ci aussi (j'ai remplacé les mots de passe par xxx - remettez les vôtres arpès)

ActiveWorkbook.Unprotect Password:="xxxxx"

Selection.Copy

With Sheets("attestation PFMP")
    .Select
    .Unprotect Password:="xxxxx"
    .Range("A1").Select
    .Pictures.Paste
    .Protect Password:="xxx"
End With

With Sheets("attestation Epreuves en centre")
    .Select
    .Unprotect Password:="xxxxx"
    .Range("A1").Select
    .Pictures.Paste
    .Protect Password:="xxx"
End With

With Sheets("Synthèse globale")
    .Select
    .Unprotect Password:="xxxxx"
    .Range("J1").Select
    .Pictures.Paste
    .Protect Password:="xxx"
End With

Dan,

Je viens d'essayer votre code.

CCCCCCCCCCCCCCCCCCCCCCAAAAAAAAAAAAAAAAAAAA MMMMMMMMMMMMMAAAAAARRRRRRRRRCCCCCCCHHHHHHHHHHHEEEEEEEE.

Par contre j'aimerai sincèrement savoir pourquoi. Quand on analyse le nouveau code, c'est exactement le meme sauf qua les deprotection et protection sont placé différemment.

Il y a aucune raison pour expliquer cela????

Re

Voilà une bonne nouvelle

c'est exactement le meme sauf quae les deprotection et protection sont placées

Allez savoir... je dis souvent que VBA c'est surtout savoir ce qu'excel voit et ce n'est pas toujours ce que nous pensions qu'il lit ou comprends

Par contre vous pouvez aussi essayer en remplaçant -->

.pictures

par

.PasteSpecial Format:="Image (PNG)"

Cela fonctionne chez moi aussi

Vous pouvez supprimer votre lien mis de cjoint si vous voulez mais à la vue de votre fichier il n'y a aucunes données confidentielles je pense

Oubliez pas de cloturer le fil en cliquant sur le petit v en haut à droite si vous en avez terminé

Cordialement

merci beaucoup DAN

A bientôt