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
Daniel
Bonsoir. Pour enregistrer dans le répertoire courant : ThisWorkbook.SaveAs [A1] Dans un autre répertoire : ThisWorkbook.SaveAs "c:temp" & [A1] Cordialement. Daniel "Érico" a écrit dans le message de news:
Bonjour,
Comment fait-on une macro pour enregistrer le fichiers sous un non qui est déjà inscrit dans uen cellule.
Merci à l'avance
Érico de Montréal
Bonsoir.
Pour enregistrer dans le répertoire courant :
ThisWorkbook.SaveAs [A1]
Dans un autre répertoire :
ThisWorkbook.SaveAs "c:temp" & [A1]
Cordialement.
Daniel
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O1kRYhxjGHA.3848@TK2MSFTNGP04.phx.gbl...
Bonjour,
Comment fait-on une macro pour enregistrer le fichiers sous un non qui est
déjà inscrit dans uen cellule.
Bonsoir. Pour enregistrer dans le répertoire courant : ThisWorkbook.SaveAs [A1] Dans un autre répertoire : ThisWorkbook.SaveAs "c:temp" & [A1] Cordialement. Daniel "Érico" a écrit dans le message de news:
Bonjour,
Comment fait-on une macro pour enregistrer le fichiers sous un non qui est déjà inscrit dans uen cellule.
Merci à l'avance
Érico de Montréal
Michel
Salut,
Si en A1 tu as le nom du fichier alors :
Sub Macro1() nomfichsauv = Range("A1").Value ChDir "C:" ActiveWorkbook.SaveAs Filename:=nomfichsauv, FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _ CreateBackup:úlse End Sub
@+
Michel.
"Érico" a écrit dans le message de news:
Bonjour,
Comment fait-on une macro pour enregistrer le fichiers sous un non qui est déjà inscrit dans uen cellule.
Merci à l'avance
Érico de Montréal
Salut,
Si en A1 tu as le nom du fichier alors :
Sub Macro1()
nomfichsauv = Range("A1").Value
ChDir "C:"
ActiveWorkbook.SaveAs Filename:=nomfichsauv, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _
CreateBackup:úlse
End Sub
@+
Michel.
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
O1kRYhxjGHA.3848@TK2MSFTNGP04.phx.gbl...
Bonjour,
Comment fait-on une macro pour enregistrer le fichiers sous un non qui est
déjà inscrit dans uen cellule.
========================================== Lorsque le fichier existe déjà et qu'il nous demande de la remplace, il plante.
"Michel" a écrit dans le message de news: %
Salut,
Si en A1 tu as le nom du fichier alors :
Sub Macro1() nomfichsauv = Range("A1").Value ChDir "C:" ActiveWorkbook.SaveAs Filename:=nomfichsauv, FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _ CreateBackup:úlse End Sub
@+
Michel.
"Érico" a écrit dans le message de news:
Bonjour,
Comment fait-on une macro pour enregistrer le fichiers sous un non qui est déjà inscrit dans uen cellule.
Merci à l'avance
Érico de Montréal
J
Bonjour Erico si tu as plusieurs exportations à la suite essaie qq chose comme cela '*** numero = 0 Nom = "C:Test" & numero & ".xls" While Dir(Nom) <> "" numero = numero + 1 Nom = "C:Test" & numero & ".xls" Wend '*** J@@
J'ai la macro suivante et il bogue quand le fichier existe djà.
Comment résoudre ce problème?
nomfichsauv = Range("E4").Value If nomfichsauv <> 0 Then ActiveWorkbook.SaveAs Filename:=nomfichsauv, FileFormat:=xlNormal End If
========================================== > Lorsque le fichier existe déjà et qu'il nous demande de la remplace, il plante.
Bonjour Erico
si tu as plusieurs exportations à la suite essaie qq chose comme cela
'***
numero = 0
Nom = "C:Test" & numero & ".xls"
While Dir(Nom) <> ""
numero = numero + 1
Nom = "C:Test" & numero & ".xls"
Wend
'***
J@@
J'ai la macro suivante et il bogue quand le fichier existe djà.
Comment résoudre ce problème?
nomfichsauv = Range("E4").Value
If nomfichsauv <> 0 Then
ActiveWorkbook.SaveAs Filename:=nomfichsauv, FileFormat:=xlNormal
End If
========================================== >
Lorsque le fichier existe déjà et qu'il nous demande de la remplace, il
plante.
Bonjour Erico si tu as plusieurs exportations à la suite essaie qq chose comme cela '*** numero = 0 Nom = "C:Test" & numero & ".xls" While Dir(Nom) <> "" numero = numero + 1 Nom = "C:Test" & numero & ".xls" Wend '*** J@@
J'ai la macro suivante et il bogue quand le fichier existe djà.
Comment résoudre ce problème?
nomfichsauv = Range("E4").Value If nomfichsauv <> 0 Then ActiveWorkbook.SaveAs Filename:=nomfichsauv, FileFormat:=xlNormal End If
========================================== > Lorsque le fichier existe déjà et qu'il nous demande de la remplace, il plante.
J
Bonjour Erico je pense que tu as trouvé depuis lgtps, mais à tout hasard, voici qq chose qui fonctionne. AMHA HTH J@@ '**** dans ton classeur de macro personnelles Sub SaveClasseurIncrementA1() 'récupère le nom du fichier et son répertoire actuel 'l'enregistre avec un numéro incrémenté Dim mypath As String
numero = 0 mypath = CheminRépertoire & FileID & "-" & numero & ".xls" While Dir(mypath) <> "" numero = numero + 1 mypath = CheminRépertoire & FileID & "-" & numero & ".xls" Wend
ActiveWorkbook.SaveCopyAs mypath MsgBox "Enregistrement d'une copie sous " & mypath & " effectué"
End Sub '****
J'ai la macro suivante et il bogue quand le fichier existe djà. Comment résoudre ce problème? Merci
nomfichsauv = Range("E4").Value If nomfichsauv <> 0 Then ActiveWorkbook.SaveAs Filename:=nomfichsauv, FileFormat:=xlNormal End If
========================================== > Lorsque le fichier existe déjà et qu'il nous demande de la remplace, il plante.
Bonjour Erico
je pense que tu as trouvé depuis lgtps, mais à tout hasard, voici qq
chose qui fonctionne. AMHA
HTH
J@@
'**** dans ton classeur de macro personnelles
Sub SaveClasseurIncrementA1()
'récupère le nom du fichier et son répertoire actuel
'l'enregistre avec un numéro incrémenté
Dim mypath As String
Bonjour Erico je pense que tu as trouvé depuis lgtps, mais à tout hasard, voici qq chose qui fonctionne. AMHA HTH J@@ '**** dans ton classeur de macro personnelles Sub SaveClasseurIncrementA1() 'récupère le nom du fichier et son répertoire actuel 'l'enregistre avec un numéro incrémenté Dim mypath As String
