zesuila
XLDnaute Occasionnel
Bonjour le forum
Voilà, j'ai un petit soucis.
le code suivant fonctionne très bien. IL copie des données de 'BON' à 'F3' qui sont dans le même classeur.
Mais voilà, je voudrais savoir comment faire pour que ce code puisse fonctionner lorsque les feuilles ne sont pas dans le même classeur.
dans cet exemple la feuille 'bon' et ' F3' sont dans C:\\gestion bon.xls
Mais si 'f3' se retrouve dans Q:\\F3.xls, quels sont les changements à effectuer ?
voici le code actuel
If MsgBox('ARCHIVER La ligne ?', vbYesNo) = vbYes Then
Set WsSource = Worksheets('BON')
Set WsCible = Worksheets('F3')
Set MaLigneSource = WsSource.Range('B56:L56')
With WsCible
derlgn = .Range('A5000').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 11))
MaligneCible = MaLigneSource.Value
End With
'Else
'End If 'ICI
'If MsgBox('ARCHIVER LE BON ?', vbYesNo) = vbYes Then
'archiver la feuille
Worksheets('BON').Activate
Chr = Range('L3') 'nom du fichier en h1
ChDrive 'Q' 'si C n'est pas le disque par défaut
ChDir 'Q:\\PAO\\olivier\\gestion bon\\archives\\'
ActiveSheet.Copy
Unload menu
With Application
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
With ActiveWorkbook
'.UpdateRemoteReferences = False
.PrecisionAsDisplayed = False
.SaveLinkValues = False
End With
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.SaveAs Filename:=(Chr)
ActiveWorkbook.Close False
Else
End If
ACTION.Show
End Sub
Et si vous voyez des petits trucs qui vous semble 'bizarre', n'hésitez pas
Merci de votre aide
Voilà, j'ai un petit soucis.
le code suivant fonctionne très bien. IL copie des données de 'BON' à 'F3' qui sont dans le même classeur.
Mais voilà, je voudrais savoir comment faire pour que ce code puisse fonctionner lorsque les feuilles ne sont pas dans le même classeur.
dans cet exemple la feuille 'bon' et ' F3' sont dans C:\\gestion bon.xls
Mais si 'f3' se retrouve dans Q:\\F3.xls, quels sont les changements à effectuer ?
voici le code actuel
If MsgBox('ARCHIVER La ligne ?', vbYesNo) = vbYes Then
Set WsSource = Worksheets('BON')
Set WsCible = Worksheets('F3')
Set MaLigneSource = WsSource.Range('B56:L56')
With WsCible
derlgn = .Range('A5000').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 11))
MaligneCible = MaLigneSource.Value
End With
'Else
'End If 'ICI
'If MsgBox('ARCHIVER LE BON ?', vbYesNo) = vbYes Then
'archiver la feuille
Worksheets('BON').Activate
Chr = Range('L3') 'nom du fichier en h1
ChDrive 'Q' 'si C n'est pas le disque par défaut
ChDir 'Q:\\PAO\\olivier\\gestion bon\\archives\\'
ActiveSheet.Copy
Unload menu
With Application
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
With ActiveWorkbook
'.UpdateRemoteReferences = False
.PrecisionAsDisplayed = False
.SaveLinkValues = False
End With
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.SaveAs Filename:=(Chr)
ActiveWorkbook.Close False
Else
End If
ACTION.Show
End Sub
Et si vous voyez des petits trucs qui vous semble 'bizarre', n'hésitez pas
Merci de votre aide