J'aimerais mettre dans un fichier la feuille "Base" sur un PC du meme reseaux.
Dans cette proc, comment faire pour modifier le chemin d'acces ?
J'aimerais que ce fichier reste fermé. Possible ?
Merci de votre aide.
Cordialement
David
Private Sub CommandButton1_Click()
Dim L As Integer
Dim Nom As String
Dim msg As Byte
Nom = CmbTypeAppel.Value
msg = MsgBox("Voulez-Vous Ajouter : " & Nom, vbYesNo, "ATTENTION")
If msg = 6 Then
L = Sheets("Base").Range("A65536").End(xlUp).Row + 1
Sheets("Base").Range("A" & L).Value = Nom
Ini
End If
CmbTypeAppel.SetFocus
End Sub
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
michdenis
Bonjour David,
Voici un message publié ici même par Frédéric Sigonneau, je crois ...
une procédure pour remplacer ChDir avec un lecteur/répertoire réseau '----------------------- Private Declare Function SetCurrentDirectoryA Lib _ "kernel32" (ByVal lpPathName As String) As Long
Sub ChDirNet(szPath As String) 'collectif, d'après Laurent Longre, mpep Dim lReturn As Long lReturn = SetCurrentDirectoryA(szPath) If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path." End Sub '----------------------- 'Example of usage '----------------------- Sub GetFile() On Error GoTo ErrHandler ChDirNet "LOGD0FILESOGILVTWDocsTemp" Exit Sub ErrHandler: MsgBox "Couldn't set path" End Sub '-----------------------
Salutations!
"Davit T." a écrit dans le message de news: Bonjour à tous
J'aimerais mettre dans un fichier la feuille "Base" sur un PC du meme reseaux. Dans cette proc, comment faire pour modifier le chemin d'acces ? J'aimerais que ce fichier reste fermé. Possible ? Merci de votre aide. Cordialement David
Private Sub CommandButton1_Click() Dim L As Integer Dim Nom As String Dim msg As Byte Nom = CmbTypeAppel.Value msg = MsgBox("Voulez-Vous Ajouter : " & Nom, vbYesNo, "ATTENTION") If msg = 6 Then L = Sheets("Base").Range("A65536").End(xlUp).Row + 1 Sheets("Base").Range("A" & L).Value = Nom Ini End If CmbTypeAppel.SetFocus End Sub
Bonjour David,
Voici un message publié ici même par Frédéric Sigonneau, je crois ...
une procédure pour remplacer ChDir avec un lecteur/répertoire réseau
'-----------------------
Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As String) As Long
Sub ChDirNet(szPath As String)
'collectif, d'après Laurent Longre, mpep
Dim lReturn As Long
lReturn = SetCurrentDirectoryA(szPath)
If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path."
End Sub
'-----------------------
'Example of usage
'-----------------------
Sub GetFile()
On Error GoTo ErrHandler
ChDirNet "\LOGD0FILESOGILVTWDocsTemp"
Exit Sub
ErrHandler:
MsgBox "Couldn't set path"
End Sub
'-----------------------
Salutations!
"Davit T." <direction-ternoise@supprimer-ceci-wanadoo.fr> a écrit dans le message de
news:Ocw0sUTIEHA.4092@TK2MSFTNGP11.phx.gbl...
Bonjour à tous
J'aimerais mettre dans un fichier la feuille "Base" sur un PC du meme reseaux.
Dans cette proc, comment faire pour modifier le chemin d'acces ?
J'aimerais que ce fichier reste fermé. Possible ?
Merci de votre aide.
Cordialement
David
Private Sub CommandButton1_Click()
Dim L As Integer
Dim Nom As String
Dim msg As Byte
Nom = CmbTypeAppel.Value
msg = MsgBox("Voulez-Vous Ajouter : " & Nom, vbYesNo, "ATTENTION")
If msg = 6 Then
L = Sheets("Base").Range("A65536").End(xlUp).Row + 1
Sheets("Base").Range("A" & L).Value = Nom
Ini
End If
CmbTypeAppel.SetFocus
End Sub
Voici un message publié ici même par Frédéric Sigonneau, je crois ...
une procédure pour remplacer ChDir avec un lecteur/répertoire réseau '----------------------- Private Declare Function SetCurrentDirectoryA Lib _ "kernel32" (ByVal lpPathName As String) As Long
Sub ChDirNet(szPath As String) 'collectif, d'après Laurent Longre, mpep Dim lReturn As Long lReturn = SetCurrentDirectoryA(szPath) If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path." End Sub '----------------------- 'Example of usage '----------------------- Sub GetFile() On Error GoTo ErrHandler ChDirNet "LOGD0FILESOGILVTWDocsTemp" Exit Sub ErrHandler: MsgBox "Couldn't set path" End Sub '-----------------------
Salutations!
"Davit T." a écrit dans le message de news: Bonjour à tous
J'aimerais mettre dans un fichier la feuille "Base" sur un PC du meme reseaux. Dans cette proc, comment faire pour modifier le chemin d'acces ? J'aimerais que ce fichier reste fermé. Possible ? Merci de votre aide. Cordialement David
Private Sub CommandButton1_Click() Dim L As Integer Dim Nom As String Dim msg As Byte Nom = CmbTypeAppel.Value msg = MsgBox("Voulez-Vous Ajouter : " & Nom, vbYesNo, "ATTENTION") If msg = 6 Then L = Sheets("Base").Range("A65536").End(xlUp).Row + 1 Sheets("Base").Range("A" & L).Value = Nom Ini End If CmbTypeAppel.SetFocus End Sub
Davit T.
Bonjour et merci pour cette réponse
Pas expert en VB, j'en fais quoi de tout cela ?
Pour cette macro et cette adresse reseau ? ChDirNet "Poste1poste davidFichtempBase.xls"
Le nom de la feuille, ou ?
Pas sur de bien comprendre
Merci de m'éclairer Cordialement
David
Bonjour David,
Voici un message publié ici même par Frédéric Sigonneau, je crois ...
une procédure pour remplacer ChDir avec un lecteur/répertoire réseau '----------------------- Private Declare Function SetCurrentDirectoryA Lib _ "kernel32" (ByVal lpPathName As String) As Long
Sub ChDirNet(szPath As String) 'collectif, d'après Laurent Longre, mpep Dim lReturn As Long lReturn = SetCurrentDirectoryA(szPath) If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path." End Sub '----------------------- 'Example of usage '----------------------- Sub GetFile() On Error GoTo ErrHandler ChDirNet "LOGD0FILESOGILVTWDocsTemp" Exit Sub ErrHandler: MsgBox "Couldn't set path" End Sub '-----------------------
Salutations!
"Davit T." a écrit dans le message de news: Bonjour à tous
J'aimerais mettre dans un fichier la feuille "Base" sur un PC du meme reseaux. Dans cette proc, comment faire pour modifier le chemin d'acces ? J'aimerais que ce fichier reste fermé. Possible ? Merci de votre aide. Cordialement David
Private Sub CommandButton1_Click() Dim L As Integer Dim Nom As String Dim msg As Byte Nom = CmbTypeAppel.Value msg = MsgBox("Voulez-Vous Ajouter : " & Nom, vbYesNo, "ATTENTION") If msg = 6 Then L = Sheets("Base").Range("A65536").End(xlUp).Row + 1 Sheets("Base").Range("A" & L).Value = Nom Ini End If CmbTypeAppel.SetFocus End Sub
Bonjour et merci pour cette réponse
Pas expert en VB, j'en fais quoi de tout cela ?
Pour cette macro et cette adresse reseau ?
ChDirNet "\Poste1poste davidFichtempBase.xls"
Le nom de la feuille, ou ?
Pas sur de bien comprendre
Merci de m'éclairer
Cordialement
David
Bonjour David,
Voici un message publié ici même par Frédéric Sigonneau, je crois ...
une procédure pour remplacer ChDir avec un lecteur/répertoire réseau
'-----------------------
Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As String) As Long
Sub ChDirNet(szPath As String)
'collectif, d'après Laurent Longre, mpep
Dim lReturn As Long
lReturn = SetCurrentDirectoryA(szPath)
If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path."
End Sub
'-----------------------
'Example of usage
'-----------------------
Sub GetFile()
On Error GoTo ErrHandler
ChDirNet "\LOGD0FILESOGILVTWDocsTemp"
Exit Sub
ErrHandler:
MsgBox "Couldn't set path"
End Sub
'-----------------------
Salutations!
"Davit T." <direction-ternoise@supprimer-ceci-wanadoo.fr> a écrit dans le message de
news:Ocw0sUTIEHA.4092@TK2MSFTNGP11.phx.gbl...
Bonjour à tous
J'aimerais mettre dans un fichier la feuille "Base" sur un PC du meme reseaux.
Dans cette proc, comment faire pour modifier le chemin d'acces ?
J'aimerais que ce fichier reste fermé. Possible ?
Merci de votre aide.
Cordialement
David
Private Sub CommandButton1_Click()
Dim L As Integer
Dim Nom As String
Dim msg As Byte
Nom = CmbTypeAppel.Value
msg = MsgBox("Voulez-Vous Ajouter : " & Nom, vbYesNo, "ATTENTION")
If msg = 6 Then
L = Sheets("Base").Range("A65536").End(xlUp).Row + 1
Sheets("Base").Range("A" & L).Value = Nom
Ini
End If
CmbTypeAppel.SetFocus
End Sub
Pour cette macro et cette adresse reseau ? ChDirNet "Poste1poste davidFichtempBase.xls"
Le nom de la feuille, ou ?
Pas sur de bien comprendre
Merci de m'éclairer Cordialement
David
Bonjour David,
Voici un message publié ici même par Frédéric Sigonneau, je crois ...
une procédure pour remplacer ChDir avec un lecteur/répertoire réseau '----------------------- Private Declare Function SetCurrentDirectoryA Lib _ "kernel32" (ByVal lpPathName As String) As Long
Sub ChDirNet(szPath As String) 'collectif, d'après Laurent Longre, mpep Dim lReturn As Long lReturn = SetCurrentDirectoryA(szPath) If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path." End Sub '----------------------- 'Example of usage '----------------------- Sub GetFile() On Error GoTo ErrHandler ChDirNet "LOGD0FILESOGILVTWDocsTemp" Exit Sub ErrHandler: MsgBox "Couldn't set path" End Sub '-----------------------
Salutations!
"Davit T." a écrit dans le message de news: Bonjour à tous
J'aimerais mettre dans un fichier la feuille "Base" sur un PC du meme reseaux. Dans cette proc, comment faire pour modifier le chemin d'acces ? J'aimerais que ce fichier reste fermé. Possible ? Merci de votre aide. Cordialement David
Private Sub CommandButton1_Click() Dim L As Integer Dim Nom As String Dim msg As Byte Nom = CmbTypeAppel.Value msg = MsgBox("Voulez-Vous Ajouter : " & Nom, vbYesNo, "ATTENTION") If msg = 6 Then L = Sheets("Base").Range("A65536").End(xlUp).Row + 1 Sheets("Base").Range("A" & L).Value = Nom Ini End If CmbTypeAppel.SetFocus End Sub
