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
John Fuss
Merci à Vincent sur un autre post !!!!
Soluce :
Public Function SaveAllProjects() Dim i As Integer
For i = 1 To Application.VBE.VBProjects.Count If Application.VBE.VBProjects(i).name <> "VBAProject" Then Workbooks(GetFileInfo(Application.VBE.VBProjects(1).FileName, NomComplet)).Save End If Next End Function
avec GetFileInfo qui donne juste le nom du fichier sans le chemin
"John Fuss" a écrit dans le message de news:botea4$dd7$
Bonjour, je travail bcp sur des macros complémentaires, comment puis-je les
sauvegardées en auto ?
je n'arrive pas à les avoir avec Workbooks, Windows ou sauvegarder via Addins ou Application.VBE.VBProjects
Merci d'avance
John
Merci à Vincent sur un autre post !!!!
Soluce :
Public Function SaveAllProjects()
Dim i As Integer
For i = 1 To Application.VBE.VBProjects.Count
If Application.VBE.VBProjects(i).name <> "VBAProject" Then
Workbooks(GetFileInfo(Application.VBE.VBProjects(1).FileName,
NomComplet)).Save
End If
Next
End Function
avec GetFileInfo qui donne juste le nom du fichier sans le chemin
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de
news:botea4$dd7$1@s1.read.news.oleane.net...
Bonjour, je travail bcp sur des macros complémentaires, comment puis-je
les
sauvegardées en auto ?
je n'arrive pas à les avoir avec Workbooks, Windows ou sauvegarder via
Addins ou Application.VBE.VBProjects
Public Function SaveAllProjects() Dim i As Integer
For i = 1 To Application.VBE.VBProjects.Count If Application.VBE.VBProjects(i).name <> "VBAProject" Then Workbooks(GetFileInfo(Application.VBE.VBProjects(1).FileName, NomComplet)).Save End If Next End Function
avec GetFileInfo qui donne juste le nom du fichier sans le chemin
"John Fuss" a écrit dans le message de news:botea4$dd7$
Bonjour, je travail bcp sur des macros complémentaires, comment puis-je les
sauvegardées en auto ?
je n'arrive pas à les avoir avec Workbooks, Windows ou sauvegarder via Addins ou Application.VBE.VBProjects
Merci d'avance
John
Michel Pierron
Re John; Regarde ton précédent post (cela suppose qu'il n'y a pas de nouveau projet contenant des macros et non encore enregistré, sinon le chemin n'est pas connu et engendrera une erreur; ou alors, il faut mettre On Error Resume Next pour passer outre. Workbooks(Application.VBE.VBProjects(i).Filename).Save MP
"John Fuss" a écrit dans le message de news:botea4$dd7$
Bonjour, je travail bcp sur des macros complémentaires, comment puis-je les sauvegardées en auto ?
je n'arrive pas à les avoir avec Workbooks, Windows ou sauvegarder via Addins ou Application.VBE.VBProjects
Merci d'avance
John
Re John;
Regarde ton précédent post (cela suppose qu'il n'y a pas de nouveau projet
contenant des macros et non encore enregistré, sinon le chemin n'est pas connu et
engendrera une erreur; ou alors, il faut mettre On Error Resume Next pour passer
outre.
Workbooks(Application.VBE.VBProjects(i).Filename).Save
MP
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de
news:botea4$dd7$1@s1.read.news.oleane.net...
Bonjour, je travail bcp sur des macros complémentaires, comment puis-je les
sauvegardées en auto ?
je n'arrive pas à les avoir avec Workbooks, Windows ou sauvegarder via
Addins ou Application.VBE.VBProjects
Re John; Regarde ton précédent post (cela suppose qu'il n'y a pas de nouveau projet contenant des macros et non encore enregistré, sinon le chemin n'est pas connu et engendrera une erreur; ou alors, il faut mettre On Error Resume Next pour passer outre. Workbooks(Application.VBE.VBProjects(i).Filename).Save MP
"John Fuss" a écrit dans le message de news:botea4$dd7$
Bonjour, je travail bcp sur des macros complémentaires, comment puis-je les sauvegardées en auto ?
je n'arrive pas à les avoir avec Workbooks, Windows ou sauvegarder via Addins ou Application.VBE.VBProjects
Merci d'avance
John
Michel Pierron
Il n'y a pas de raison pour que cela ne marche pas avec le nom complet. MP
"John Fuss" a écrit dans le message de news:botgt5$f0f$
Merci à Vincent sur un autre post !!!!
Soluce :
Public Function SaveAllProjects() Dim i As Integer
For i = 1 To Application.VBE.VBProjects.Count If Application.VBE.VBProjects(i).name <> "VBAProject" Then Workbooks(GetFileInfo(Application.VBE.VBProjects(1).FileName, NomComplet)).Save End If Next End Function
avec GetFileInfo qui donne juste le nom du fichier sans le chemin
"John Fuss" a écrit dans le message de news:botea4$dd7$
Bonjour, je travail bcp sur des macros complémentaires, comment puis-je les
sauvegardées en auto ?
je n'arrive pas à les avoir avec Workbooks, Windows ou sauvegarder via Addins ou Application.VBE.VBProjects
Merci d'avance
John
Il n'y a pas de raison pour que cela ne marche pas avec le nom complet.
MP
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de
news:botgt5$f0f$1@s1.read.news.oleane.net...
Merci à Vincent sur un autre post !!!!
Soluce :
Public Function SaveAllProjects()
Dim i As Integer
For i = 1 To Application.VBE.VBProjects.Count
If Application.VBE.VBProjects(i).name <> "VBAProject" Then
Workbooks(GetFileInfo(Application.VBE.VBProjects(1).FileName,
NomComplet)).Save
End If
Next
End Function
avec GetFileInfo qui donne juste le nom du fichier sans le chemin
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de
news:botea4$dd7$1@s1.read.news.oleane.net...
Bonjour, je travail bcp sur des macros complémentaires, comment puis-je
les
sauvegardées en auto ?
je n'arrive pas à les avoir avec Workbooks, Windows ou sauvegarder via
Addins ou Application.VBE.VBProjects
Il n'y a pas de raison pour que cela ne marche pas avec le nom complet. MP
"John Fuss" a écrit dans le message de news:botgt5$f0f$
Merci à Vincent sur un autre post !!!!
Soluce :
Public Function SaveAllProjects() Dim i As Integer
For i = 1 To Application.VBE.VBProjects.Count If Application.VBE.VBProjects(i).name <> "VBAProject" Then Workbooks(GetFileInfo(Application.VBE.VBProjects(1).FileName, NomComplet)).Save End If Next End Function
avec GetFileInfo qui donne juste le nom du fichier sans le chemin
"John Fuss" a écrit dans le message de news:botea4$dd7$
Bonjour, je travail bcp sur des macros complémentaires, comment puis-je les
sauvegardées en auto ?
je n'arrive pas à les avoir avec Workbooks, Windows ou sauvegarder via Addins ou Application.VBE.VBProjects
Merci d'avance
John
John Fuss
Pour ma part j'ai testé mais ça ne passais pas rapport à des lecteurs réseau.
John
"Michel Pierron" a écrit dans le message de news:
Il n'y a pas de raison pour que cela ne marche pas avec le nom complet. MP
"John Fuss" a écrit dans le message de news:botgt5$f0f$
Merci à Vincent sur un autre post !!!!
Soluce :
Public Function SaveAllProjects() Dim i As Integer
For i = 1 To Application.VBE.VBProjects.Count If Application.VBE.VBProjects(i).name <> "VBAProject" Then
