Copier / Coller les donnée sur un model
Pouvez-vous m'aider s'il vous plait ?
Quand j'exécute la macro ça me copie les données sur une page vide or je voudrais que le collage reporte mon model.
J'aimerai aussi qu'à côte du nom du client ça met "blabla" par exemple.
Plus ensuite, enregistrer les feuilles en PDF .
Merci d'avance pour votre aide.
Pièces jointes
Salut
Pour faire avancer le projet
' Worksheets.Add(After:=Sheets("GL")).Name = nomSociete
Sheets("Model").Copy after:=Sheets("GL")
ActiveSheet.Name = nomSocieteLeakim
Bonjour gabriel123, leakim, le forum,
Pour que cela donne un fichier .PDF en mode paysage avec de petites bordures ... j’ai modifié les paramètres d’impression de la feuille modèle...
Créer les feuilles ... le blablatérage voisin du nom et les exporter en PDF ... sur ma machine ... ça prend environ 20 secondes ... moi je ne peux faire mieux ...
À+
ric
je voulais vous remercie de votre aide @leakim et @Ric
Pour le PDF c'est Nikel merci beaucoup même si cela est long
'On met toutes les données dans une variable tableau (plus rapide)
'Boucle pour récupérer CLIENTs sans doublons dans le dictionnaire 'd'
pour les PDF ou cela serrai pas possible juste une idée il faudrait pouvoir qu'à la place que les données se collent à la ligne 1 que ça se colle à la ligne 6 vous serrez faire ?
merci beaucoup de votre aide :)
Bonjour gabriel123,
Je suis passé à 3 secondes pour tout le traitement ...
Devine ...
J'avais placé le code de création du PDF dans la boucle d'écriture des données ... cela recréait le PDF à chaque ligne d'écriture ...
Ça devrait être mieux et les données commencent à la ligne 6 ...
À+
ric
Vraiment merci beaucoup :)
Cela fait 1 semaine que je suis bloquer dessus :(
Pourrais-je profiter de ta gentillesse .
j'aimerais que devant "ACR" je puisse rajouter "blabla" par exemple .
Merci tu viens de me faire économiser 2 heures de travail par semaine :)
Bonjour gabriel 123, le fil, le forum
Est-ce que tu veux dire devant le nom de l'onglet ?
Je ne peux deviner ... explique en détail s.t.p. ...
ric
Désoler ,
Je voulais dire que devant le nom de l'onglet "feuille" le mot "blabla" puise apparaitre.
Merci de m'aider si tardivement :)
Bonjour gabriel123,
Présumons que c'est devant le nom de l'onglet créé ...
Sheets(Sheets.Count).Name = " blabla" & nomSociete & "albalb" ... devant et derrière ...
ric
Bonjour gabriel123,
Bon bain et bonne nuit ...
ric
Merci beaucoup :) .
Encore désoler mais ça me mais un code d'erreur :(
Excuse-moi d'avoir occupé une partie de ta soirée
Bonjour gabriel123,
Excuse-moi ... je n'avais pas du tout testé la bête ...
Ça va mieux en passant par une autre variable dont le contenu est les blabla et le nom de la société ...
Regarde "LeNomdeLaSociete" ... tu vas le retrouvé partout ou nomSociete était employé ...
CTRL+F pour la recherche ...
À+
ric
je pourrai de demande quelque chose ?