Logo qui ne se copie pas bien

Résolu/Fermé
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 - Modifié par atinauJ le 14/02/2017 à 14:48
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 - 15 févr. 2017 à 13:38
Bonjour,

Dans mon récent post nommé: Bâtir un fichier de facturation dans lequel bginforme m'a gentiment fait une macro pour copier une facture et en faire une liste, j'ai modifié le fichier pour mettre le vrai format de facture de mon client, avec son logo et toutes ses coordonnées, mais quand j'active la macro, le logo se copie de façon démesurée. Tout le reste se copie bien.
Je vous joins le nouveau fichier avec un test de logo. Quelqu'un peut me dire comment faire pour que le logo se copie bien ?
J'ai pensé à insérer une fenêtre de texte et y mettre le logo dedans mais je n'y arrive pas.
Avez-vous d'autres idées ?
Aussi, le setting d'impression disparaît après le transfert de facture.

https://www.cjoint.com/c/GBnpcNbqiNv

merci


A voir également:

9 réponses

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
14 févr. 2017 à 15:02
Bonjour
Essayez ceci
https://mon-partage.fr/f/jtLOe4MJ/
Cdlt
0
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
14 févr. 2017 à 15:41
selon ton fichier, ça fonctionne. Mais si je remplace dans ton fichier le faux logo par celui de mon client (soit le vrai logo), ça ne marche pas :(
Pour faire le test, faudrait que tu y mettes un vrai logo dedans.

et voir aussi pourquoi le setting d'impression disparaît après le transfert de facture.
merci
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337 > atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017
14 févr. 2017 à 16:16
J'ai essayé avec un logo et ça fonctionne parfaitement bien. Qu' à t-il de particulier votre logo? Est-ce une image, une photo ....?
0
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
Modifié par atinauJ le 14/02/2017 à 17:25
je l'ai pris à partir d'une de ses factures qui est un document Word. J'ai fait un copier/coller. Je ne peux pas dire de quel format il s'agît.

Je viens de recopier le logo du document word et le sauvegarder en format JPEG, PNG et GIF. J'ai inséré l'image dans le fichier excel. Aucun ne fonctionne bien.
Le logo test que j'avais fait, c'est juste un print screen que j'ai créé à partir d'excel. J'ai coloré des cellules, écrit LOGO et fait une capture d'image.

J'ai même essayé de juste faire une capture d'image du vrai logo, et ça ne marche toujours pas.

je ne comprends pas pourquoi ça fait ça.
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
14 févr. 2017 à 17:32
Il ne reste plus qu'à joindre le fichier vierge avec ce maudit logo
0
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
14 févr. 2017 à 17:54
j'ai même testé avec une image de la banque d'image d'Excel et ça fait la même chose qu'avec mon logo.
voici à nouveau le fichier avec cette image.
merci
https://www.cjoint.com/c/GBoq1s5d7Pv
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
14 févr. 2017 à 19:14
Clic droit sur l'image
-Taille et propriétés
-Dans l'onglet "propriétés" , cochez "Déplacer et dimensionner avec les cellules"

Cdlt
0
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
14 févr. 2017 à 19:31
BINGO ! C'était juste ça ?
un gros merci. Ça marche à merveille.

il reste juste l'histoire de la zone d'impression qui disparaît lors de la confirmation d'une nouvelle facture.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
14 févr. 2017 à 20:28
Rajoutez ces 3 lignes à la fin
    ZoneImpress = "='" & [C7] & "'!R1C1:R66C3"
    Range("A1:C66").Select
    ActiveWorkbook.Names.Add Name:="Zone_d_impression", RefersToR1C1:=ZoneImpress

Par contre je n'ai pas réglé les dimensions de la feuille pour que cela rentre sur 1 seule feuille, essayez de le faire vous même, si vous n'y arrivez pas , je regarderai demain
Bonne soirée
0
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
14 févr. 2017 à 20:32
j'avais déjà fait ma zone d'impression pour la feuille principale nommée FACTURE. C'est pour celles qui se copient vers la droite, qui comportent des numéros, que le setting se défait.
0
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
14 févr. 2017 à 21:48
oublie ça, j'ai réussi à refaire le setting de la zone d'impression des nouvelles factures.

Mais je viens de penser à un autre détail.

Si mon client fait une facture et a oublié quelque chose, Il va retourner dans la facture 1234 par exemple et il va modifier le montant. Comment s'assurer que la feuille "liste" se mettra à jour automatiquement ?
Mettons qu'on a une facture 1234 (la feuille se nomme ainsi) et que dans la feuille "liste", il y a les informations suivantes:
colonne A : Monsieur Untel
colonne B : 1234
colonne C : 2017-02-01
colonne D : 500.00

dans la feuille "liste", à la colonne D, après que ces informations aient été mises là par la macro, il faudrait que le montant soit remplacé par une formule qui dirait: cherche la feuille nommée selon le numéro qui est dans la colonne B (dans le cas présent, feuille 1234), et copie le montant total de la facture. Comme ça, il restera un lien constant au cas où mon client voudrait changer une facture.
(j'espère avoir bien décrit mon besoin, c'est pas toujours évident :) )

merci à l'avance et bonne soirée
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
15 févr. 2017 à 10:18
Bonjour
Remplacer la Ligne
  wl.Cells(lig, 4).Value = wf.Range("C61").Value

par
wl.Cells(lig, 4).FormulaR1C1 = "=INDIRECT(""'"" & RC[-2] & ""'!C61"")"

Cdlt
0
atinauJ Messages postés 43 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 5 mars 2017 1
15 févr. 2017 à 13:38
c'est merveilleux !!!! ça marche super bien.
mon fichier est parfait avec votre aide à tous.

un gros merci et passez une bonne journée.
0