Code fonction
Bonjour je suis nouveau sur le forum.
Tous mes voeux pour cette année 2020
Voila je cherche à coder cette fonction somme si ens en Vba Sumifs
Si quelqu'un peut m'aider je serai ravi
Bien Cordialement
Bonjour (et bonne année également),
Avec aussi peu d'infos, attends-tu réellement une réponse ? Et si oui, penses-tu qu'elles correspondra à ton besoin ?
Je vous joinds le fichier par mail si vous voulez car il y a des données financière et des ententes de collectivités
Je vous joinds le fichier par mail si vous voulez car il y a des données financière et des ententes de collectivités
Un fichier anonymisé posté ici serait préférable. L'idée est surtout de visualiser l'organisation de vos données, et de comprendre ce que vous cherchez à obtenir avec...
Re je suis novice sur ce forum
j'ai codé un peu pour une conversion xlsm en pdf et me renvoi un message débogage
Je vous joinds les lignes de codes
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Nomdossier & Nomfichier & ".PDF", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Si quelqu'un 'e) peut m'aider ce serait sympa
Bien à vous
Voici la dite macro
Private Sub CmdEnregistrer_Click()
'Déclaration des valeurs'
Dim Nomdossier As String
Dim Nomfichier As String
'Nom de dossier'
Nomdossier = "C:\Users\agent\Documents\Inventaire\"
Application.DisplayAlerts = False
'Nom fichier'
Nomfichier = "Inventaire_stock_electrique" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & ".pdf"
'enregistement format PDF'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Nomdossier & Nomfichier & ".PDF", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
MsgBox "Votre fichier intitulé :" & Nomfichier & vbNewLine & _
" dans le dossier suivant : " & Nomdossier, vbOKOnly + vbInformation
End Sub