Bonjour,
Voila, je voudrais enregister ma facture sous un nom, un espace puis un
numéro,
Voici le bout de code pour l'enregistrement dans le dossier spécifieé:
'enregistre et ferme la facture (du nouveau claseur)
Application.Dialogs(xlDialogSaveAs).Show "D:\sarl lm construction\factures\"
Wk.Close
Set VbComp = Nothing: Set Wk = Nothing
'Vide le modèle facture et enregistre le classeur
Range("B11:F13,B14:C15,E14:F15,B17:G18,I2,I12,J6,A21:H50,I51").Select
Selection.ClearContents
ActiveWorkbook.Save
Sheets("menu").Select
en sachant que le nom se trouve sous B11 et le numéro sous I2
Merci encore pour votre aide
Peponne31
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
Clément Marcotte
Faut croire que c'est urgent. Juste 3 fois en même pas un quart d'heure.
"Peponne31" a écrit dans le message de news:
Bonjour, Voila, je voudrais enregister ma facture sous un nom, un espace puis un numéro, Voici le bout de code pour l'enregistrement dans le dossier spécifieé: 'enregistre et ferme la facture (du nouveau claseur) Application.Dialogs(xlDialogSaveAs).Show "D:sarl lm constructionfactures" Wk.Close
Set VbComp = Nothing: Set Wk = Nothing
'Vide le modèle facture et enregistre le classeur Range("B11:F13,B14:C15,E14:F15,B17:G18,I2,I12,J6,A21:H50,I51").Select Selection.ClearContents
ActiveWorkbook.Save
Sheets("menu").Select en sachant que le nom se trouve sous B11 et le numéro sous I2 Merci encore pour votre aide Peponne31
Faut croire que c'est urgent. Juste 3 fois en même pas un quart d'heure.
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: B80229A6-9600-4A3F-A122-AA2C0461F275@microsoft.com...
Bonjour,
Voila, je voudrais enregister ma facture sous un nom, un espace puis un
numéro,
Voici le bout de code pour l'enregistrement dans le dossier spécifieé:
'enregistre et ferme la facture (du nouveau claseur)
Application.Dialogs(xlDialogSaveAs).Show "D:sarl lm
constructionfactures"
Wk.Close
Set VbComp = Nothing: Set Wk = Nothing
'Vide le modèle facture et enregistre le classeur
Range("B11:F13,B14:C15,E14:F15,B17:G18,I2,I12,J6,A21:H50,I51").Select
Selection.ClearContents
ActiveWorkbook.Save
Sheets("menu").Select
en sachant que le nom se trouve sous B11 et le numéro sous I2
Merci encore pour votre aide
Peponne31
Faut croire que c'est urgent. Juste 3 fois en même pas un quart d'heure.
"Peponne31" a écrit dans le message de news:
Bonjour, Voila, je voudrais enregister ma facture sous un nom, un espace puis un numéro, Voici le bout de code pour l'enregistrement dans le dossier spécifieé: 'enregistre et ferme la facture (du nouveau claseur) Application.Dialogs(xlDialogSaveAs).Show "D:sarl lm constructionfactures" Wk.Close
Set VbComp = Nothing: Set Wk = Nothing
'Vide le modèle facture et enregistre le classeur Range("B11:F13,B14:C15,E14:F15,B17:G18,I2,I12,J6,A21:H50,I51").Select Selection.ClearContents
ActiveWorkbook.Save
Sheets("menu").Select en sachant que le nom se trouve sous B11 et le numéro sous I2 Merci encore pour votre aide Peponne31
Peponne31
Bonjour Clément Marcotte,
je m'en excuse pour ces 3 fois, J'ai eu des problèmes de connection et cela me disai de recommencer. Cordialement Peponne31
Faut croire que c'est urgent. Juste 3 fois en même pas un quart d'heure.
"Peponne31" a écrit dans le message de news:
Bonjour, Voila, je voudrais enregister ma facture sous un nom, un espace puis un numéro, Voici le bout de code pour l'enregistrement dans le dossier spécifieé: 'enregistre et ferme la facture (du nouveau claseur) Application.Dialogs(xlDialogSaveAs).Show "D:sarl lm constructionfactures" Wk.Close
Set VbComp = Nothing: Set Wk = Nothing
'Vide le modèle facture et enregistre le classeur Range("B11:F13,B14:C15,E14:F15,B17:G18,I2,I12,J6,A21:H50,I51").Select Selection.ClearContents
ActiveWorkbook.Save
Sheets("menu").Select en sachant que le nom se trouve sous B11 et le numéro sous I2 Merci encore pour votre aide Peponne31
Bonjour Clément Marcotte,
je m'en excuse pour ces 3 fois,
J'ai eu des problèmes de connection et cela me disai de recommencer.
Cordialement
Peponne31
Faut croire que c'est urgent. Juste 3 fois en même pas un quart d'heure.
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: B80229A6-9600-4A3F-A122-AA2C0461F275@microsoft.com...
Bonjour,
Voila, je voudrais enregister ma facture sous un nom, un espace puis un
numéro,
Voici le bout de code pour l'enregistrement dans le dossier spécifieé:
'enregistre et ferme la facture (du nouveau claseur)
Application.Dialogs(xlDialogSaveAs).Show "D:sarl lm
constructionfactures"
Wk.Close
Set VbComp = Nothing: Set Wk = Nothing
'Vide le modèle facture et enregistre le classeur
Range("B11:F13,B14:C15,E14:F15,B17:G18,I2,I12,J6,A21:H50,I51").Select
Selection.ClearContents
ActiveWorkbook.Save
Sheets("menu").Select
en sachant que le nom se trouve sous B11 et le numéro sous I2
Merci encore pour votre aide
Peponne31
je m'en excuse pour ces 3 fois, J'ai eu des problèmes de connection et cela me disai de recommencer. Cordialement Peponne31
Faut croire que c'est urgent. Juste 3 fois en même pas un quart d'heure.
"Peponne31" a écrit dans le message de news:
Bonjour, Voila, je voudrais enregister ma facture sous un nom, un espace puis un numéro, Voici le bout de code pour l'enregistrement dans le dossier spécifieé: 'enregistre et ferme la facture (du nouveau claseur) Application.Dialogs(xlDialogSaveAs).Show "D:sarl lm constructionfactures" Wk.Close
Set VbComp = Nothing: Set Wk = Nothing
'Vide le modèle facture et enregistre le classeur Range("B11:F13,B14:C15,E14:F15,B17:G18,I2,I12,J6,A21:H50,I51").Select Selection.ClearContents
ActiveWorkbook.Save
Sheets("menu").Select en sachant que le nom se trouve sous B11 et le numéro sous I2 Merci encore pour votre aide Peponne31
