Hello tout le monde,
Je cherche à créer une maccro qui dans un premier temps enregistre / convertie mon fichier en pdf et ensuite l'enregistre dans un dossier variable (selon le nom client, en l'occurence dans mon fichier cellule "B9").
J'ai réussi à créer les 2 maccros mais je n'arrive pas à les compiler.
Maccro "Enregistrer PDF" = converti en pdf à l'aide de l'imprimante "
Sub impr_PDF()
Application.ActivePrinter = "ScanSoft PDF Create! sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:= _
"ScanSoft PDF Create! sur Ne00:", Collate:=True
End Sub
Maccro "Enregistrement dans dossier variable"
Sub Bouton16_QuandClic()
Dim chemin As String, fichier As String
Sheets("feuil1").Copy
chemin = ThisWorkbook.Path
fichier = chemin & "\" & "Enquête_" & Range("B9") & "_" & Format(Date, "dd.mm.yyyy") & ".xls"
ActiveWorkbook.SaveAs Filename:="D:\Documents and Settings\maxime\Desktop\Dossier client\" & [B9] & "\" & "FCC\" & "Enquête_" & Range("B9") & "_" & Format(Date, "dd.mm.yyyy") & ".xls"
End Sub
Pour info je travail sur EXCEL 2003 et j'ai PDF Create 5!
Merci d'avance pour votre aide
Je cherche à créer une maccro qui dans un premier temps enregistre / convertie mon fichier en pdf et ensuite l'enregistre dans un dossier variable (selon le nom client, en l'occurence dans mon fichier cellule "B9").
J'ai réussi à créer les 2 maccros mais je n'arrive pas à les compiler.
Maccro "Enregistrer PDF" = converti en pdf à l'aide de l'imprimante "
Sub impr_PDF()
Application.ActivePrinter = "ScanSoft PDF Create! sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:= _
"ScanSoft PDF Create! sur Ne00:", Collate:=True
End Sub
Maccro "Enregistrement dans dossier variable"
Sub Bouton16_QuandClic()
Dim chemin As String, fichier As String
Sheets("feuil1").Copy
chemin = ThisWorkbook.Path
fichier = chemin & "\" & "Enquête_" & Range("B9") & "_" & Format(Date, "dd.mm.yyyy") & ".xls"
ActiveWorkbook.SaveAs Filename:="D:\Documents and Settings\maxime\Desktop\Dossier client\" & [B9] & "\" & "FCC\" & "Enquête_" & Range("B9") & "_" & Format(Date, "dd.mm.yyyy") & ".xls"
End Sub
Pour info je travail sur EXCEL 2003 et j'ai PDF Create 5!
Merci d'avance pour votre aide