OVH Cloud OVH Cloud

macro "enregistrer"

5 réponses
Avatar
jack 43
Bonsoir

Depuis 3 jours je me bats avec une macro pour enregistrer.

Je m'explique :

Je souhaite une macro qui enregistre sur le chemin suivant : C:\toto\titi

Le fichier qui s'appellera ainsi : valeur de la cellule D2 espace valeur de
cellule D4

ainsi si D2 = Paul si D4 = DUPONT

J'aurai : C:\toto\titi\Paul DUPONT.xls

5 réponses

Avatar
Jacky
Re...RE...Re...
Depuis 3 jours je me bats avec une macro pour enregistrer.
Et pourtant tu as tout ce qu'il faut dans ton fil du 25/01/06 15:40


Cela ne fonctionne pas ????

JJ

"jack 43" a écrit dans le message de
news:
Bonsoir

Depuis 3 jours je me bats avec une macro pour enregistrer.

Je m'explique :

Je souhaite une macro qui enregistre sur le chemin suivant : C:tototiti

Le fichier qui s'appellera ainsi : valeur de la cellule D2 espace valeur
de

cellule D4

ainsi si D2 = Paul si D4 = DUPONT

J'aurai : C:tototitiPaul DUPONT.xls


Avatar
isabelle
bonjour jack,

ActiveWorkbook.SaveAs Filename:="C:tototiti" & [D2] & " " & [D4] & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _
CreateBackup:úlse

isabelle

Bonsoir

Depuis 3 jours je me bats avec une macro pour enregistrer.

Je m'explique :

Je souhaite une macro qui enregistre sur le chemin suivant : C:tototiti

Le fichier qui s'appellera ainsi : valeur de la cellule D2 espace valeur de
cellule D4

ainsi si D2 = Paul si D4 = DUPONT

J'aurai : C:tototitiPaul DUPONT.xls


Avatar
jack 43
Bonsoir Jacky,

Comme tu le vois j'ai des problèmes avec la macro; Je t'explique :

j'ai créé ma macro dans un fichier vierge, elle fonctionne.

Lorsque je là colle dans mon fichier où elle doit être exploité, elle ne
fonctionne plus. (avec les mêmes nom de cellules ou de feuilles).

J'ai comme message : erreur d'éxécution '9':
l'indice n'appartient pas à la sélection.

le débogage s'arrête sur la ligne suivante :

NOM = Sheets("saisie voiture").[D2] & " " & Sheets("saisie voiture").[D4]



MERCI A +


********************************************


Re...RE...Re...
Depuis 3 jours je me bats avec une macro pour enregistrer.
Et pourtant tu as tout ce qu'il faut dans ton fil du 25/01/06 15:40


Cela ne fonctionne pas ????

JJ

"jack 43" a écrit dans le message de
news:
Bonsoir

Depuis 3 jours je me bats avec une macro pour enregistrer.

Je m'explique :

Je souhaite une macro qui enregistre sur le chemin suivant : C:tototiti

Le fichier qui s'appellera ainsi : valeur de la cellule D2 espace valeur
de

cellule D4

ainsi si D2 = Paul si D4 = DUPONT

J'aurai : C:tototitiPaul DUPONT.xls







Avatar
Jacky
Re....
Comme on te l'as déjà écrit dans un de tes nombreux post pour le même sujet,
il manque &".xls"
Cela ne sert qu'a t'embrouiller et du même coup à énerver les gentils
répondeurs si tu ne restes pas dans le même fil pour un même sujet.

NOM = Sheets("saisie voiture").[D2] & " " & Sheets("saisie
voiture").[D4]&".xls"

Bon courage
JJ

"jack 43" a écrit dans le message de
news:
Bonsoir Jacky,

Comme tu le vois j'ai des problèmes avec la macro; Je t'explique :

j'ai créé ma macro dans un fichier vierge, elle fonctionne.

Lorsque je là colle dans mon fichier où elle doit être exploité, elle ne
fonctionne plus. (avec les mêmes nom de cellules ou de feuilles).

J'ai comme message : erreur d'éxécution '9':
l'indice n'appartient pas à la
sélection.


le débogage s'arrête sur la ligne suivante :

NOM = Sheets("saisie voiture").[D2] & " " & Sheets("saisie voiture").[D4]



MERCI A +


********************************************


Re...RE...Re...
Depuis 3 jours je me bats avec une macro pour enregistrer.
Et pourtant tu as tout ce qu'il faut dans ton fil du 25/01/06 15:40


Cela ne fonctionne pas ????

JJ

"jack 43" a écrit dans le message de
news:
Bonsoir

Depuis 3 jours je me bats avec une macro pour enregistrer.

Je m'explique :

Je souhaite une macro qui enregistre sur le chemin suivant :
C:tototiti




Le fichier qui s'appellera ainsi : valeur de la cellule D2 espace
valeur



de
cellule D4

ainsi si D2 = Paul si D4 = DUPONT

J'aurai : C:tototitiPaul DUPONT.xls









Avatar
Jacky
Re...

'---------code modifié et simplifié
Sub jj()
Chemin = "C:utilisatmétédis" & [D2] & " " & [D4] & ".xls"
MsgBox chemin '*******A supprimer après essai*******
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs chemin
End Sub
'----------
Il faut que le repertoire "C:utilisatmétédis" existe évidemment
JJ

"jack 43" a écrit dans le message de
news:
Bonsoir Jacky,

Comme tu le vois j'ai des problèmes avec la macro; Je t'explique :

j'ai créé ma macro dans un fichier vierge, elle fonctionne.

Lorsque je là colle dans mon fichier où elle doit être exploité, elle ne
fonctionne plus. (avec les mêmes nom de cellules ou de feuilles).

J'ai comme message : erreur d'éxécution '9':
l'indice n'appartient pas à la
sélection.


le débogage s'arrête sur la ligne suivante :

NOM = Sheets("saisie voiture").[D2] & " " & Sheets("saisie voiture").[D4]



MERCI A +


********************************************


Re...RE...Re...
Depuis 3 jours je me bats avec une macro pour enregistrer.
Et pourtant tu as tout ce qu'il faut dans ton fil du 25/01/06 15:40


Cela ne fonctionne pas ????

JJ

"jack 43" a écrit dans le message de
news:
Bonsoir

Depuis 3 jours je me bats avec une macro pour enregistrer.

Je m'explique :

Je souhaite une macro qui enregistre sur le chemin suivant :
C:tototiti




Le fichier qui s'appellera ainsi : valeur de la cellule D2 espace
valeur



de
cellule D4

ainsi si D2 = Paul si D4 = DUPONT

J'aurai : C:tototitiPaul DUPONT.xls