Bonjour à tous, j'ai déjà écrit un Post concernant ce sujet, mais je trouve qu'il n'était pas clair et qu'il n'explique pas bien mon problème que voici :
J'essaie d'imprimer en PDF. Je veux imprimer plusieurs fois la même feuille mais, avec des données différentes.
Voici le code :
J'ai fait la macro pour qu'elle change les données et imprime jusqu'à ce quelle rencontre la valeur "End" dans l'autre feuille.
Mon problème est la partie en rouge...
Pour la première impression, tout marche nickel. Pour la deuxième, elle me demande d'entré un nom de fichier plutôt que d'aller chercher la cellule C1 comme indiqué dans le code.
Je comprend que dalle.
Je ne sais pas pourquoi ça marche pour la première et pas pour les autres...
Si personnes peut maider, je vais laisser tomber ce projet car cela fait déjà trop de temps que je met la dessus...
Merci d'avance
Frank
J'essaie d'imprimer en PDF. Je veux imprimer plusieurs fois la même feuille mais, avec des données différentes.
Voici le code :
Code:
Sub Macro2()
Sheets("table").Activate
Cells(1, 1).Select
For Each ligne In ActiveSheet.Rows
If ligne.Cells(1, 1).Value = "oui" Then
ligne.Cells(1, 2).Select
Selection.Copy
Sheets("Comparatif").Activate
'colle
Range("B6:B7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'imprime
[COLOR="Red"]Filename = "C:\Test\" & ActiveSheet.Range("C1").Value & ".pdf"
SendKeys Filename & "{ENTER}", False
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="Adobe PDF sur Ne03:", Collate:=True[/COLOR]
End If
If ligne.Cells(1, 1).Value = "End" Then
Exit For
End If
Sheets("table").Activate
Next
End Sub
J'ai fait la macro pour qu'elle change les données et imprime jusqu'à ce quelle rencontre la valeur "End" dans l'autre feuille.
Mon problème est la partie en rouge...
Pour la première impression, tout marche nickel. Pour la deuxième, elle me demande d'entré un nom de fichier plutôt que d'aller chercher la cellule C1 comme indiqué dans le code.
Je comprend que dalle.
Je ne sais pas pourquoi ça marche pour la première et pas pour les autres...
Si personnes peut maider, je vais laisser tomber ce projet car cela fait déjà trop de temps que je met la dessus...
Merci d'avance
Frank
Dernière édition: