Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Les Variables ????

Les Variables ????

1 réponse
Avatar
Guy BRUSSON
Bonjour à tous

Voila le probleme:
Je veux sauvegarder mes Factures avec leur Numéros

Exemple : dans c:\laura Evasion\facture\Factnnnn.xls

nnn = NumFact

Sub SauvegardeFacture()
'
' SauvegardeFacture Macro
' Macro enregistrée le 24/01/2006 par AGBFGB

Range("I14").Select
NumFact = ActiveCell



Application.CutCopyMode = False
ChDir "C:\Documents and Settings\Guy\Bureau\laura Evasion\Facture"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Guy\Bureau\laura Evasion\Facture\Fact &
Numfact.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.Goto Reference:="SauvegardeFacture"
Range("I14").Select
ActiveCell.FormulaR1C1 = NumFact
Range("I17").Select

End Sub

--
Amicalement et merci
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JLuc
Guy BRUSSON avait soumis l'idée :
Bonjour à tous

Voila le probleme:
Je veux sauvegarder mes Factures avec leur Numéros

Exemple : dans c:laura EvasionfactureFactnnnn.xls

nnn = NumFact

Sub SauvegardeFacture()
'
' SauvegardeFacture Macro
' Macro enregistrée le 24/01/2006 par AGBFGB

Range("I14").Select
NumFact = ActiveCell



Application.CutCopyMode = False
ChDir "C:Documents and SettingsGuyBureaulaura EvasionFacture"
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsGuyBureaulaura

EvasionFactureFact" & Numfact & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Application.Goto Reference:="SauvegardeFacture"
Range("I14").Select
ActiveCell.FormulaR1C1 = NumFact
Range("I17").Select

End Sub
Le nom de fichier est corige



--
JLuc