'Ouverture du classeur source et controle si la feuille y existe
Set ObjWrk = Workbooks.Open(SrcWrk)
If Not IsSheetExist(SrcShe) Then
MsgBox "La feuille " & SrcShe & " est absente dans le classeur " & SrcWrk
ObjWrk.Close
Exit Sub
End If
... j'aimerais ouvrir, copier et fermer SANS enregistrer. Y a t'il une solution ?..
Depuis.Close True
Depuis.Close False
... Yenaladedans...
Option Explicit
Sub Résultat_en_PDF_convertir()
With Sheets("Feuil1")
.Range("a14").CurrentRegion.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\00\Downloads\" & .Range("k1").Value & ".pdf" ' emplacement adapter
End With
End Sub
Sub essai()
Vers_où = Selection.Text
'Ouverture du classeur
Set Planning = Workbooks.Open("C:\Users\Toto\Documents\Toto.xlsx")
ActiveWorkbook.Sheets(Vers_où).Activate
Planning.Sheets(Vers_où).Select
Range("B2:H34").Select
Selection.Copy
Planning.Close False
Sheets("Feuil1").Select
Range("K20").Select
ActiveSheet.Paste
Dim fichier As String, Dossier As String, Chemin As String
With Sheets("Feuil1")
fichier = "\" & Range("K1") & ".pdf"
Dossier = "C:\Users\Toto\Documents\Excel"
Chemin = Dossier & fichier
End With
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
ActiveSheet.Paste
ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sub essai()
Set Ici = ThisWorkbook 'pour la copie
Vers_où = Selection.Text
'Ouverture du classeur
Set Planning = Workbooks.Open("C:\Users\Toto\Documents\Toto.xlsx")
'de l'onglet
Sheets(Vers_où).Activate
'copie tout (sauf dimensions des lignes et colonnes)
Sheets(Vers_où).Range("B2:H34").Copy Ici.Sheets("Feuil1").Range("K20")
Planning.Close False
Dim Chemin As String
Chemin = "C:\Users\Toto\Documents\" & [K1] & ".pdf"
Feuil1.ExportAsFixedFormat Type:=0, Filename:=Chemin, Quality:=0, _
IncludeDocProperties:=1, IgnorePrintAreas:=0, OpenAfterPublish:=1
End Sub
Pour bénéficier au maximum du .Copy, j’aurais plutôt écrit dans la page de code de l'onglet du bouton
Ant dernière ligne : Feuil1 pour toute la feuille ou une plage bien définie
Pour mon code : tu « Slash » ou tu « Clash »