Macro Enregistrer Sous en supprimant les liaisons
Résolu
JenSou798312
Messages postés
57
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Macro Enregistrer Sous en supprimant les liaisons
- Audacity enregistrer son pc - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment récupérer les messages supprimés sur whatsapp - Guide
- Comment enregistrer une musique sur youtube en mp3 - Guide
3 réponses
Re bonjour,
J'ai travaillé sur mon code mais j'ai toujours des erreurs.
Est ce que ce code serait plus approprié?
Sub test()
Dim Sh As Worksheet
Dim NomFichier As String
'Le nom du nouveau fichier
NomFichier = "CRID_" & ActiveSheet.Range("Y34") & "_" & Range("F31") & " .xlsx"
With ThisWorkbook
For Each Sh In ThisWorkbook.Worksheets
With Sh
With .UsedRange
.Value = .Value
End With
End With
Next
End With
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & NomFichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
J'ai quand même toujours une erreur d'enregistrement.
merci pour votre aide
J'ai travaillé sur mon code mais j'ai toujours des erreurs.
Est ce que ce code serait plus approprié?
Sub test()
Dim Sh As Worksheet
Dim NomFichier As String
'Le nom du nouveau fichier
NomFichier = "CRID_" & ActiveSheet.Range("Y34") & "_" & Range("F31") & " .xlsx"
With ThisWorkbook
For Each Sh In ThisWorkbook.Worksheets
With Sh
With .UsedRange
.Value = .Value
End With
End With
Next
End With
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & NomFichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
J'ai quand même toujours une erreur d'enregistrement.
merci pour votre aide
Bonjour,
J'ai quand même toujours une erreur d'enregistrement.
Manque un antislash "\" dans ""
et
J'ai travaillé sur mon code mais j'ai toujours des erreurs.
Petite explication svp
J'ai quand même toujours une erreur d'enregistrement.
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & NomFichier
Manque un antislash "\" dans ""
et
J'ai travaillé sur mon code mais j'ai toujours des erreurs.
Petite explication svp
Merci pour votre réponse
J'ai essayé de mettre "\" mais ça ne fonctionne pas.
Je suis sous Mac... est ce que ça peut être lié?
Pour les autres soucis, soit ça enregistre (pas dans le bon fichier) en .xlsx mais j'ai tjs ma macro et les liaisons du coup je ne peux pas l'ouvrir, soit ca ne fait rien du tout.
J'ai essayé de mettre "\" mais ça ne fonctionne pas.
Je suis sous Mac... est ce que ça peut être lié?
Pour les autres soucis, soit ça enregistre (pas dans le bon fichier) en .xlsx mais j'ai tjs ma macro et les liaisons du coup je ne peux pas l'ouvrir, soit ca ne fait rien du tout.
Re,
Vous pouvez mettre a dispo sans donnees confidentielles le fichier que vous voulez enregistrer sans les liaisons, sera plus facile de vous aider
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
ou
'mon partage
https://mon-partage.fr/
Vous pouvez mettre a dispo sans donnees confidentielles le fichier que vous voulez enregistrer sans les liaisons, sera plus facile de vous aider
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
ou
'mon partage
https://mon-partage.fr/
J'ai modifié mon code:
Sub SaveAs()
'Macro par Jennifer
Dim Chemin As String
Dim Nomfichier As String
Dim VBComp As Object
Dim VBComps As Object
'Nom nouveau fichier
Nomfichier = "CRID_" & ActiveSheet.Range("Y34") & "_" & Range("F31") & ".xlsx"
'Chemin nouveau fichier
Chemin = "HDD:Utilisateurs:Jennifer:Bureau"
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComp
End Select
Next VBComp
ActiveWorkbook.SaveAs Filename:=Chemin & Nomfichier
End Sub
Mais ça ne fonctionne toujours pas… Je désespère…
Message d'erreur: Erreur d'exécution « 1004 »:
Vous ne disposez pas d'autorisation pour enregistrer les fichiers dans cet emplacement.Vérifiez que vous disposez d'un accès en écriture à cet emplacement ou sélectionnez un autre emplacement
Sub SaveAs()
'Macro par Jennifer
Dim Chemin As String
Dim Nomfichier As String
Dim VBComp As Object
Dim VBComps As Object
'Nom nouveau fichier
Nomfichier = "CRID_" & ActiveSheet.Range("Y34") & "_" & Range("F31") & ".xlsx"
'Chemin nouveau fichier
Chemin = "HDD:Utilisateurs:Jennifer:Bureau"
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComp
End Select
Next VBComp
ActiveWorkbook.SaveAs Filename:=Chemin & Nomfichier
End Sub
Mais ça ne fonctionne toujours pas… Je désespère…
Message d'erreur: Erreur d'exécution « 1004 »:
Vous ne disposez pas d'autorisation pour enregistrer les fichiers dans cet emplacement.Vérifiez que vous disposez d'un accès en écriture à cet emplacement ou sélectionnez un autre emplacement
Le fichier à copier sans macro et sans liaison: https://www.cjoint.com/c/GFbhmsNPgnZ
Le fichier Source http://www.cjoint.com/c/GFbhrQPjwiZ
Le fichier Source http://www.cjoint.com/c/GFbhrQPjwiZ