Bonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
Bonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
Bonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Je te laisse l'adapter :o)
@+
FxMBonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Je te laisse l'adapter :o)
@+
FxM
Bonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Je te laisse l'adapter :o)
@+
FxMBonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Bonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntaxe.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM wrote:Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Je te laisse l'adapter :o)
@+
FxMBonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Bonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntaxe.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM <nul...@greuchmeu.ici> wrote:
Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Je te laisse l'adapter :o)
@+
FxM
Bonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Bonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntaxe.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM wrote:Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Je te laisse l'adapter :o)
@+
FxMBonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
avec peut-être un supplémentaire en fin de chaîne ...
Si le fichier original est situé dans le répertoire de destination, i l y
aurait aussi quelque chose comme
activeworkbook.saveas thisworkbook.path & "nom.xls"
On peut également modifier le chemin mais il faudrait nous en dire un
peu plus sur le chemin original et le chemin de destination (celui cité
ci-dessus ?)
@+
FxMBonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntaxe.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM wrote:Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1. txt"
Je te laisse l'adapter :o)
@+
FxMBonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienven u.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc a vec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
avec peut-être un supplémentaire en fin de chaîne ...
Si le fichier original est situé dans le répertoire de destination, i l y
aurait aussi quelque chose comme
activeworkbook.saveas thisworkbook.path & "nom.xls"
On peut également modifier le chemin mais il faudrait nous en dire un
peu plus sur le chemin original et le chemin de destination (celui cité
ci-dessus ?)
@+
FxM
Bonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntaxe.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM <nul...@greuchmeu.ici> wrote:
Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1. txt"
Je te laisse l'adapter :o)
@+
FxM
Bonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienven u.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc a vec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
avec peut-être un supplémentaire en fin de chaîne ...
Si le fichier original est situé dans le répertoire de destination, i l y
aurait aussi quelque chose comme
activeworkbook.saveas thisworkbook.path & "nom.xls"
On peut également modifier le chemin mais il faudrait nous en dire un
peu plus sur le chemin original et le chemin de destination (celui cité
ci-dessus ?)
@+
FxMBonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntaxe.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM wrote:Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1. txt"
Je te laisse l'adapter :o)
@+
FxMBonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienven u.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc a vec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
Alors le petit supplémentaire ne lui fait ni chaud ni froid !!!
Par contre j'ai un beaucoup mieux avec
activeworkbook.saveas thisworkbook.path & "nom.xls"
Je l'ai adapté à ma façon ( je suis tellement débutante que ça
doit faire peur, je suis navrée !)
ChDrive "C"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "Facturation
cabinetFactures enregistrées dentiste.xls"
ActiveWorkbook.SaveAs Filename:=(Nom)
Résultat :
Il procède à l'enregistrement mais ne tiens plus compte du nom,
numéro de facture et de la date, il est nouille ! Il veut
l'enregistrer en tant que "classeur 1".....même si j'enlève le 2ème
ActiveWorkbook.SaveAs.
Des infos de plus !!??
C'est donc un seul et unique dossier
- Sur le bureau dossier "Facturation Cabinet"
- A l'intérieur j'ai mon classeur.xls "Modèle facture dentiste"
- Dans ce classeur j'ai entre autre une feuille "Facture dentiste"
- Sur cette feuille j'ai un bouton qui va aller enregistrer (uniquement
cette feuille) dans le dossier "Facturation Cabinet" puis dans le
Dossier "Factures enregistrées dentiste"
heu !!!!! est-ce qu'il manque des informations ????
Je vais continuer mes tentatives j'en suis à la 378 èmes :-))
On 10 déc, 15:12, FxM wrote:ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
avec peut-être un supplémentaire en fin de chaîne ...
Si le fichier original est situé dans le répertoire de destination, il y
aurait aussi quelque chose comme
activeworkbook.saveas thisworkbook.path & "nom.xls"
On peut également modifier le chemin mais il faudrait nous en dire un
peu plus sur le chemin original et le chemin de destination (celui cité
ci-dessus ?)
@+
FxMBonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntaxe.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM wrote:Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Je te laisse l'adapter :o)
@+
FxMBonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
Alors le petit supplémentaire ne lui fait ni chaud ni froid !!!
Par contre j'ai un beaucoup mieux avec
activeworkbook.saveas thisworkbook.path & "nom.xls"
Je l'ai adapté à ma façon ( je suis tellement débutante que ça
doit faire peur, je suis navrée !)
ChDrive "C"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "Facturation
cabinetFactures enregistrées dentiste.xls"
ActiveWorkbook.SaveAs Filename:=(Nom)
Résultat :
Il procède à l'enregistrement mais ne tiens plus compte du nom,
numéro de facture et de la date, il est nouille ! Il veut
l'enregistrer en tant que "classeur 1".....même si j'enlève le 2ème
ActiveWorkbook.SaveAs.
Des infos de plus !!??
C'est donc un seul et unique dossier
- Sur le bureau dossier "Facturation Cabinet"
- A l'intérieur j'ai mon classeur.xls "Modèle facture dentiste"
- Dans ce classeur j'ai entre autre une feuille "Facture dentiste"
- Sur cette feuille j'ai un bouton qui va aller enregistrer (uniquement
cette feuille) dans le dossier "Facturation Cabinet" puis dans le
Dossier "Factures enregistrées dentiste"
heu !!!!! est-ce qu'il manque des informations ????
Je vais continuer mes tentatives j'en suis à la 378 èmes :-))
On 10 déc, 15:12, FxM <nul...@greuchmeu.ici> wrote:
ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
avec peut-être un supplémentaire en fin de chaîne ...
Si le fichier original est situé dans le répertoire de destination, il y
aurait aussi quelque chose comme
activeworkbook.saveas thisworkbook.path & "nom.xls"
On peut également modifier le chemin mais il faudrait nous en dire un
peu plus sur le chemin original et le chemin de destination (celui cité
ci-dessus ?)
@+
FxM
Bonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntaxe.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM <nul...@greuchmeu.ici> wrote:
Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Je te laisse l'adapter :o)
@+
FxM
Bonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
Alors le petit supplémentaire ne lui fait ni chaud ni froid !!!
Par contre j'ai un beaucoup mieux avec
activeworkbook.saveas thisworkbook.path & "nom.xls"
Je l'ai adapté à ma façon ( je suis tellement débutante que ça
doit faire peur, je suis navrée !)
ChDrive "C"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "Facturation
cabinetFactures enregistrées dentiste.xls"
ActiveWorkbook.SaveAs Filename:=(Nom)
Résultat :
Il procède à l'enregistrement mais ne tiens plus compte du nom,
numéro de facture et de la date, il est nouille ! Il veut
l'enregistrer en tant que "classeur 1".....même si j'enlève le 2ème
ActiveWorkbook.SaveAs.
Des infos de plus !!??
C'est donc un seul et unique dossier
- Sur le bureau dossier "Facturation Cabinet"
- A l'intérieur j'ai mon classeur.xls "Modèle facture dentiste"
- Dans ce classeur j'ai entre autre une feuille "Facture dentiste"
- Sur cette feuille j'ai un bouton qui va aller enregistrer (uniquement
cette feuille) dans le dossier "Facturation Cabinet" puis dans le
Dossier "Factures enregistrées dentiste"
heu !!!!! est-ce qu'il manque des informations ????
Je vais continuer mes tentatives j'en suis à la 378 èmes :-))
On 10 déc, 15:12, FxM wrote:ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
avec peut-être un supplémentaire en fin de chaîne ...
Si le fichier original est situé dans le répertoire de destination, il y
aurait aussi quelque chose comme
activeworkbook.saveas thisworkbook.path & "nom.xls"
On peut également modifier le chemin mais il faudrait nous en dire un
peu plus sur le chemin original et le chemin de destination (celui cité
ci-dessus ?)
@+
FxMBonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntaxe.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM wrote:Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Je te laisse l'adapter :o)
@+
FxMBonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
Passant volontairement sur le chemin de tarés dont seuls les
développeurs M$ ont le secret :
- ton classeur original se trouve donc là :
c:blabla(...)bureauFacturation CabinetModèle facture dentiste.xls
- et tu veux enregistrer le fichier ici :
c:blabla(...)bureauFacturation CabinetFactures enregistrées
dentiste(???).xls
Avec ceci, ça devrait aller :
Attention aux coupures intempestives des lignes !
sub test
Dim NomFichier As String
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
'tu fais ce que tu veux au début ...
' sheets(...).copy
'si tu .copy, il y a un moment où tu .paste !
'...etc
'préparation du nom du fichier et de son chemin
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") & _
"." & Year(.Range("E2")) & " Facture. N° " & _
.Range("B12") & ".xls"
End With
ActiveWorkbook.SaveAs activeworkbook.path & "Factures enregistrées
dentiste" & nom
end sub
Plus besoin de chdrive puisque tu ne changes pas de lecteur et comme tu
y restes, tu peux directement mettre le nom et le chemin qui va bien.
Enfin, si tu souhaites éviter les problèmes liés à l'utilisateur, je ne
saurais trop te recommander de mettre les fichiers dans un autre endroit
que sur le bureau ou 'Mes documents' mais, par exemple, sur c:dentiste
Ca présente aussi l'avantage d'avoir un chemin moins long.
Tu nous dis si ça marche ?
@+
FxMAlors le petit supplémentaire ne lui fait ni chaud ni froid !!!
Par contre j'ai un beaucoup mieux avec
activeworkbook.saveas thisworkbook.path & "nom.xls"
Je l'ai adapté à ma façon ( je suis tellement débutante que ça
doit faire peur, je suis navrée !)
ChDrive "C"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "Facturation
cabinetFactures enregistrées dentiste.xls"
ActiveWorkbook.SaveAs Filename:=(Nom)
Résultat :
Il procède à l'enregistrement mais ne tiens plus compte du nom,
numéro de facture et de la date, il est nouille ! Il veut
l'enregistrer en tant que "classeur 1".....même si j'enlève le 2è me
ActiveWorkbook.SaveAs.
Des infos de plus !!??
C'est donc un seul et unique dossier
- Sur le bureau dossier "Facturation Cabinet"
- A l'intérieur j'ai mon classeur.xls "Modèle facture dentiste"
- Dans ce classeur j'ai entre autre une feuille "Facture dentiste"
- Sur cette feuille j'ai un bouton qui va aller enregistrer (uniquement
cette feuille) dans le dossier "Facturation Cabinet" puis dans le
Dossier "Factures enregistrées dentiste"
heu !!!!! est-ce qu'il manque des informations ????
Je vais continuer mes tentatives j'en suis à la 378 èmes :-))
On 10 déc, 15:12, FxM wrote:ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
avec peut-être un supplémentaire en fin de chaîne ...
Si le fichier original est situé dans le répertoire de destination , il y
aurait aussi quelque chose comme
activeworkbook.saveas thisworkbook.path & "nom.xls"
On peut également modifier le chemin mais il faudrait nous en dire un
peu plus sur le chemin original et le chemin de destination (celui cit é
ci-dessus ?)
@+
FxMBonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntax e.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturati on
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM wrote:Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages 1.txt"
Je te laisse l'adapter :o)
@+
FxMBonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienv enu.
Le classeur se promène d'un pc à un autre, voir même un 3èm e, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc d ont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui vienne nt
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
Passant volontairement sur le chemin de tarés dont seuls les
développeurs M$ ont le secret :
- ton classeur original se trouve donc là :
c:blabla(...)bureauFacturation CabinetModèle facture dentiste.xls
- et tu veux enregistrer le fichier ici :
c:blabla(...)bureauFacturation CabinetFactures enregistrées
dentiste(???).xls
Avec ceci, ça devrait aller :
Attention aux coupures intempestives des lignes !
sub test
Dim NomFichier As String
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
'tu fais ce que tu veux au début ...
' sheets(...).copy
'si tu .copy, il y a un moment où tu .paste !
'...etc
'préparation du nom du fichier et de son chemin
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") & _
"." & Year(.Range("E2")) & " Facture. N° " & _
.Range("B12") & ".xls"
End With
ActiveWorkbook.SaveAs activeworkbook.path & "Factures enregistrées
dentiste" & nom
end sub
Plus besoin de chdrive puisque tu ne changes pas de lecteur et comme tu
y restes, tu peux directement mettre le nom et le chemin qui va bien.
Enfin, si tu souhaites éviter les problèmes liés à l'utilisateur, je ne
saurais trop te recommander de mettre les fichiers dans un autre endroit
que sur le bureau ou 'Mes documents' mais, par exemple, sur c:dentiste
Ca présente aussi l'avantage d'avoir un chemin moins long.
Tu nous dis si ça marche ?
@+
FxM
Alors le petit supplémentaire ne lui fait ni chaud ni froid !!!
Par contre j'ai un beaucoup mieux avec
activeworkbook.saveas thisworkbook.path & "nom.xls"
Je l'ai adapté à ma façon ( je suis tellement débutante que ça
doit faire peur, je suis navrée !)
ChDrive "C"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "Facturation
cabinetFactures enregistrées dentiste.xls"
ActiveWorkbook.SaveAs Filename:=(Nom)
Résultat :
Il procède à l'enregistrement mais ne tiens plus compte du nom,
numéro de facture et de la date, il est nouille ! Il veut
l'enregistrer en tant que "classeur 1".....même si j'enlève le 2è me
ActiveWorkbook.SaveAs.
Des infos de plus !!??
C'est donc un seul et unique dossier
- Sur le bureau dossier "Facturation Cabinet"
- A l'intérieur j'ai mon classeur.xls "Modèle facture dentiste"
- Dans ce classeur j'ai entre autre une feuille "Facture dentiste"
- Sur cette feuille j'ai un bouton qui va aller enregistrer (uniquement
cette feuille) dans le dossier "Facturation Cabinet" puis dans le
Dossier "Factures enregistrées dentiste"
heu !!!!! est-ce qu'il manque des informations ????
Je vais continuer mes tentatives j'en suis à la 378 èmes :-))
On 10 déc, 15:12, FxM <nul...@greuchmeu.ici> wrote:
ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
avec peut-être un supplémentaire en fin de chaîne ...
Si le fichier original est situé dans le répertoire de destination , il y
aurait aussi quelque chose comme
activeworkbook.saveas thisworkbook.path & "nom.xls"
On peut également modifier le chemin mais il faudrait nous en dire un
peu plus sur le chemin original et le chemin de destination (celui cit é
ci-dessus ?)
@+
FxM
Bonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntax e.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturati on
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM <nul...@greuchmeu.ici> wrote:
Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages 1.txt"
Je te laisse l'adapter :o)
@+
FxM
Bonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienv enu.
Le classeur se promène d'un pc à un autre, voir même un 3èm e, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc d ont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui vienne nt
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
Passant volontairement sur le chemin de tarés dont seuls les
développeurs M$ ont le secret :
- ton classeur original se trouve donc là :
c:blabla(...)bureauFacturation CabinetModèle facture dentiste.xls
- et tu veux enregistrer le fichier ici :
c:blabla(...)bureauFacturation CabinetFactures enregistrées
dentiste(???).xls
Avec ceci, ça devrait aller :
Attention aux coupures intempestives des lignes !
sub test
Dim NomFichier As String
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
'tu fais ce que tu veux au début ...
' sheets(...).copy
'si tu .copy, il y a un moment où tu .paste !
'...etc
'préparation du nom du fichier et de son chemin
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") & _
"." & Year(.Range("E2")) & " Facture. N° " & _
.Range("B12") & ".xls"
End With
ActiveWorkbook.SaveAs activeworkbook.path & "Factures enregistrées
dentiste" & nom
end sub
Plus besoin de chdrive puisque tu ne changes pas de lecteur et comme tu
y restes, tu peux directement mettre le nom et le chemin qui va bien.
Enfin, si tu souhaites éviter les problèmes liés à l'utilisateur, je ne
saurais trop te recommander de mettre les fichiers dans un autre endroit
que sur le bureau ou 'Mes documents' mais, par exemple, sur c:dentiste
Ca présente aussi l'avantage d'avoir un chemin moins long.
Tu nous dis si ça marche ?
@+
FxMAlors le petit supplémentaire ne lui fait ni chaud ni froid !!!
Par contre j'ai un beaucoup mieux avec
activeworkbook.saveas thisworkbook.path & "nom.xls"
Je l'ai adapté à ma façon ( je suis tellement débutante que ça
doit faire peur, je suis navrée !)
ChDrive "C"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "Facturation
cabinetFactures enregistrées dentiste.xls"
ActiveWorkbook.SaveAs Filename:=(Nom)
Résultat :
Il procède à l'enregistrement mais ne tiens plus compte du nom,
numéro de facture et de la date, il est nouille ! Il veut
l'enregistrer en tant que "classeur 1".....même si j'enlève le 2è me
ActiveWorkbook.SaveAs.
Des infos de plus !!??
C'est donc un seul et unique dossier
- Sur le bureau dossier "Facturation Cabinet"
- A l'intérieur j'ai mon classeur.xls "Modèle facture dentiste"
- Dans ce classeur j'ai entre autre une feuille "Facture dentiste"
- Sur cette feuille j'ai un bouton qui va aller enregistrer (uniquement
cette feuille) dans le dossier "Facturation Cabinet" puis dans le
Dossier "Factures enregistrées dentiste"
heu !!!!! est-ce qu'il manque des informations ????
Je vais continuer mes tentatives j'en suis à la 378 èmes :-))
On 10 déc, 15:12, FxM wrote:ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
avec peut-être un supplémentaire en fin de chaîne ...
Si le fichier original est situé dans le répertoire de destination , il y
aurait aussi quelque chose comme
activeworkbook.saveas thisworkbook.path & "nom.xls"
On peut également modifier le chemin mais il faudrait nous en dire un
peu plus sur le chemin original et le chemin de destination (celui cit é
ci-dessus ?)
@+
FxMBonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntax e.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturati on
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM wrote:Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages 1.txt"
Je te laisse l'adapter :o)
@+
FxMBonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienv enu.
Le classeur se promène d'un pc à un autre, voir même un 3èm e, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc d ont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui vienne nt
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
FxM ça maaaaaaaaaaaaaaarche !
C'est trop bien, d'autant je m'étais jurée de m'exiler sur une
banquise si il n'y avait pas de solution, alors tu me sauves la vie !
:-)
Non mais très sérieusement merci infiniment de ton aide c'est
vraiment super !
On 10 déc, 17:08, FxM wrote:Passant volontairement sur le chemin de tarés dont seuls les
développeurs M$ ont le secret :
- ton classeur original se trouve donc là :
c:blabla(...)bureauFacturation CabinetModèle facture dentiste.xls
- et tu veux enregistrer le fichier ici :
c:blabla(...)bureauFacturation CabinetFactures enregistrées
dentiste(???).xls
Avec ceci, ça devrait aller :
Attention aux coupures intempestives des lignes !
sub test
Dim NomFichier As String
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
'tu fais ce que tu veux au début ...
' sheets(...).copy
'si tu .copy, il y a un moment où tu .paste !
'...etc
'préparation du nom du fichier et de son chemin
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") & _
"." & Year(.Range("E2")) & " Facture. N° " & _
.Range("B12") & ".xls"
End With
ActiveWorkbook.SaveAs activeworkbook.path & "Factures enregistrées
dentiste" & nom
end sub
Plus besoin de chdrive puisque tu ne changes pas de lecteur et comme tu
y restes, tu peux directement mettre le nom et le chemin qui va bien.
Enfin, si tu souhaites éviter les problèmes liés à l'utilisateur, je ne
saurais trop te recommander de mettre les fichiers dans un autre endroit
que sur le bureau ou 'Mes documents' mais, par exemple, sur c:dentiste
Ca présente aussi l'avantage d'avoir un chemin moins long.
Tu nous dis si ça marche ?
@+
FxMAlors le petit supplémentaire ne lui fait ni chaud ni froid !!!
Par contre j'ai un beaucoup mieux avec
activeworkbook.saveas thisworkbook.path & "nom.xls"
Je l'ai adapté à ma façon ( je suis tellement débutante que ça
doit faire peur, je suis navrée !)
ChDrive "C"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "Facturation
cabinetFactures enregistrées dentiste.xls"
ActiveWorkbook.SaveAs Filename:=(Nom)
Résultat :
Il procède à l'enregistrement mais ne tiens plus compte du nom,
numéro de facture et de la date, il est nouille ! Il veut
l'enregistrer en tant que "classeur 1".....même si j'enlève le 2ème
ActiveWorkbook.SaveAs.
Des infos de plus !!??
C'est donc un seul et unique dossier
- Sur le bureau dossier "Facturation Cabinet"
- A l'intérieur j'ai mon classeur.xls "Modèle facture dentiste"
- Dans ce classeur j'ai entre autre une feuille "Facture dentiste"
- Sur cette feuille j'ai un bouton qui va aller enregistrer (uniquement
cette feuille) dans le dossier "Facturation Cabinet" puis dans le
Dossier "Factures enregistrées dentiste"
heu !!!!! est-ce qu'il manque des informations ????
Je vais continuer mes tentatives j'en suis à la 378 èmes :-))
On 10 déc, 15:12, FxM wrote:ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
avec peut-être un supplémentaire en fin de chaîne ...
Si le fichier original est situé dans le répertoire de destination, il y
aurait aussi quelque chose comme
activeworkbook.saveas thisworkbook.path & "nom.xls"
On peut également modifier le chemin mais il faudrait nous en dire un
peu plus sur le chemin original et le chemin de destination (celui cité
ci-dessus ?)
@+
FxMBonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntaxe.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM wrote:Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Je te laisse l'adapter :o)
@+
FxMBonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
FxM ça maaaaaaaaaaaaaaarche !
C'est trop bien, d'autant je m'étais jurée de m'exiler sur une
banquise si il n'y avait pas de solution, alors tu me sauves la vie !
:-)
Non mais très sérieusement merci infiniment de ton aide c'est
vraiment super !
On 10 déc, 17:08, FxM <nul...@greuchmeu.ici> wrote:
Passant volontairement sur le chemin de tarés dont seuls les
développeurs M$ ont le secret :
- ton classeur original se trouve donc là :
c:blabla(...)bureauFacturation CabinetModèle facture dentiste.xls
- et tu veux enregistrer le fichier ici :
c:blabla(...)bureauFacturation CabinetFactures enregistrées
dentiste(???).xls
Avec ceci, ça devrait aller :
Attention aux coupures intempestives des lignes !
sub test
Dim NomFichier As String
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
'tu fais ce que tu veux au début ...
' sheets(...).copy
'si tu .copy, il y a un moment où tu .paste !
'...etc
'préparation du nom du fichier et de son chemin
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") & _
"." & Year(.Range("E2")) & " Facture. N° " & _
.Range("B12") & ".xls"
End With
ActiveWorkbook.SaveAs activeworkbook.path & "Factures enregistrées
dentiste" & nom
end sub
Plus besoin de chdrive puisque tu ne changes pas de lecteur et comme tu
y restes, tu peux directement mettre le nom et le chemin qui va bien.
Enfin, si tu souhaites éviter les problèmes liés à l'utilisateur, je ne
saurais trop te recommander de mettre les fichiers dans un autre endroit
que sur le bureau ou 'Mes documents' mais, par exemple, sur c:dentiste
Ca présente aussi l'avantage d'avoir un chemin moins long.
Tu nous dis si ça marche ?
@+
FxM
Alors le petit supplémentaire ne lui fait ni chaud ni froid !!!
Par contre j'ai un beaucoup mieux avec
activeworkbook.saveas thisworkbook.path & "nom.xls"
Je l'ai adapté à ma façon ( je suis tellement débutante que ça
doit faire peur, je suis navrée !)
ChDrive "C"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "Facturation
cabinetFactures enregistrées dentiste.xls"
ActiveWorkbook.SaveAs Filename:=(Nom)
Résultat :
Il procède à l'enregistrement mais ne tiens plus compte du nom,
numéro de facture et de la date, il est nouille ! Il veut
l'enregistrer en tant que "classeur 1".....même si j'enlève le 2ème
ActiveWorkbook.SaveAs.
Des infos de plus !!??
C'est donc un seul et unique dossier
- Sur le bureau dossier "Facturation Cabinet"
- A l'intérieur j'ai mon classeur.xls "Modèle facture dentiste"
- Dans ce classeur j'ai entre autre une feuille "Facture dentiste"
- Sur cette feuille j'ai un bouton qui va aller enregistrer (uniquement
cette feuille) dans le dossier "Facturation Cabinet" puis dans le
Dossier "Factures enregistrées dentiste"
heu !!!!! est-ce qu'il manque des informations ????
Je vais continuer mes tentatives j'en suis à la 378 èmes :-))
On 10 déc, 15:12, FxM <nul...@greuchmeu.ici> wrote:
ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
avec peut-être un supplémentaire en fin de chaîne ...
Si le fichier original est situé dans le répertoire de destination, il y
aurait aussi quelque chose comme
activeworkbook.saveas thisworkbook.path & "nom.xls"
On peut également modifier le chemin mais il faudrait nous en dire un
peu plus sur le chemin original et le chemin de destination (celui cité
ci-dessus ?)
@+
FxM
Bonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntaxe.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM <nul...@greuchmeu.ici> wrote:
Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Je te laisse l'adapter :o)
@+
FxM
Bonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
FxM ça maaaaaaaaaaaaaaarche !
C'est trop bien, d'autant je m'étais jurée de m'exiler sur une
banquise si il n'y avait pas de solution, alors tu me sauves la vie !
:-)
Non mais très sérieusement merci infiniment de ton aide c'est
vraiment super !
On 10 déc, 17:08, FxM wrote:Passant volontairement sur le chemin de tarés dont seuls les
développeurs M$ ont le secret :
- ton classeur original se trouve donc là :
c:blabla(...)bureauFacturation CabinetModèle facture dentiste.xls
- et tu veux enregistrer le fichier ici :
c:blabla(...)bureauFacturation CabinetFactures enregistrées
dentiste(???).xls
Avec ceci, ça devrait aller :
Attention aux coupures intempestives des lignes !
sub test
Dim NomFichier As String
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
'tu fais ce que tu veux au début ...
' sheets(...).copy
'si tu .copy, il y a un moment où tu .paste !
'...etc
'préparation du nom du fichier et de son chemin
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") & _
"." & Year(.Range("E2")) & " Facture. N° " & _
.Range("B12") & ".xls"
End With
ActiveWorkbook.SaveAs activeworkbook.path & "Factures enregistrées
dentiste" & nom
end sub
Plus besoin de chdrive puisque tu ne changes pas de lecteur et comme tu
y restes, tu peux directement mettre le nom et le chemin qui va bien.
Enfin, si tu souhaites éviter les problèmes liés à l'utilisateur, je ne
saurais trop te recommander de mettre les fichiers dans un autre endroit
que sur le bureau ou 'Mes documents' mais, par exemple, sur c:dentiste
Ca présente aussi l'avantage d'avoir un chemin moins long.
Tu nous dis si ça marche ?
@+
FxMAlors le petit supplémentaire ne lui fait ni chaud ni froid !!!
Par contre j'ai un beaucoup mieux avec
activeworkbook.saveas thisworkbook.path & "nom.xls"
Je l'ai adapté à ma façon ( je suis tellement débutante que ça
doit faire peur, je suis navrée !)
ChDrive "C"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "Facturation
cabinetFactures enregistrées dentiste.xls"
ActiveWorkbook.SaveAs Filename:=(Nom)
Résultat :
Il procède à l'enregistrement mais ne tiens plus compte du nom,
numéro de facture et de la date, il est nouille ! Il veut
l'enregistrer en tant que "classeur 1".....même si j'enlève le 2ème
ActiveWorkbook.SaveAs.
Des infos de plus !!??
C'est donc un seul et unique dossier
- Sur le bureau dossier "Facturation Cabinet"
- A l'intérieur j'ai mon classeur.xls "Modèle facture dentiste"
- Dans ce classeur j'ai entre autre une feuille "Facture dentiste"
- Sur cette feuille j'ai un bouton qui va aller enregistrer (uniquement
cette feuille) dans le dossier "Facturation Cabinet" puis dans le
Dossier "Factures enregistrées dentiste"
heu !!!!! est-ce qu'il manque des informations ????
Je vais continuer mes tentatives j'en suis à la 378 èmes :-))
On 10 déc, 15:12, FxM wrote:ChDir Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
avec peut-être un supplémentaire en fin de chaîne ...
Si le fichier original est situé dans le répertoire de destination, il y
aurait aussi quelque chose comme
activeworkbook.saveas thisworkbook.path & "nom.xls"
On peut également modifier le chemin mais il faudrait nous en dire un
peu plus sur le chemin original et le chemin de destination (celui cité
ci-dessus ?)
@+
FxMBonjour FxM, merci pour la réponse elle me semble si logique, mais je
fais plusieurs tentatives et il me répond toujours erreur de syntaxe.
(il est malhonnête ! elle est très jolie la syntaxe)
ma dernière tentative est celle-ci :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:TheFile = Environ("USERPROFILE") + "Bureaufacturation
cabinetFactures enregistrées dentiste"
Mais il n'en veut pas !!!
Je vais voir si je retrouve le message cité.
Merci en tout cas de ton aide c'est gentil
On 10 déc, 13:39, FxM wrote:Bonjour,
Tiré d'un message de ce matin 1h11 heure de Paris :
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Je te laisse l'adapter :o)
@+
FxMBonjour,
Je ne trouve pas de piste pour résoudre mon problème
d'enregistrement, si vous avez une petite idée ce serait le bienvenu.
Le classeur se promène d'un pc à un autre, voir même un 3ème, ce
n'est pas en reseau mais bien sur trois pc.
Une feuille de ce classeur est enregistrée dans un dossier bien
précis, sous le nom, le numéro de facture et la date.
Ceci fonctionne parfaitement bien avec :
Dim NomFichier As String
Sheets(Array("Facture dentiste")).Copy
Dim Nom As String
Dim Chemin As String
Dim numero As String * 8
With Sheets("Facture dentiste")
- Nom = .Range("R8") & " " & Day(.Range("E2")) & _
"." & Format(Month(.Range("E2")), "00") _
& "." & Year(.Range("E2")) & " Facture. N° " &
..Range("B12") & " .xls"
End With
ChDrive "C"
ChDir "C:Documents and SettingsMaisonBureaufacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Mon problème est de l'enregistrer quand je suis sur un autre pc dont
le chemin est :
........
ChDrive "C"
ChDir "C:Documents and SettingsStandartBureauFacturation
cabinetFactures enregistrées dentiste"
ActiveWorkbook.SaveAs Filename:=(Nom)
Je précise que j'ai créer un dossier sur le bureau de chaque pc avec
exactement le même nom à savoir : -Facturation cabinet-
et à l'interieur j'ai la même chose donc un dossier
-Factures enregistrées dentiste-
C'est ce "standart" sur un pc et le "maison" sur l'autre qui viennent
embrouiller mon code forcément quand je passe d'une machine à
l'autre.
Est-ce qu'il y a un moyen de contourner ce problème ???
Très bonne journée à tous.
