Bonjour,
j'ai un souci avec une macro et en particulier l'instruction "ActiveWorkbook.SaveAs".
J'ai récupéré la macro sur XLD "enregistrementTXT" que j'ai repris. Elle plante à l'instruction citée ci-dessus. Si je mets le chemin et le nom en dur ça tourne. je ne comprends pas De même, le fichier spod où je l'ai pompé plante aussi de la même façon.
Si quelqu'un a une idée, je suis preneur.
Merci d'avance pour toute réponse
Sub EnregistrementTXT()
Dim Chemin As String
Dim nomfichier As String
Application.DisplayAlerts = False
' Sélection du nom du fichier de sortie
Sheets("Data").Select
Range("A2").Select
Range("A2").Activate
nomfichier = Range("K10").Value & ".txt"
'Activation de l'onglet des données
Sheets("OutK1CmdK1").Select
Range("A1:A1604").Select
Range("A1604").Activate
Range("A1604").Copy
Set fichier = ActiveWorkbook.ActiveSheet
fichier.Copy
'Sauvegarde du fichier de sortie
Chemin = ActiveWorkbook.Path & "\"
ActiveWorkbook.SaveAs FileName:=Chemin & nomfichier, FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
j'ai un souci avec une macro et en particulier l'instruction "ActiveWorkbook.SaveAs".
J'ai récupéré la macro sur XLD "enregistrementTXT" que j'ai repris. Elle plante à l'instruction citée ci-dessus. Si je mets le chemin et le nom en dur ça tourne. je ne comprends pas De même, le fichier spod où je l'ai pompé plante aussi de la même façon.
Si quelqu'un a une idée, je suis preneur.
Merci d'avance pour toute réponse
Sub EnregistrementTXT()
Dim Chemin As String
Dim nomfichier As String
Application.DisplayAlerts = False
' Sélection du nom du fichier de sortie
Sheets("Data").Select
Range("A2").Select
Range("A2").Activate
nomfichier = Range("K10").Value & ".txt"
'Activation de l'onglet des données
Sheets("OutK1CmdK1").Select
Range("A1:A1604").Select
Range("A1604").Activate
Range("A1604").Copy
Set fichier = ActiveWorkbook.ActiveSheet
fichier.Copy
'Sauvegarde du fichier de sortie
Chemin = ActiveWorkbook.Path & "\"
ActiveWorkbook.SaveAs FileName:=Chemin & nomfichier, FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub