MACRO Excel - sauvegarder sous 2 format en meme temps (PDF et Xls)
Bonjour,
Je recherche une macro pour sauvegarder simultanément un fichier Excel *.xlsm vers *.Pdf et xls ( via un bouton )
j'ai pour l'instant trouvé comment sauvegarder en *.Pdf via un bouton avec :
MACRO :
Dim filename As String
Dim Path As String
If Range("G5").Value = "" Then
MsgBox "Vous n'avez pas choisi le régime de TVA"
Exit Sub
End If
If Range("G5").Value = "0,06" Then
Sheets(Array("Devis", "Attestation 6 % TVA")).Select
End If
Path = "z:\01. FACTURATION\DEVIS_D4_TEST\DEVIS_PDF\"
filename = Sheets("Devis").Range("G5").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=Path & filename & ".Pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Mais je bloque pour la seconde sauvegarde en *.XLS. :-(
Merci d'avance pour votre aide
Bonjour Hugo_B et
Une petite présentation ICI serait la bienvenue
Une sauvegarde simultanée n'est pas possible, en revanche tu peux exporter en PDF, puis faire la sauvegarde en XLSX (ou inversement)
Pour ce faire, il faut utiliser
ThisWorkbook.SaveCopyAs ...@+
merci pour la réponse rapide ....
Il n'est pas possible de le faire via 2 boutons au lieu d'un seul (1 bouton PDF et 1 bouton XLS) ?
Présentation faite
Re,
Bien sur que si, tu peux créer 2 boutons avec 2 sub différentes,
mais tu devra attendre que le 1er code est fini pour lancer le 2ème (si c'est ça ton idée)
@+